被夸漂亮怎么谦虚回复:WINCC+VBS+ADO访问归档数据(V6.2测试通过
来源:百度文库 编辑:九乡新闻网 时间:2024/04/29 08:43:03
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
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访问归档数据
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 (转)
闪回数据归档(Flashback Data Archive)
工程资料归档分类2
通过扩展数据功能收录重要数据
通过数据来了解前列腺疾病
测试:通过坐姿看性格
ADO.Net都有哪些从数据库获取数据的方式
有关WINCC激活问题?
VBS脚本运行库手册之——文件系统2
通过Excel数据有效性防止重复输入数据\\
通过Excel数据有效性防止重复输入数据1