《IFIX实时数据通过ODBC转存到Oracle》由会员分享，可在线阅读，更多相关《IFIX实时数据通过ODBC转存到Oracle(7页珍藏版)》请在人人文库网上搜索。

1、一、通过脚本方式转存数据1. 在 Oracle 数据库中创建表 ICV表的各列与所要存储的信息一致，注意选择正确的数据格式。2. 设置 DSN；按照下列步骤设置 DSN：系统 DSN添加Microsoft ODBC for Oracle完成然后填写数据源名称、用户名称、服务器三项信息。通过这些步骤就完成了 DSN 的设置，参考过程如图所示：3. 在画面中添加定时器在工具栏中选择定时器，然后填写定时器名称，开始时间以及时间间隔，如图所示：4. 添加引用画面中右键属性编辑脚本，进入脚本编辑界面，在工具菜单中点击引用，填加引用控件Microsoft ActiveX Data Objects 2.0 。

2、library，如图所示：5. 添加脚本在定时器 Ontimeout 选项下添加脚本Dim conODBC As ADODB.Connection Dim adoRS As ADODB.Recordset Dim conODBC1 As ADODB.Connection Dim adoRS1 As ADODB.Recordset Dim connectstring As StringDim strQuery As String Dim dat As Date Dim tim As Dateconnectstring = Provider=MSDASQL.1;Persist Security I。

3、nfo=False;Data Source=FIX Dynamics Real Time Data;Mode=ReadWriteSet conODBC1 = New ADODB.ConnectionconODBC1.Open connectstringSet adoRS1 = New ADODB.Recordset adoRS1.CursorLocation = adUseClientadoRS1.Open SELECT * from FIX where A_TAG=D1or A_TAG=A1, conODBC1, adOpenDynamic, adLockBatchOptimisticstr。

4、Query = ICVSet conODBC = New ADODB.ConnectionconODBC.ConnectionString = DSN = GTMK; UID =gtmk; PWD =gtmk; Set adoRS = New ADODB.RecordsetconODBC.Open GTMK, gtmk, gtmkadoRS.Open strQuery, conODBC, adOpenDynamic, adLockPessimistic adoRS.MoveFirsttim = Time dat = DateIf adoRS.EOF = False Then adoRS.Mov。

5、eLastDo Until adoRS1.EOFWith adoRS.AddNew!Value = adoRS1.Fields(6).Value!Item = adoRS1.Fields(1).Value!Day = dat!Time = timadoRS.UpdateEnd WithadoRS1.MoveNextLoopadoRS.CloseadoRS1.CloseconODBC.CloseconODBC1.Close脚本说明如下图：保存运行之后，从 Oracle 数据库中可以查到如下数据：二、通过调度方式转存数据1. 新建调度在系统树中右键点击调度，选择新建调度，如图：2. 点击新建调度之后，双击名称弹出窗口，按窗口内容填写3. 编写脚本点击 VB 脚本编辑器，弹出脚本编辑界面，首先也需要引用 Microsoft ActiveX Data Objects 2.0 library，然后在脚本处编辑同上脚本，保存时填入调度的名称即可。