齐白石 喜蛛图:WINCC+VBS+ADO访问归档数据（V6.2测试通过）

来源：百度文库 编辑：九乡新闻网 时间：2024/04/29 07:01:51
Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)                                                 
Dim oList
Dim obj
Dim constr
Dim oRs
Dim objCom
Dim comstr
Dim m
Dim n
Dim oItem
Dim s
Dim k
Set oList=ScreenItems("控件5")
oList.View=3
oList.ListItems.Clear
Set obj=CreateObject("ADODB.Connection")
obj.CursorLocation=3
obj.Open "Provider=WinCCOLEDBProvider.1; Catalog=CC_TEST_WIN_10_08_02_17_29_24R;Data Source=.\WINCC"
Set oRs=CreateObject("ADODB.Recordset")
Set objCom=CreateObject("ADODB.Command")
comstr="TAG:R,'ProcessValueArchive\NewTag','2008-08-14 1:36:20','2008-08-14 1:44:20'"
Set objCom.ActiveConnection=obj
objCom.CommandText=comstr
Set oRs= objCom.Execute
m=oRs.Fields.Count
With oList
.ColumnHeaders.Clear
.ColumnHeaders.Add , , CStr(oRs.Fields(1).Name), 780
.ColumnHeaders.Add , , CStr(oRs.Fields(2).Name), 900
.ColumnHeaders.Add , , CStr(oRs.Fields(3).Name), 1050
.ColumnHeaders.Add , , CStr(oRs.Fields(4).Name), 1200
End With
If (m > 0) Then
oRs.MoveFirstDo While Not oRs.EOF 's = Left(CStr(oRs.Fields(1).value), 23)
s = CDate(oRs.Fields(1).value)k = DateAdd("h", 8, s)Set oItem = oList.ListItems.Add    'ListItem 代表一行oItem.Text = k  '第I行的行第一列
oItem.SubItems(1) = FormatNumber(oRs.Fields(2).value, 1) '第I行的行第二列
oItem.SubItems(2) = Hex(oRs.Fields(3).value) '第I行的行第三列
oItem.SubItems(3) = FormatNumber(oRs.Fields(4).value, 1) '第I行的行第四列oRs.MoveNext
Loop
oRs.Close
Else
End If
Set oRs = Nothing
Set obj=Nothing
Set objCom=Nothing
obj.Close
Set obj=Nothing
WINCC+VBS+ADO访问归档数据（V6.2测试通过 WINCC+VBS+ADO访问归档数据（V6.2测试通过） WINCC+VBS+ADO访问归档数据 闪回数据归档（Flashback Data Archive） ADO.NET的数据库访问小结 VC用ADO访问数据库全攻略 VB通过DAO访问Access数据库2 vb ado datagrid 数据导出到excel 使用VB或VBS访问WINCC6.0历史数据库 10g rac 归档 以及备份测试 ADO VC++6.0下使用ADO技术访问SQL 数据库 通过JavaMail访问Hotmail邮箱 使用JDBC进行数据访问 vb ado datagrid 数据导出到excel (转) 工程资料归档分类2 通过扩展数据功能收录重要数据 通达信于氏K线战法公式（测试通过） 通过数据来了解前列腺疾病 测试：通过坐姿看性格 ADO.Net都有哪些从数据库获取数据的方式 有关WINCC激活问题? VBS脚本运行库手册之——文件系统2 通过Excel数据有效性防止重复输入数据\\