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

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