[原创]实时将交易信息写入ACCESS数据库 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [原创]实时将交易信息写入ACCESS数据库

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有6488人关注过本帖树形打印复制链接主题：[原创]实时将交易信息写入ACCESS数据库

wangwatercup

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：论坛游侠帖子：103 积分：532 威望：0 精华：0 注册：2010/11/8 18:27:01

[原创]实时将交易信息写入ACCESS数据库 发帖心情

Post By：2011/4/8 20:42:13 [只看该作者]

dim wg_cnn
dim wg_rst

Sub APPLICATION_vbastart()
   Set wg_cnn=CreateObject("Adodb.Connection")
     set wg_rst=CreateObject("ADODB.Recordset")

     wg_cnn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=e:\test.mdb"
End Sub

Sub APPLICATION_Close()
    wg_cnn.close
    set wg_cnn=nothing
End Sub

Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, IndexCode1, Market1, OrderType, Aspect, Kaiping, Account,AccountType)
   'wg_rst.Open "select * from wg_order",wg_cnn,adOpenKeyset,adLockOptimistic
    wg_rst.Open "select * from wg_order",wg_cnn,1,3
   wg_rst.AddNew

   wg_rst("rq")=DATE
   wg_rst("sj")=TIME
   wg_rst("OrderID")=OrderID
   wg_rst("Status")=Status
   wg_rst("Filled")=Filled
   wg_rst("Remaining")=Remaining
   wg_rst("Price")=Price
   wg_rst("IndexCode1")=IndexCode1
   wg_rst("Market1")=Market1
   wg_rst("OrderType")=OrderType
   wg_rst("Aspect")=Aspect
   wg_rst("Kaiping")=Kaiping
   wg_rst("Account")=Account

   wg_rst.update
   wg_rst.close
End Sub