关于wincc和sql交换数据

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

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日
下一篇 2019年6月11日

相关推荐