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