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

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [原创]实时将交易信息写入ACCESS数据库  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=6071)

--  作者：wangwatercup
--  发布时间：2011/4/8 20:42:13
--  [原创]实时将交易信息写入ACCESS数据库
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

--  作者：wangwatercup
--  发布时间：2011/4/8 20:44:22
--
还有orderlog里面的时间都是到毫秒级别的，不知道vbs里面如何取到该级别的实时时间？vba里面最小也就是到1秒。
[此贴子已经被作者于2011-4-8 20:45:54编辑过]

--  作者：bole
--  发布时间：2012/3/10 20:32:55
--

这个创意非常的好，可惜我不懂啊，还是“水中花”啊！！！........

要是能做成一个程序就好啦

--  作者：onlylovexue
--  发布时间：2012/3/12 7:56:45
--

这个函数 ORDER_OrderStatusEx2 好像只有专业版才提供的吧？

而且adOpenKeyset,adLockOptimistic 参数不支持哦   呵呵