具体 *** 作修改一下连接字符串和sSql里的命令就可以了
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim Data1, Data2, Data3
‘读取wincc变量
Data1=HMIRuntimetags("编号")read
Data2=HMIRuntimetags("姓名")read
Data3=HMIRuntimetags("年龄")read
‘连接数据库
Con="Provider=SQLOLEDB1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=读写数据库;Data Source=\WINCC"
Set conn = CreateObject("ADODBConnection")
connConnectionString = Con
connCursorLocation = 3
connOpen
‘写入数据库
sSql="insert into个人信息VALUES('" & Data1 & "','" & Data2&"','"&Data3&"');"
Set oRs = CreateObject("ADODBRecordset")
Set oCom = CreateObject("ADODBCommand")
Set oComActiveConnection = conn
oComCommandType = 1
oComCommandText = sSql
Set oRs = oComExecute
Set oRs = Nothing
connClose
Set conn = Nothing
以上就是关于用SQL建立一个本地数据库,然后和WINCC建立连接,然后用VB读取和修改SQL数据库里面内容,最好是实例。全部的内容,包括:用SQL建立一个本地数据库,然后和WINCC建立连接,然后用VB读取和修改SQL数据库里面内容,最好是实例。、、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)