查了一下午资料 这是我写的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