
Cnn.Execute "INSERT INTO ........"
的前面添加一行:On Error Resume Next
的后面添加一行:On Error Goto 0
这样重复数据就不报错了,当然是没有插入的,后面的数据也就可以继续插入了。
我知道本地连接,远程连接的话自己试试Dim con As New ADODB.Connection
Dim rst_gcl As New ADODB.Recordset
Dim rst_qm As New ADODB.Recordset
con.CursorLocation = adUseClient
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &数据库路径 &"Persist Security Info=False"
con.Open
set rst_gcl=con.execute("select * from merch")
sheet1.range("A1")=rst_gcl.fields("AA")
sheet1.cells(2,1)=rst_gcl.fields("BB")
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)