查询多个归档变量的数据

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) 吗?
 如果不是应该怎么写呢

问题补充:
就是查询多个变量然后写入到Excel中啊

最佳答案

第二个变量不是 oRs.Fields(5)  这样排下去,它是字段固定,数据依次向后罗列的!

提问者对于答案的评价:
先到者先得了,谢谢各位帮助,的确如你们所说,数据依次所列

原创文章,作者:more0621,如若转载,请注明出处:https://www.zhaoplc.com/plc274284.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2019年6月11日
下一篇 2019年6月11日

相关推荐