3 Driver do Microsoft Access (*.mdb) hisdata IFIX 1.4

Size: px

Start display at page:

Download "3 Driver do Microsoft Access (*.mdb) hisdata IFIX 1.4"

典祁
6 years ago
Views:

1 IFix3.5 ACCESS ACCESS hisdata D:\Dynamics\SampleSystem\HistoricalData ODBC DSN hisdata 1 ODBC

2 3 Driver do Microsoft Access (*.mdb) hisdata IFIX 1.4

3 1.4 5 Access ODBC ifix

4 1.6 Alarm ODBC Service 1.7 ODBC 1.8 4

5 Access

hisdata 1.8 1.7 1.6 ifix3.5 ifix3.5 CTRl+W 2.1 ifix1_alarm_history_query.

6 hisdata ifix3.5 ifix3.5 CTRl+W 2.1 ifix1_alarm_history_query.grf 1 MSHFlexGrid Grid1 1 ComboBox alarmarea 4 DTPicker StartDTPicker StartTTPicker EndDTPicker EndTTPicker 4 Text 1 CommandButton (cmdok) MSHFlexGrid ComboBox DTPicker CommandButton 6

7 2.1 ADO 2.2 7

8 Dim rdate, rdate1, tag, tt, dt Dim StartTime, EndTime As String Private Sub CFixPicture_Initialize() With alarmarea.additem "BATCH_PRODUCTION".AddItem "Discrete_Mfg".AddItem "Pharm_Process".AddItem "Waste_Water".AddItem "ALL".Text = "ALL" End With rdate = Date rdate = Format(rdate, "yyyy-mm-dd") rdate = rdate & " 00:00:00" StartDTPicker = rdate StartDTPicker1 = rdate rdate1 = Date rdate1 = Format(rdate1, "yyyy-mm-dd") tt = Time tt = Format(tt, "hh:mm:ss") rdate1 = rdate1 & " " & tt EndDTPicker = rdate1 EndTTPicker = Time EndDTPicker1 = rdate1 EndTTPicker1 = Time StartTime = rdate EndTime = rdate1 CFixPicture_Initialize alarmarea Private Sub cmdok_click() Dim strqueryavg, strqueryavg1, strqueryavg2, strqueryavg3 As String Dim str As String Dim Querytime As String str = "" 8

9 If alarmarea.text <> "ALL" Then str = alarmarea.text End If strqueryavg = "SELECT FIXALARMS.ALM_DATEIN,FIXALARMS.ALM_TIMEIN,FIXALARMS.ALM_DATELAS T,FIXALARMS.ALM_TIMELAST,FIXALARMS.ALM_TAGNAME,FIXALARMS.ALM_D ESCR, FIXALARMS.ALM_VALUE,FIXALARMS.ALM_ALMAREA, FIXALARMS.ALM_OPFULLNAME, FIXALARMS.ALM_OPNODE FROM FIXALARMS" strqueryavg1 = " WHERE (FIXALARMS.ALM_ALMAREA LIKE '%" & str & "%')" strqueryavg2 = " AND (FIXALARMS.ALM_NATIVETIMELAST BETWEEN {ts '" & StartTime & "'} AND {ts '" & EndTime & "'})" strqueryavg3 = " ORDER BY FIXALARMS.ALM_NATIVETIMELAST DESC" strqueryavg = strqueryavg & strqueryavg1 & strqueryavg2 & strqueryavg3 Dim i, j As Integer Dim cnado As New ADODB.Connection Dim rsado As Recordset Set cnado = New ADODB.Connection cnado.connectionstring = "DSN = hisdata; UID = sa; PWD = ;" cnado.open "hisdata", "sa", "" Set rsado = New ADODB.Recordset rsado.cursorlocation = aduseclient rsado.open strqueryavg, cnado, adopendynamic, adlockunspecified, -1 If rsado.recordcount > 5000 Then MsgBox " 5000 " Exit Sub End If Set Grid1.DataSource = rsado Set cnado = Nothing With Grid1.TextMatrix(0, 1) = " ".TextMatrix(0, 2) = " ".TextMatrix(0, 3) = " ".TextMatrix(0, 4) = " ".TextMatrix(0, 5) = "TAGNAME".TextMatrix(0, 6) = " ".TextMatrix(0, 7) = " ".TextMatrix(0, 8) = " " 9

10 .TextMatrix(0, 9) = " ".TextMatrix(0, 10) = " ".ColWidth(0) = 500.ColWidth(1) = 1000.ColWidth(2) = 1250.ColWidth(3) = 1000.ColWidth(4) = 1250.ColWidth(5) = 2250.ColWidth(6) = 2000.ColWidth(7) = 1500.ColWidth(8) = 1500.ColWidth(9) = 1500.ColWidth(10) = 1200.ColWidth(11) = 1200 End With For i = 1 To Grid1.Rows - 1 Grid1.TextMatrix(i, 0) = i Next cmdok_click Grid1 SQL SELECT WHERE LIKE BETWEEN AND ORDER BY SQL Private Sub EndDTPicker_Change() dt = EndDTPicker dt = Format(dt, "yyyy-mm-dd") tt = EndTTPicker.Hour & ":" & EndTTPicker.minute & ":" & EndTTPicker.second tt = Format(tt, "hh:mm:ss") EndTime = dt & " " & tt Private Sub EndTTPicker_Change() dt = EndDTPicker dt = Format(dt, "yyyy-mm-dd") tt = EndTTPicker.Hour & ":" & EndTTPicker.minute & ":" & EndTTPicker.second tt = Format(tt, "hh:mm:ss") EndTime = dt & " " & tt 10

11 Private Sub StartDTPicker_Change() dt = StartDTPicker dt = Format(dt, "yyyy-mm-dd") tt = StartTTPicker.Hour & ":" & StartTTPicker.minute & ":" & StartTTPicker.second tt = Format(tt, "hh:mm:ss") StartTime = dt & " " & tt Private Sub StartTTPicker_Change() dt = StartDTPicker dt = Format(dt, "yyyy-mm-dd") tt = StartTTPicker.Hour & ":" & StartTTPicker.minute & ":" & StartTTPicker.second tt = Format(tt, "hh:mm:ss") StartTime = dt & " " & tt SQL SQL SERVER ACCESS SQL SERVER ODBC DSN SQL Server 11

ThreeDtunnel.doc

ThreeDtunnel.doc (12) 1 1. Visual Basic Private Sub LoadDatabase() Dim strip As String Dim straccount As String Dim strpassword As String Dim strdatabase As String Dim strtable As String Dim strsql As String Dim strtemp1