从access读取数据插入到另一access数据库中,可以吗.急.!各位帮帮忙啊.?

Question

是这个的我的一个access数据库a中有一表a1
我想把a1的数据插入到别一access数据库b中可以吗?
我的意思是可不可以用select * into 表名 from a1,
各位帮帮我啊.

Answer 1

cn.Execute("INSERT INTO [C:\test1.mdb].table1 SELECT * From table1 ")
'cn.Execute ("SELECT * INTO [C:\test1.mdb].tabl  From table1 ") 
--------------------------------------------------'引用Microsoft ActiveX Data Objects 2.X Library
Private Sub Form_Load()
    Dim cn As New ADODB.Connection
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\test.mdb;Persist Security Info=False"
    cn.CursorLocation = adUseClient
    cn.Open     
    cn.Execute("INSERT INTO [C:\test1.mdb].table1 SELECT * From table1 ")
    'cn.Execute ("SELECT * INTO [C:\test1.mdb].tabl  From table1 ")
    cn.Close
    Set cn = Nothing
End Sub

Answer 2

Option Explicit
Dim Adocon As ADODB.Connection
Private Sub Form_Load()
Set Adocon = New ADODB.Connection
Adocon.ConnectionString = "Provider = SQLOLEDB.1;Password = ; Persist Security Info = True;User ID = sa;Initial Catalog = DRUGDB; Data Source = 192.168.30.122"
Adocon.ConnectionTimeout = 120
Adocon.Open
Adocon.Execute ("delete from OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\test.MDB;User ID=Admin;Password=')...carsort1")
Adocon.Execute ("insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\test.MDB;User ID=Admin;Password=')...carsort1(sort_id,sort_name) SELECT sort_id,sort_name FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\test.MDB;User ID=Admin;Password=')...carsort")
Adocon.Close
Set Adocon = Nothing
End Sub

Answer 3

cn.Execute("INSERT INTO [d:\10\test.mdb].table1 SELECT * From table1 ")

Answer 4

'引用Microsoft ActiveX Data Objects 2.X Library
Private Sub Form_Load()
    Dim cn As New ADODB.Connection
    '连接数据库a
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\a.mdb;Persist Security Info=False"    cn.CursorLocation = adUseClient
    cn.Open     
    cn.Execute("INSERT INTO [C:\b.mdb].表名 SELECT * From a1 ") '如果b数据库已经存在那个被插入数据的表，就用这句    'cn.Execute ("SELECT * INTO [C:\b.mdb].表名  From a1 ") '如果b数据库不存在那个表，就用这句
    cn.Close
    Set cn = Nothing
End Sub