ACCESS數(shù)據(jù)庫(kù)與dat文件的導(dǎo)入導(dǎo)出

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"
     ’導(dǎo)出
     cn.Execute "SELECT * into [Text;HDR=YES;DATABASE=d:\].a.dat from students"
     ’導(dǎo)入
     cn.Execute "insert into students select * from [Text;HDR=YES;DATABASE=d:\].a.dat"
    End Sub