下面這個貼子中討論了很多ACCESS中的一些猜想假設。 Access或其它數據庫操作效率問題.歡迎討論 http://topic.csdn.net/u/20090514/10/a93475bd-e67e-45c8-aa1e-87168ba36d02.html#replyachor 引用 55 樓 wwwwb 的回復:: create table是用什么方法？我一般是

下面這個貼子中討論了很多ACCESS中的一些猜想假設。

Access或其它數據庫操作效率問題.歡迎討論

http://topic.csdn.net/u/20090514/10/a93475bd-e67e-45c8-aa1e-87168ba36d02.html#replyachor

當看到這個猜想的時候，感覺比較懷疑。因為 select * into newtable from oldTable，ACCESS需要先從oldTable得到所有字段的定義，然后才能進行表的創建。如果猜想成立，就說明ACCESS還有一套什么機制可以直接在底層對表的結構進行訪問。但select 可以是任意的查詢，這樣也不太可能啊。 于是，依然做個簡單的試驗來難證一下這個猜想。

新建空 t.mdb ，然后創建一個模塊，代碼如下。

Option Compare Database Option Explicit Public Sub ti() Dim ssql As String Dim conn As ADODB.Connection Set conn = CurrentProject.Connection ssql = "create table table2(id integer,cname char(10))" conn.Execute ssql End Sub Public Sub tx() Dim ssql As String Dim conn As ADODB.Connection Set conn = CurrentProject.Connection Dim i As Integer On Error Resume Next For i = 1 To 9000 ssql = "drop table t" & (10000 + i) CurrentProject.Connection.Execute ssql Next i On Error GoTo 0 End Sub Public Sub t1() Dim ssql As String Dim i As Integer For i = 1 To 9000 ssql = "create table t" & (10000 + i) & " (id integer,cname char(10))" CurrentProject.Connection.Execute ssql Next i End Sub Public Sub t2() Dim ssql As String Dim i As Integer For i = 1 To 9000 ssql = "select * into t" & (10000 + i) & " from table2" CurrentProject.Connection.Execute ssql Next i End Sub Public Sub t() Call tx Debug.Print "t1 start.", Now Call t1 Debug.Print "t1 end .", Now Call tx Debug.Print "t2 start.", Now Call t2 Debug.Print "t2 end .", Now End Sub

步驟一：運行 ti()創建一個原表 table2 以供后面的 select * into newtable from oldTable 使用。
步驟二：運行 t() 結果如下。
t1 start. 5/23/2009 3:06:54 PM
t1 end . 5/23/2009 3:07:03 PM
t2 start. 5/23/2009 3:07:17 PM
t2 end . 5/23/2009 3:07:29 PM

t1() 9s , t2() 12s

試驗結論： 猜想不成立。

聲明：本網頁內容旨在傳播知識，若有侵權等問題請及時與本網聯系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com