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