Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim Data1, Data2, Data3
'读取wincc变量
Data1=HMIRuntime.tags("number").read
Data2=HMIRuntime.tags("name").read
Data3=HMIRuntime.tags("age").read
'连接数据库
Con="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DUXIESHUJUKU;Data Source=.\WINCC"
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = Con
conn.CursorLocation = 3
conn.Open
'写入数据库
sSql="insert into gerenxinxi1 (number,name,age)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
最佳答案
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’释放数据库链接句柄
提问者对于答案的评价：
谢谢你回答我的问题，可以给我点资料吗？我的qq：869191338
下面是我遇到的有一个问题
我在name变量中输入汉字例如“张”数据库中显示的是“？”，输入“zhang”数据库中可以显示“zhang”不知道怎么回事啊？
最佳答案作者回复:
这应该是你的系统问题，你试试手动向数据库中写入“张”看看。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc173228.html
微信扫一扫 
支付宝扫一扫 