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

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

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

共有6557人关注过本帖树形打印复制链接主题：[原创]从数据库读取交易记录

z7c9

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

加好友

发短信

等级：小飞侠帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56

[原创]从数据库读取交易记录 发帖心情

Post By：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

拷贝版:

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

[本帖被加为精华]

版主评定：

好评，获得1个金币奖励

(理由：挺不错的)

z7c9

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

加好友

发短信

等级：小飞侠帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56

Post By：2011/1/14 19:17:47 [只看该作者]

z7c9

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

加好友

发短信

等级：小飞侠帖子：1882 积分：3310 威望：0 精华：15 注册：2010/3/15 13:11:56

Post By：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