- 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5)
---- [原创]从数据库读取交易记录 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=4804)
-- 发布时间：2011/1/12 22:20:16
-- [原创]从数据库读取交易记录
阅读版:
以下内容为程序代码:
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
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
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
-- 发布时间：2011/1/14 19:17:47
--
-- 发布时间：2011/1/14 21:31:30
--
Sub filldata()
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\\analysis.mdb"
cn.ConnectionString = cnstring
cn.Open
sql = "select * from myasset"
Set rs = New Recordset
rs.Open sql, cn, 3, 1
Sheet2.Range("a1").CopyFromRecordset rs
Dim cht As ChartObject
Set cht = Sheet1.ChartObjects.Add(0, 430, 500, 200)
cht.Chart.ChartType = xlArea
cht.Chart.ChartStyle = 36
cht.Chart.SetSourceData Sheet2.Range("a:a,b:b")
cht.Chart.HasTitle = True
cht.Chart.HasLegend = False
cht.Chart.ChartTitle.Text = "收益曲线"
End Sub
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\\analysis.mdb"
cn.ConnectionString = cnstring
cn.Open
sql = "select * from myasset"
Set rs = New Recordset
rs.Open sql, cn, 3, 1
Sheet2.Range("a1").CopyFromRecordset rs
Dim cht As ChartObject
Set cht = Sheet1.ChartObjects.Add(0, 430, 500, 200)
cht.Chart.ChartType = xlArea
cht.Chart.ChartStyle = 36
cht.Chart.SetSourceData Sheet2.Range("a:a,b:b")
cht.Chart.HasTitle = True
cht.Chart.HasLegend = False
cht.Chart.ChartTitle.Text = "收益曲线"
End Sub
-- 发布时间：2011/4/18 13:44:59
--
能以附件的形式提供这个文件吗 d:\\Weisoft Stock\\analysis.mdb
-- 发布时间：2011/4/18 15:51:22
--
好东西，数据库操作就需要这样的功能。