小弟我在网上查的一段代码，用WINCC6.2的按钮事件往SQL自定义数据库里写数据已经能够实现，但我还需要一个修改数据库指定行数据的代码，比如图片1中所示，将data1列里数值为8的行里data2/data3的数值改为代码中的data2和data3的值，由于小弟对数据库不熟悉，哪位好心人帮我改一下代码，万分感谢！
写数据代码：
问题补充：
按钮代码如下
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim Data1, Data2, Data3
data1=HMIRuntime.tags("DATA1").Read
data2=HMIRuntime.tags("DATA2").Read
data3=HMIRuntime.tags("DATA3").Read
Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=读写数据库2;Data Source=.\WINCC"
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
sSql="insert into dbo.data_test VALUES(''" &data1& "'',''" &data2&"'',''"&data3&"'');"
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
Set oCom.ActiveConnection = conn
oCom.CommandType = 1
oCom.CommandText = sSql
Set oRs = oCom.Execute
Set oRs = Nothing
conn.Close
Set conn = Nothing
End Sub
图片说明：
最佳答案
修改 sSql语句就可以了，把ssql语句改成：
sSql="update dbo.data_test set data2 = ''" & data2 & “‘,data3=''” & data3 & “‘ where data1=‘8’”
其它变
提问者对于答案的评价：
还没试，不过对不对也只能给你了，感谢！
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc199177.html
微信扫一扫 
支付宝扫一扫