以下是导入EXCEL到SQL SERVER的VBS脚本,希望能在导入重复数据时,直接忽略,继续导入不重复的数据。

以下是导入EXCEL到SQL SERVER的VBS脚本,希望能在导入重复数据时,直接忽略,继续导入不重复的数据。,第1张

在下面这个语句:

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")


欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/sjk/6462277.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-03-22
下一篇2023-03-22

发表评论

登录后才能评论

评论列表(0条)

    保存