ACCESS数据库与dat文件的导入导出

文章作者 100test 发表时间 2007:03:10 17:35:02
来源 100Test.Com百考试题网

Private Sub Form_Load()
Dim cn As New ADODB.Connection
If cn.State = 1 Then
cn.Close
End If
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0.Data Source=" &. App.path &. "\db1.mdb"

’导出
cn.Execute "SELECT * into [Text.HDR=YES.DATABASE=d:\].a.dat from students"
’导入
cn.Execute "insert into students 0select * from [Text.HDR=YES.DATABASE=d:\].a.dat"
End Sub