DAO 的例子: '引用 Microsoft DAO 3.6 Object LabraryDim db As DAO.Databaseset db = opendatabase("newDB.mdb") db.execute "insert into table1 select * from table1 IN OldDB.mdb" ......db.close set db = nothing
用 ADO 只要将数据库对象换为连接对象,用 open 方法打开,其他与 DAO 类同。
直接在ACCESS200里转换只要将数据库对象换为连接对象,用OPEN方法打开,其他与ADO类同。
把ACCESS97 是jet3.5 access2K是jet4.0 分別寫連接,進行導入 Private Sub Command4_Click() ' conn.Execute "select * into [test5] from [phonebook]" [導進同一數據庫的表test5] conn.Execute "select * into [e:\test\test.mdb].[test] from [phonebook]" Unload Me End Sub
'引用 Microsoft DAO 3.6 Object LabraryDim db As DAO.Databaseset db = opendatabase("newDB.mdb")
db.execute "insert into table1 select * from table1 IN OldDB.mdb"
......db.close
set db = nothing
access2K是jet4.0
分別寫連接,進行導入
Private Sub Command4_Click()
' conn.Execute "select * into [test5] from [phonebook]" [導進同一數據庫的表test5]
conn.Execute "select * into [e:\test\test.mdb].[test] from [phonebook]"
Unload Me
End Sub