急急急急急急急急急！vb中，如何实现access 数据库数据的导入导出，初学者请求源代码，谢谢

[root60931]

vb中，如何实现access 数据库的导入导出，初学者请求源代码，谢谢

[射天狼]

导出为什么文件,由什么导入?!(&$#(*

[root60931]

程序控制导出，导出为本程序可识别的自定义格式，以便一段时间后，可由程序再将其到入到access中，（导入或导出 部分或全部access数据）

[online]

引用dao3.51
Option Explicit
Dim db As Database

Private Sub Command1_Click()
Command1.Enabled = False
db.Execute "SELECT * INTO [dBase III;DATABASE=C:\].[authors.DBF] FROM [authors]"
Command1.Enabled = True
End Sub

Private Sub Command2_Click()
Command2.Enabled = False
db.Execute "SELECT * INTO [Text;DATABASE=C:\].[authors.TXT] FROM [authors]"
Command2.Enabled = True
End Sub

Private Sub Command3_Click()
Command1.Enabled = False
db.Execute "SELECT * INTO [HTML Export;DATABASE=C:\].[authors.HTM] FROM [authors]"
Command1.Enabled = True
End Sub

Private Sub Command4_Click()
Command1.Enabled = False
db.Execute "SELECT * INTO [Excel 8.0;DATABASE=C:\authors.XLS].[authors] FROM [authors]"
Command1.Enabled = True
End Sub

Private Sub Form_Load()
Command1.Enabled = False
Set db = Workspaces(0).OpenDatabase(App.Path & "\biblio.mdb")
Command1.Enabled = True
End Sub