如何利用VB将一个ACCESS库里的东西导到另一个ACCESS库里

Question

可以用Access的导入功能直接完成。
如果编程，用DAO和ADO都可以。

Answer 1

用vb带的visdata里面就有导入/导出功能

Answer 2

With Adodc1
      .ConnectionString = "DSN=?"
      .CommandType = adCmdUnknown
      .RecordSource = "sql"
      .Refresh
    End With
  
    With Adodc1.Recordset
      name = .Fields("name")
   End With
    
    With Adodc2
      .ConnectionString = "DSN=abc"
      .CommandType = adCmdUnknown
      .RecordSource = "sql"
      .Refresh
    End With
     With Adodc2.Recordset
    
    If .RecordCount = 0 Then
     With Adodc2
     .CommandType = adCmdTable
     .RecordSource = "table"
     .Refresh
     End With
      Dim xmmc As String
     Do While Adodc1.Recordset.EOF = False
 
     .AddNew
     .Fields("name").Value = Adodc1.Recordset.Fields("name")
     Adodc1.Recordset.MoveNext
     Loop
    End If
   End With
大概就是这样了！试试看吧

Answer 3

ADO一行行的读，一行行的写。

Answer 4

我觉得还是用ADO一行行的导出比较好，因为容易查错。

Answer 5

select * into 'c:\temp\.dmb' from Table