ifix读写mysql_[转载]vb6读取ifix实时数据库和历史数据库

VB6窗口里添加两个DataGrid控件和一个DataList控件(OLEDB),源码如下

Option Explicit

Dim rs_h As Recordset, rs_r As Recordset

Dim connstr_real As String, connstr_hist As String

Private Sub Form_Load()

Set rs_r = New Recordset

Set rs_h = New Recordset

rs_r.CursorLocation = adUseClient

rs_h.CursorLocation = adUseClient

connstr_hist = "Provider=Microsoft OLE DB Provider for ODBC

Drivers; " + "DSN=FIX Dynamics Historical Data;UID=;PWD=;"

connstr_real = "Provider=Microsoft OLE DB Provider for ODBC

Drivers; " + "DSN=FIX Dynamics Real Time Data;UID=;PWD=;"

If rs_r.State <> 0 Then rs_r.Close

If rs_h.State <> 0 Then rs_h.Close

rs_r.Open "select * from fix where a_name in (&＃39;AI&＃39;,&＃39;DI&＃39;)",

connstr_real, adOpenKeyset, adLockOptimistic

rs_h.Open "select * from fix", connstr_hist, adOpenKeyset,

adLockOptimistic

Set Me.DataGrid1.DataSource = rs_r

Set Me.DataGrid2.DataSource = rs_h

Set Me.DataList1.DataSource = rs_r

Set Me.DataList1.RowSource = rs_r

Me.DataList1.ListField = "A_TAG"

End Sub