ifix的MySQL数据库_vb6读取ifix实时数据库和历史数据库

vb6读取ifix实时数据库和历史数据库

(2017-07-02 21:35:08)

标签：

vb6

实时数据库

历史数据库

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