我也是用ADO控件将MSchart与access库中表连接,但就是无法显示MSchart控件,不知为何??
谢谢你能帮我!!我用下面的语句:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strdsn As String
Dim strsql As String
Dim n As Integer
Dim i As Integer
For i = 0 To 3
Form9.ado1.Recordset.AddNew
Form9.ado1.Recordset.Fields("日期时间") = Form3.moday.Value
Form9.ado1.Recordset.Fields("值别") = Form8.Label2(i).Caption
Form9.ado1.Recordset.Fields("名次") = Form8.Text1(8 + 9 * i).Text
Form9.ado1.Recordset.Update
n = n + 1
Next i
strdsn = "dsn=ks"
conn.Open strdsn
strsql = "select * from mici"
Set rs = conn.Execute(strsql)
With Form9.MSChart1
.ShowLegend = True
Set .DataSource = rs
End With