ifix实时数据通过odbc转存到oracle.docxVIP

一、通过脚本方式转存数据 在 Oracle 数据库中创建表 ICV 表的各列与所要存储的信息一致，注意选择正确的数据格式。 设置 DSN； 按照下列步骤设置 DSN： 系统 DSN——添加——Microsoft ODBC for Oracle——完成然后填写数据源名称、用户名称、服务器三项信息。 通过这些步骤就完成了 DSN 的设置，参考过程如图所示： 在画面中添加定时器 在工具栏中选择定时器，然后填写定时器名称，开始时间以及时间间隔，如图所示： 添加引用 画面中右键——属性——编辑脚本，进入脚本编辑界面，在工具菜单中点击引用，填加引用控件 Microsoft ActiveX Data Objects 2.0 library，如图所示： 添加脚本 在定时器 Ontimeout 选项下添加脚本 Dim conODBC As ADODB.Connection Dim adoRS As ADODB.Recordset Dim conODBC1 As ADODB.Connection Dim adoRS1 As ADODB.Recordset Dim connectstring As String Dim strQuery As String Dim dat As Date Dim tim As Date connectstring = Provider=MSDASQL.1;Persist Security Info=False;Data Source=FIX Dynamics Real Time Data;Mode=ReadWrite Set conODBC1 = New ADODB.Connection conODBC1.Open connectstring Set adoRS1 = New ADODB.Recordset adoRS1.CursorLocation = adUseClient adoRS1.Open SELECT * from FIX where A_TAG=D1or A_TAG=A1, conODBC1, adOpenDynamic, adLockBatchOptimistic strQuery = ICV Set conODBC = New ADODB.Connection conODBC.ConnectionString = DSN = GTMK; UID =gtmk; PWD =gtmk; Set adoRS = New ADODB.Recordset conODBC.Open GTMK, gtmk, gtmk adoRS.Open strQuery, conODBC, adOpenDynamic, adLockPessimistic adoRS.MoveFirst tim = Time dat = Date If adoRS.EOF = False Then adoRS.MoveLast Do Until adoRS1.EOF With adoRS .AddNew !Value = adoRS1.Fields(6).Value !Item = adoRS1.Fields(1).Value !Day = dat !Time = tim adoRS.Update End With adoRS1.MoveNext Loop adoRS.Close adoRS1.Close conODBC.Close conODBC1.Close 脚本说明如下图： 保存运行之后，从 Oracle 数据库中可以查到如下数据： 二、通过调度方式转存数据 新建调度 在系统树中右键点击调度，选择新建调度，如图： 点击新建调度之后，双击名称弹出窗口，按窗口内容填写 编写脚本 点击 VB 脚本编辑器，弹出脚本编辑界面，首先也需要引用 Microsoft ActiveX Data Objects 2.0 library，然后在脚本处编辑同上脚本，保存时填入调度的名称即可。