wincc读写sql(vbs).doc

? 1：首先在计算机的管理工具--(ODBC数据源管理器中，添加一个SQL SERVER的数据源。在此配置中：在服务器的连接上要选择WINCC的服务器。 2：然后在WINCC的图形编辑器中，在输入域的属性中，选择事件，再选择键盘的释放动作，在动作代码框中写下如下代码：Dim conn,rs Dim strsql Dim a a=HMIRuntime.Tags(tt_change).Read Set conn=CreateObject(adodb.connection)  Set rs=CreateObject(adodb.recordset)  conn.Provider = sqloledb  conn.open SERVER=MICROSOF-9176CF\WINCC;uid=sa;pwd=sa;database=TT_CHANGE If nChar = 13 Then  strsql=insert into tt_ch(TagValue)VALUES( a )  Set rs=conn.execute(strsql)  conn.close Set rs=Nothing  Set conn=Nothing End If?如此，即可实现WINCC的实时数据向SQL SERVER的数据写入！ WinCC读取Access数据库 wincc 2009-07-30 09:52:22 阅读240 评论1 ??字号：大中小?订阅 经测试该代码在WinCC和vbs文件中均可用可用 Dim objConn,objRs,strSqlSet objConn = CreateObject(ADODB.Connection)objConn.ConnectionString = provider=microsoft.jet.oledb.4.0;data source=d:\student.mdbobjConn.openSet objRs = CreateObject(ADODB.RecordSet)strSql = Select count(*) from 学生情况objRs.open strSql,objConn,1,2msgbox 学生情况表中共有 objRs(0) 条记录,8,记录统计:objRs.closeSet objRs = nothingobjConn.closeSet objConn = nothing????????????????????????????????????? Wincc读取远程非wincc数据库 Option ExplicitFunction action? ?Dim sCon? ?Dim sSql? ? ? ? ? ? Dim conn? ? ? Dim oRs? ? ? Dim oCom? ? ? Dim i? ? ? ? ? ? Dim temvalue,objtag? ? ? ? ? ? sCon = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=CTMDBN;Data SouRCe=1? ?sCon=Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=CTMDBN;Data Source=1 ? ? ? ? ? ? sSql = SELECT Temperature FROM channelinfo?? ? ? 2.1 Make connection? ?Set conn = CreateObject(ADODB.Connection)? ?conn.ConnectionString = sCon? ?conn.Open? ?? ? ? ? 2.2 Use command text for query? ?Set oRs = CreateObject(ADODB.Recordset)? ?Set oCom = CreateObject(ADODB.Command)? ?? ?Set oCom.ActiveConnection = conn? ?oCom.CommandText = sSql? ? ? 2.3 Fill the recordset? ?Set oRs = oCom.Execute?? ? 3.0 Fill standard iofields obj