电脑安装两套SQL，分别为一套WINCC 自带2005，另安装2008自用数据库
脚本读取EXCEL数据，内容name和变量点名。读取后保存内部地址。然后写入数据库2008.
烦请个位大咖帮我找一下问题。
Option Explicit
Function action
Dim DM(100)
Dim dm1(100)
Dim name(100)
Dim ss1(100)
Dim ss2(100)
Dim ss3(100)
Dim yl1(100)
Dim yl2(100)
Dim yl3(100)
Dim lj1(100)
Dim lj2(100)
Dim lj3(100)
Dim i
Dim database,server,uid,pwd
Dim stren,cn,is_sql
database="outdate"
server="SCADA1"
uid="sa"
pwd="sa"
stren="provider = SQLOLEDB.1;DRIVER = SQL SERVER;SERVER="&SERVER&";DATABASE="&DATABASE&";UID="&uid&";pwd="&pwd&""
'访问数据库、数据表、权限
Set cn = CreateObject("ADODB.Connection")
cn.Connectionstring = stren
cn.open
'执行打开数据库指令
'field1="T1_"
Dim Date
Date= Now
'取变量及变量名从execl文件里取变量名
Dim objExcelApp
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = False '不可见
objExcelApp.DisplayAlerts = False '不提示
objExcelApp.WorkBooks.Open "d:\Demo.xls"
Dim n
n=0
For i=0 To 18
n=n+1
name(i) = objExcelApp.worksheets("Sheet1").Cells(n, 1).Value
ss1(i) = objExcelApp.worksheets("Sheet1").Cells(n, 2).Value
yl1(i) = objExcelApp.worksheets("Sheet1").Cells(n, 3).Value
lj1(i) = objExcelApp.worksheets("Sheet1").Cells(n, 4).Value
Next
For i=0 To 18
Set DM(i)=HMIRuntime.Tags(CStr(name(i)))
dm1(i) = DM(i).READ
Set ss2(i)=HMIRuntime.Tags(CStr(ss1(i)))
ss3(i) = ss2(i).READ
Set yl2(i)=HMIRuntime.Tags(CStr(yl1(i)))
yl3(i) = yl2(i).READ
Set lj2(i)=HMIRuntime.Tags(CStr(lj1(i)))
lj3(i) = lj2(i).READ
Next
For i=0 To 18
is_sql="insert into Table_1(name,ss,yl,lj,date) values ('"&name(i)&"','"&ss3(i)&"','"&yl3(i)&"','"&lj3(i)&"','"&Date&"')"
cn.execute is_sql
Next
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp = Nothing
cn.close
End Function
EXCEL 表数据
站点1 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QB_1
站点2 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QM_1
站点3 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QB_1
站点4 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QM_1
站点5 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QB_1
站点6 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QM_1
站点7 JW_F1_TT_1
站点8 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QM_1
站点9 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QB_1
站点10 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QM_1
站点11 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QB_1
站点12 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QM_1
站点13 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QB_1
站点14 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QM_1
站点15 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QB_1
站点16 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QM_1
站点17 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QB_1
站点18 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QM_1
站点19 JW_F1_PT_1 JW_F1_TT_1 JW_F1_QB_1
最佳答案
呃，不知道for循环执行sql语句行不行，没这么使用过
您可以先不用for循环，测试sql语句成功之后，再分部分加入for循环测试
提问者对于答案的评价：
打读取EXCEL和FOR删除可以写入数据库。EXCEL读取还没有找到问题呢！
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc361838.html
微信扫一扫 
支付宝扫一扫 