问wincc如何将变量（s7300和内部变量）通过按钮写入数据库，并可以通过另外一个按钮对时间范围内保存的数据进行读写，打印
最佳答案
自己建立一个数据库就可以了,以下脚本是在dbuser下建立的表格table1中插入数据，仅供参考：
DimcnnASSTring
cnn="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=dbuser;DataSourCE=ComputerName\wincc"
Setcc1=CreateObject("adodb.connection")
cc1.ConnectionString=cnn
cc1.CursorLocation=3
cc1.Open
DimrstAsObject
Setrst=CreateObject("adodb.recordset")
DimssqlAsString
ssql="inseRTintotable1values(””登入时间””,””登录用户名””,””登录其它信息””)"
cc1.Close
Setcc1=Nothing
Setrst=Nothing
查询的话把ssql语句改成select格式，至于你查询出来要怎么处理就看你的了，网上也很多这样的例子。给你一个查询归档数据到excel表格的例子，供参考：
DimcnnAsString
cnn="provider=WinCCOLEDBProvider.1;catalog=CC_gz_food_09_07_14_14_54_22R;datasource=wincc01\WinCC"
dimcc1asobject
Setcc1=CreateObject("adodb.connection")
cc1.ConnectionString=cnn
cc1.CursorLocation=3
cc1.Open
DimrstAsObject
Setrst=CreateObject("adodb.recordset")
Dimfname
fname="e:\baobiao\report.xls"
DimObjExcelApp
SetobjExcelApp=CreateObject("Excel.Application")
objExcelApp.Workbooks.Openfname
Dimi
i=4
DimssqlAsString
ssql="TAG:R,”speed1\c_speed1_1”,”2009-09-2409:19:00.000”,”2009-09-2409:20:00.000”"
rst.Openssql,cc1
rst.MoveFirst
objExcelApp.worksheets("sheet1").Cells(i,2).VAlue=rst.fields(1).value
objExcelApp.worksheets("sheet1").Cells(i,3).VAlue=rst.fields(2).value
objExcelApp.worksheets("sheet1").Cells(i,4).VAlue=rst.fields(3).value
cc1.Close
objEXcelApp.ActiveWorkbook.Save
objEXcelApp.workbooks.close
objExcelApp.Quit
Setcc1=Nothing
Setrst=Nothing
SetobjExcelApp=Nothing
提问者对于答案的评价：
thanky
