共5 条记录, 每页显示 10 条, 页签: [1]

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

1楼

z7c9 发表于：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

2楼

z7c9 发表于：2011/1/14 19:17:47

3楼

z7c9 发表于：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

4楼

IF8888 发表于：2011/4/18 13:44:59

能以附件的形式提供这个文件吗 d:\Weisoft Stock\analysis.mdb

5楼

guotx2010 发表于：2011/4/18 15:51:22

好东西，数据库操作就需要这样的功能。

共5 条记录, 每页显示 10 条, 页签: [1]