小弟我在网上查的一段代码,用wincc6.2的按钮事件往SQL自定义数据库里写数据已经能够实现,但我还需要一个修改数据库指定行数据的代码,比如图片1中所示,将data1列里数值为8的行里data2/data3的数值改为代码中的data2和data3的值,由于小弟对数据库不熟悉,哪位好心人帮我改一下代码,万分感谢!
写数据代码:
问题补充:
按钮代码如下
SubOnLButtonDown(ByvalItem,ByvalFlags,Byvalx,Byvaly)
DimsCon
DimsSql
DimoRs
Dimconn
DimoCom
DimCon
DimData1,Data2,Data3
data1=HMIRuntime.tags("DATA1").Read
data2=HMIRuntime.tags("DATA2").Read
data3=HMIRuntime.tags("DATA3").Read
Con="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersiSTSecurityInfo=False;InitialCatalog=读写数据库2;DatASourCE=.\WINCC"
Setconn=CreateObject("ADODB.Connection")
conn.ConnectionString=Con
conn.CursorLocation=3
conn.Open
sSql="inseRTintodbo.data_testVALUES(”"&data1&"”,”"&data2&"”,”"&data3&"”);"
SetoRs=CreateObject("ADODB.Recordset")
SetoCom=CreateObject("ADODB.Command")
SetoCom.ActiveConnection=conn
oCom.CommandType=1
oCom.CommandText=sSql
SetoRs=oCom.Execute
SetoRs=Nothing
conn.Close
Setconn=Nothing
EndSub
图片说明:
331c439dbcfe457c8FC48cd674871b0f
最佳答案
修改sSql语句就可以了,把ssql语句改成:
sSql="updatedbo.data_testsetdata2=”"&data2&“‘,data3=””&data3&“‘wheredata1=‘8’”
其它变
提问者对于答案的评价:
还没试,不过对不对也只能给你了,感谢!