参考Private Sub Command1_Click() Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\b.mdb;Jet OLEDB:Database Password=b" cn.Execute "Select * Into [tbla] From [;database=" & App.Path & "\a.mdb;pwd=a].tbla" cn.Close Set cn = NothingEnd Sub
能否举个简单的例子informix->access
Dim cn As ADODB.Connection Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\b.mdb;Jet OLEDB:Database Password=b"
cn.Execute "Select * Into [tbla] From [;database=" & App.Path & "\a.mdb;pwd=a].tbla" cn.Close
Set cn = NothingEnd Sub
如果是INFORMIX到ACCESS呢
比如informix的dsn=test
表table1
如何将其导入到access中文件为a.mdb