'用ado实现 '工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)Private Sub Form_Load() Dim cn As New ADODB.Connection '连接sql库 cn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=ljx" '自动在sql库里建表newTable1,并把当前目录下text.mdb的table1表的数据导进newTable1表里 cn.Execute ("SELECT * Into newTable1 FROM OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0', 'Data Source=" & App.Path & "\test.mdb;User ID=Admin;Password=' )...table1") cn.Close Set cn=Nothing End Sub
再写入到SQL SERVER.
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)Private Sub Form_Load()
Dim cn As New ADODB.Connection
'连接sql库
cn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=ljx"
'自动在sql库里建表newTable1,并把当前目录下text.mdb的table1表的数据导进newTable1表里
cn.Execute ("SELECT * Into newTable1 FROM OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0', 'Data Source=" & App.Path & "\test.mdb;User ID=Admin;Password=' )...table1")
cn.Close
Set cn=Nothing
End Sub
这里面格式都是这样的吗?有没有写错啊!请斟酌!!