标题：[原创]实时将交易信息写入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

 还有orderlog里面的时间都是到毫秒级别的，不知道vbs里面如何取到该级别的实时时间？vba里面最小也就是到1秒。

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

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

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

 

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