我想把wincc的数据用VBS读到sql中，便于以后查询，或者导出到EXCEL，还可以打印，但是里面有很多的错误，帮忙各位高人看看！
Dim jihao,erhao,strcn
Dim cn,strsql,com,con,cd
'读取wincc变量
Set jihao=HMIRuntime.Tags("DATA1").read
Set erhao=HMIRuntime.Tags("DATA2").read
'连接数据库
strcn="Provider=SQLOLEDB.1 Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=muyuan;Data Source=\wincc"
'muyuan是在SQL数据库
Set cn=CreateObject("ADODB.Connection")
cn.ConnectionString = strcn
cn.CursorLocation = 3
cn.Open
'写入数据
strsql = "insert into muyuanbiao values(' & jihao & ',' & erhao & ')"
Set com=CreateObject("ADODB.Recordset")
Set con=CreateObject("ADODB.Rommand")
Set con.ActiveConnection=cn
con.CommandType=1
con.CommandText=strsql
Set cd=con.Execute
Set cd=Nothing
cn.Close
Set cn=Nothing
最佳答案
读写用户归档:建立连接Setconn=CreateObject("ADODB.Connection")conn.open"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;
PersistSecurityInfo=false;
InitialCatalog=CC_OpenArch_03_05_27_14_11_46R;
DataSource=.\WinCC"读值SELECT*FROMUA#<ArchiveName>[WHERE<Condition>....,optional]写值UPDATE*UA#<ArchiveName>.<Column_n>=<Value>[WHERE<Condition>....,optional]因为用户归档使用的是SQL数据库，
所以你读写外部SQL数据库也是一致的，SQL语法都是一样的，只是建立数据库连接时，将数据库名该为你的外部数据库名即可。
参考：《WinCC数据开放_201006》
http://www2.ad.siemens.com.cn/download/Html/download.aspx?DownloadId=4100&TreeId=9&Url=%2Fdownload%2FUpload%2FAS%2Fapplication%2FA0459.pdf
提问者对于答案的评价：
谢谢
专家置评
已阅，最佳答案正确。
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc295412.html
微信扫一扫 
支付宝扫一扫 