如何在vb6中实现access2000数据库导入与导出，以及解决连access2000数据库的版本冲突问题。

Question

现要实现vb6中实现access2000数据库导入与导出功能，各位有什么高见，请详细写出代码？
本人使用数据库的复制方法，但在调用workspaces(0).opendatabase("c:\test.mdb")的代码时出现vb6与access2000数据库版本不兼容的问题，错误提示如下“c:\test.mdb"为不可识别的数据库。
请问高手如何解决解决连access2000数据库的版本冲突问题。或者有什么其它的办法实现在vb6中access2000数据库导入与导出。

Answer 1

如果代码中有jet3.51，则请改成jet4.0
如果使用了data控件，则请改成adodc控件

Answer 2

'贴一段用ADODB对象倒入TXT的代码：
   dim N as long
   Dim strSQL As String
   
   dim conn as New ADODB.Connection
   dim rs as New ADODB.Recordset
   
   strSQL = App.Path & "\Biblio.mdb"
   strSQL = Replace(strSQL, "\\", "\")
   
   With conn
       If .State = adStateOpen Then
          .Close
       End If
       .CursorLocation = adUseClient
       .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & strSQL
       .Open
   End With
     
   With rs
       .Open "Select * from Authors;", conn, adOpenStatic, adLockOptimistic
       If .BOF And .EOF Then
          msgbox "没有任何记录"
          Exit Sub
       End If
       .MoveFirst
       .movelast
       msgbox "有" & .recordcount & "条记录!"
       N = .recordcount
   End With   '写入TXT文件
   dim i as long
   dim j as long   open app.path & "\A.txt" for append as #1
   for i =1 to N
      for j =0 to (rs.Fields.Count-1)
         write #1,rs.Fields(j);
      next j
      write #1
   next i
   close #1

Answer 3

需要引用DAO3.6才能支持ACCESS2000数据

Answer 4

workspaces(0).opendatabase("c:\test.mdb")
这条语句是调用了DAO，如是ACCESS2000就必须引用Dao3.6
数据导入与导出是指什么？
如是导出到Excel则可这样写：
Set db = OpenDatabase(数据库名)
db.Execute "SELECT * INTO Sheet1 IN 'Excel文件名' 'Excel 5.0;' FROM 表名"