打印本文 打印本文  关闭窗口 关闭窗口  
ACCESS数据库与dat文件的导入导出
作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:56:15  文章录入：杜斌  责任编辑：杜斌
 
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 select *  from [Text;HDR=YES;DATABASE=d:\].a.dat"
End Sub
 
打印本文 打印本文  关闭窗口 关闭窗口