查了一下午资料 这是我写的VBS程序 用来写数据到SQL数据库 程序还是不能正常运行 到cn.open语句时停止 请各位高手指点一下 万分感谢
Dim strcn,cn,a,b,c
Dim is_SQL,rscom
Set cn=CreateObject("ADODB.Connection")
Set rscom=CreateObject("ADODB.Recordset")
a=HMIRuntime.Tags("text").Read
b=HMIRuntime.Tags("text1").Read
c=HMIRuntime.Tags("text2").Read
strcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=banpi;Data Source=123\wincc"
'banpi是在SQL数据库建立的database,123是wincc中建立的项目
cn.ConnectionString=strcn
is_SQL ="insert into panpi(yuanliao,chang,kuan) Values('"&a&"','"&b&"','"&c&"')"
'panpi是banpi数据库下的一个table
cn.open
'测试时 程序到这里不往下走 应该是连接SQL数据库出错了吧
cn.Execute is_SQL
cn.close
最佳答案
我觉得这里有几个问题有点奇怪：
1、Data Source应该是计算机名\WINCC，而不是项目名\WINCC，具体的你可以打开SQL Server看就知道了；
2、SQL语句insert into后面应该是Table的名字，不然都不知道插入到什么地方去；
3、is_SQL后面的双引号里面又有双引号，似乎不妥，建议你把里面的改成两个单引号，然后把这句SQL在SQL Query Analyzier中运行看看；
4、不知道你的数据库是怎样的，提醒你在strcn中可能还需要用户名和密码信息的；
5、如果还是有问题，建议你可以建立一个ADODB.command，用它来执行is_SQL也可以。
提问者对于答案的评价：
好
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc278946.html
微信扫一扫 
支付宝扫一扫