查询多个归档变量的数据

精

奖

官

2219 产品版区：WinCC基本系统

文档类型：问题类别：产品选型问题类别：产品使用问题类别：故障诊断

Dim sPro
Dim sDsn
Dim sSer
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim oItem
Dim m, n, s,i
Dim hourdate
Dim secdate
Dim k
Dim oList
Dim objExcelApp
Dim oItem2
Dim dt1,dt2
dt1=DateAdd("H",-8,ScreenItems("控件12").VALUe) ‘查询的起始时间，wincc采用世界标准的格林时间，与咱的时间差8个小时
dt2=DateAdd("H",-8,ScreenItems("控件13").VAlUe) ‘查询的终止时间
‘下面三行代码是查询所需要的提供者数据源等等
sPro = "Provider=WinCCOLEDBProvider.1;"
sDsn = "Catalog=CC_0414_08_04_14_20_46_43R;" ‘改为你的wincc工程的数据库名，
‘打开sql有两个与你工程有关的，选择带R的那个
sSer = "Data Source=.\WinCC"

sCon = sPro + sDsn + sSer’查询链接串

sSql= "TAG:R,'ProcessValueArchive\"&ScreenItems("控件8").ValUe&"','"&dt1&"','"&dt2&"'"
‘上面这一句是查询语句，从SQL for wincc数据库中查询，可以多项查询，详见课本
MsgBox "Open with:" & vbCr & sCon & vbCr & sSql & vbCr
‘下面是ADODB查询，需要用到上面的查询链接串，不需要修改
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = sCon
conn.CursorLocation = 3
conn.Open
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActiveConnection = conn
oCom.CommandText = sSql
Set oRs = oCom.Execute’oRS为查询得到的记录集

Set objexcelApp=CreateObject("excel.application")
objexcelApp.visible=True
objexcelapp.workbooks.open"d:\book.xls"
objExcelApp.Sheets(1).Range("a"&Trim(1)) =oRs.Fields(0).Name ‘以下五行是把字段名写到excel的第一行, ，oRS.Fields(0)为查询得到的记录集的第一个字段
objExcelApp.Sheets(1).Range("b"&Trim(1)) = oRs.Fields(1).Name
objExcelApp.Sheets(1).Range("c"&Trim(1)) = oRs.Fields(2).Name
objExcelApp.Sheets(1).Range("d"&Trim(1)) = oRs.Fields(3).Name
objExcelApp.Sheets(1).Range("e"&Trim(1)) = oRs.Fields(4).Name

For i=1 To oRs.RecordCount ‘做循环查询

objExcelApp.Sheets(1).Range("a"&Trim(i+1)) =oRs.Fields(0).value
objExcelApp.Sheets(1).Range("b"&Trim(i+1)) =DateAdd("H",8,oRs.Fields(1).value) ’格林时间
objExcelApp.Sheets(1).Range("c"&Trim(i+1)) = FormatNumber(oRs.Fields(2).value, 1)
objExcelApp.Sheets(1).Range("d"&Trim(i+1)) = FormatNumber(oRs.Fields(3).value, 1)
objExcelApp.Sheets(1).Range("e"&Trim(i+1)) = FormatNumber(oRs.Fields(4).value, 1)
oRs.MoveNext
Next

oRs.Close’一下为关闭excel,关闭连接等，释放资源
‘objexcelapp.activeworkbooks.save
‘objexcelapp.workbooks.close
‘objexcelapp.quit
Set objexcelapp=nothing
Set oRs = Nothing
conn.Close
Set conn = Nothing
查询单个已经实现了，我看书上查询多个的语句是这么写的TAG:R,('valname1';'valname2'),----
上面那一步照葫芦画瓢能实现，可是继续应该怎么写呢？得到记录集oRs
譬如这两个变量都有四个字段，那么第一个变量对应oRs.Fields(1) oRs.Fields(2)
oRs.Fields(3) oRs.Fields(4)
第二个变量
对应oRs.Fields(5) oRs.Fields(6)
oRs.Fields(7) oRs.Fields(8) 吗？
如果不是应该怎么写呢