现在需要在一个脚本中同时用到yodata和insert两个函数，具体应该怎么用请高手指点一下
Dim objConnection
Dim strConnectionString
Dim strSQL
Dim strSQL1
Dim objCommand
Dim a,b,c,d,e,f,g
strConnectionString="Provider=MSDASQL;DSN=SampleDSN1;UID=;PWD=;"
a=HMIRuntime.Tags("ID").Read
b=HMIRuntime.Tags("DH").Read
c=HMIRuntime.Tags("Rank").Read
d=HMIRuntime.Tags("VA").Read
e=HMIRuntime.Tags("CO").Read
f=FormatDateTime(Now(),0)
strSQL1="UPDATE WinCC_DATA SET CH=’"&b&"’,Rank="&c&",CO=’"&e&"’,VA=’"&d&"’,CC=’"&f&"’ WHERE ID="&a&""
MsgBox"0"
strSQL="INSERT INTO WINCC_DATA1(ID,CH,Rank,VA,CO,DA)VALUES("&a&",’"&b&"’,"&c&",’"&d&"’,’"&e&"’,’"&f&"’);"
MsgBox"1"
Set objConnection=CreateObject("ADODB.Connection")
objConnection.ConnectionString=strConnectionString
objConnection.Open
Set objCommand=CreateObject("ADODB.Command")
MsgBox"a"
With objCommand
.ActiveConnection=objConnection
.CommandText=strSQL ‘strSQL1
End With
objCommand.Execute
Set objCommand=Nothing
objConnection.Close
Set objConnection=Nothing
End Sub
关键是.CommandText=strSQL ‘strSQL1
这句话应该怎么写。
最佳答案
Update和Insert肯定不是同时执行的吧，分开就可以了。
两段同样地代码，
Update用 .CommandText=strSQL1
Insert用 .CommandText=strSQL即可。
提问者对于答案的评价：
我已经实现了，加了一个do循环，不过还是谢谢你
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc276253.html
微信扫一扫 
支付宝扫一扫 
