[原创]从数据库读取交易记录 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

阅读版:

以下内容为程序代码:

1 Sub GetTradeDetail()
2 Dim cn As ADODB.Connection
3 Dim rs As ADODB.Recordset
4 Dim sql As String
5 Dim cnstring As String
6
7 Set cn = New Connection
8 cnstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\Weisoft Stock\test.mdb"
9 cn.ConnectionString = cnstring
10 cn.Open
11 sql = "select * from tradedetail"
12 Set rs = New Recordset
13 rs.Open sql, cn, 3, 1
14 [a1].CopyFromRecordset rs
15 End Sub

拷贝版:

Sub GetTradeDetail()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim cnstring As String

Set cn = New Connection
cnstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d:\Weisoft Stock\test.mdb"
cn.ConnectionString = cnstring
cn.Open
sql = "select * from tradedetail"
Set rs = New Recordset
rs.Open sql, cn, 3, 1
[a1].CopyFromRecordset rs
End Sub

主题：[原创]从数据库读取交易记录