wincc用vbs脚本写入sqlserver数据库

►卷序号real原料埔岩nchtr10■目标realp_NMI5real P[MI5-30]real PMI30real P[MI30-60]real PMI60real P7TIME datetimeX.----------------------------首先建立数据库与数据表如图沙库名Diagrams完成以上工作后在wince页面内添加一个按钮，在按钮事件单击鼠标中加入输入以下代码:□LJTables表内容Dim dataLdata2,data3,data4,data5,data6,data7,data8\i****************娄攵财心百***********************’此处例子为给定数据也可直接读取田变量田datal=5004data2=1234data3=5data4=

5.2data5=

5.8data6=10data7=

10.33483data7=42彳乍库***************i******************i******************定义-g-***************Dim sSql,sSql2,sSql3,sSql4,m,nDim sCom,sCom2Dim oRs,oRs2Dim connDimoCom,oCom2Dim Coni*****************仓|j娄^扼j库按*****************连接数据库，此处为数据库连接的标准语法结构Con=Provider=SQLOLEDB.l;Integrated Security=SSPI;Persist Securitylnfo=False;InitialCatalog=DH;Data Source=.\WINCCSet conn=CreateObject,,ADODB.ConnectionHconn.ConnectionString=Con conn.CursorLocation=3conn.Openi*****************仓|j建彳乍娄^库.语句*****************’创建查询数据库语句；写入之前查询生产编号是否重复sSql2=select*from dateWHERE釜序号/datal sSql4=select*from AT300WHERE釜序号二datal创建写入数据库语句，将变量的值写到建好的数据库的列中，注意，数据的格式一定要统EEESOsSql=insert intodate釜序号，原料编号,目标,M5[MI5-30],MI30,[MI30-60],MI60/nMEVALUES，，，，，，，，，，，，，，，{,,,datal,7,data2,7Hdata3,7,data4,7data7,7data5,7data8,7datasSql3=UPDATE AT300SET结果值二data4“‘WHERE釜序号=datal’执行查询语句Set oRs2=CreateObjectADODB.RecordsetSet oCom2=CreateObjectADODB.CommandSet oCom

2.ActiveConnection=connoCom

2.CommandType=loCom

2.CommandText=sSql2Set oRs2=oCom

2.Executem=oRs

2.RecordCountoCom

2.CommandText=sSql4Set oRs2=oCom

2.Executen=oRs

2.RecordCount’创建写入数据库连接，语句也是数据库的标准语法，对数据库进行操作时，所需要的属性和方法Set oRs=CreateObjectADODB.RecordsetSet oCom=CreateObjectADODB.CommandSet oCom.ActiveConnection=connoCom.CommandType=l’判断查询结果该产编号是否存在If m=0ThenoCom.Co mmandText=sSq ISet oRs=oCom.ExecuteElseMsgBOX””datal“数据已存在“End IfIfn0ThenoCom.CommandText=sSql3Set oRs=oCom.ExecuteElseEnd If，关闭所有连接释放资源SetoRs=NothingSet oRs2=Nothingconn.CloseSet conn=NothingMsgBOX”完成“代码完成后编译保存然后运行wince程序，点击按钮执行程序后查询数据库内容100%▼41釜序号原料编号目标MI5MI5-30MI30MI30-60MI60TIMEJ__5001123123000002020-10-2614:55:

46.0005002123352017381133NULL2___

25003234615077.7777892020-10-2317:03:

01.0003___J__

5004123455.

210.

344835.842102020-11-1814:25:

56.000这样我们就完成了wince利用vbs脚本写入本地数据库的工作需要注意以下几点内容

1.wince写入数据库功能必须基于wince安装连通性软件包

2.在创建连接语句时一定要注意数据名称与服务器名称，此例子中笔者利用自己的电脑测试所以服务器名称是我自己的服务器名称，每个人安装sqlserver时的服务器名称未必一样，此事要重视，就是连接语句标红部分Con二,,Provider二SQLOLEDB.l;Integrated Security=SSPI;Persist Securitylnfo=False;Initial Catalog=DH;Data Source=.\WINCC此例子笔者未对服务器增加密码，对于有密码的服务器连接语句要增加账号密码登录语句；Password=*****;Persist Securitylnfo=True;llser ID=***;下次给大家分享读取数据库内容显示到控件上并导出excel表格。