西门子WINCC数据库脚本.pdf

《西门子WINCC数据库脚本.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、readdata.txtSubOnClick(ByValItem)DimxlsAppDimsDsnDimsSerDimsConDimsSqlDimconnDimoRsDimoComDimsProDimm,n,sDima,b,csPro="Provider=WinCCOLEDBProvider.1;"sDsn="Catalog=CC_vbs_08_05_26_14_56_45R;"//该为自己的数据库名称sSer="DataSource=.WinCC"sCon=sPro+sDsn+sSer//该为自己的归档名称和变

2、量名称sSql="Tag:R,('ProcessValueArchivetag1';'ProcessValueArchivetag2'),'2008-07-200:32:00.000','2008-07-217:34:00.000'"MsgBox"Openwith:"&vbCr&sCon&vbCr&sSql&vbCrSetconn=CreateObject("ADODB.Connection")conn.ConnectionString=sConconn.CursorLocation=3conn.OpenSet

3、oRs=CreateObject("ADODB.Recordset")SetoCom=CreateObject("ADODB.Command")oCom.CommandType=1SetoCom.ActiveConnection=connoCom.CommandText=sSqlSetoRs=oCom.Executem=oRs.Fields.CountSetxlsApp=CreateObject("Excel.Application")xlsApp.Visible=TruexlsApp.Workbooks.Open

4、"E:sample.xls"xlsApp.Cells(10,2).Value=6If(m>0)ThenoRs.MoveFirstn=1xlsApp.Cells(1,1).Value=oRs.Fields(0).NamexlsApp.Cells(1,2).Value=oRs.Fields(1).NamexlsApp.Cells(1,3).Value=oRs.Fields(2).NamexlsApp.Cells(1,4).Value=oRs.Fields(3).NamexlsApp.Cells(1,5).Value=

5、oRs.Fields(4).NameDoWhileNotoRs.EOFn=n+1xlsApp.Cells(n,1).Value=oRs.Fields(0).ValuexlsApp.Cells(n,2).Value=oRs.Fields(1).ValuexlsApp.Cells(n,3).Value=FormatNumber(oRs.Fields(2).Value,2)xlsApp.Cells(n,4).Value=Hex(oRs.Fields(3).Value)xlsApp.Cells(n,5).Value=Hex

6、(oRs.Fields(4).Value)oRs.MoveNextLoopxlsApp.ActiveWorkBook.SavexlsApp.Workbooks.ClosePage1readdata.txtxlsApp.QuitSetxlsApp=NothingEndIfoRs.CloseSetoRs=Nothingconn.CloseSetconn=NothingEndSub尊敬的客户，您好！感谢您垂询工业自动化与驱动技术集团技术支持与服务热线！重要声明：由于此次修复过程为后台代码级修复，并且全过程完全免费，我们不

7、确定项目本身及修复过程是否会产生未知的错误。所以，应用此附件的项目在投产之前，请对此附件进行严格的测试，使用该项目文件的风险完全由用户自行承担。Page2