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

rs_r.Open "select * from fix where a_name in ('AI','DI')",

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

分享：

喜欢

0

赠金笔

加载中，请稍候......

评论加载中，请稍候...

发评论

登录名： 密码： 找回密码 注册记住登录状态

昵   称：

评论并转载此博文

发评论

以上网友发言只代表其个人观点，不代表新浪网的观点或立场。