按时间查询报警记录 用到控件为listView,textbox,progctrl,ImageComboCtrl Sub X6309X94AE1X0000X59CB_X6309X94AE1X0000X0000_X6309X94AE1X0000X0058_X6309X94AE1X00009_OnClick(ByVal Item) Dim sPro Dim sDsn Dim sSer Dim sCon Dim sSql Dim oRs Dim conn Dim oCom Dim oItem Dim comItem Dim m, n, s Dim oList Dim T1,T2,T3,T4,T5,T6,record1,record2 Dim a,b Set oList = ScreenItems("ListView1") Set T1=ScreenItems("T1") Set T2=ScreenItems("T2") Set T6=ScreenItems("2") Set T3=ScreenItems("3") Set T4=ScreenItems("4") Set T5=ScreenItems("pro") Set record1=ScreenItems("5") Set record2=ScreenItems("6") oList.View =3 oList.ListItems.Clear T1.ComboItems.Clear T2.ComboItems.Clear sPro = "Provider=WinCCOLEDBProvider.1;" sDsn = "Catalog=CC_HJ_07_08_19_17_28_13R;" sSer = "Data Source=.\WINCC" sCon = sPro + sDsn + sSer sSql = "ALARMVIEW:Select * FROM AlgViewCHT WHERE DateTime>'"+Trim(T1.Text)+"' AND DateTime<'"+Trim(T2.Text)+"'" 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 m =oRs.RecordCount T6.OutputValue=m With oList .ColumnHeaders.Clear .ColumnHeaders.Add , , CStr(oRs.Fields(2).Name), 120 .ColumnHeaders.Add , , CStr(oRs.Fields(0).Name),60 .ColumnHeaders.Add , , CStr(oRs.Fields(1).Name), 60 .ColumnHeaders.Add , , CStr(oRs.Fields(37).Name), 120 End With If (m > 0) Then oRs.MoveLast record2.OutputValue=oRs.Fields(2).value oRs.MoveFirst Do While Not oRs.EOF If n=0 Then record1.OutputValue=oRs.Fields(2).value End If n = n + 1 T5.Max=m T5.Value=n s = oRs.Fields(2).value Set comItem=T1.ComboItems.Add() comItem.Text = s Set comItem=T2.ComboItems.Add() comItem.Text = s Set oItem = oList.ListItems.Add() oItem.Text = s oItem.SubItems(1) = CStr(oRs.Fields(0).value) oItem.SubItems(2) = CStr(oRs.Fields(1).value) oItem.SubItems(3) = CStr(oRs.Fields(37).value) If Trim(oRs.Fields(37).value)="上限值" then a=a+1 End If T3.OutputValue=a If Trim(oRs.Fields(37).value)="下限值" then b=b+1 End If T4.OutputValue=b oRs.MoveNext Loop oRs.Close Else End If Set oRs = Nothing Set conn = Nothing End Sub
