wincc与SQL数据库交换数据

wincc与SQL数据库交换数据

2007-5-14 21:52

提问者：43494538|悬赏分：10 |浏览次数：1948次

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