現在有一個表單，用adodc進行連接一個資料庫，資料庫里有的庫存資訊，想對資料庫中的庫存進行柱形圖可視化應該這么做？
（我之所以用adodc連接資料庫是因為不會用代碼創建連接資料庫，只會用這種方法）。
uj5u.com熱心網友回復：
Adodc1控制元件+MSChart1控制元件+Combo1控制元件，統計銷售數量的程式做好了，如果你需要加企鵝 265 304 33 92，做好了沒有辦法上傳工程檔案。
uj5u.com熱心網友回復：
這是資料表內容
uj5u.com熱心網友回復：
不好意思，沒有QQ怎么辦？可以有微信嗎，我微信是Fuselage7 或者我的郵箱是[email protected]萬分感謝
uj5u.com熱心網友回復：
不好意思，沒有QQ怎么辦？可以有微信嗎，我微信是Fuselage7 或者我的郵箱是[email protected]<br />
萬分感謝
uj5u.com熱心網友回復：
設定 MSChart 的資料源為 ADODC 的Recordset 屬性試試。uj5u.com熱心網友回復：
沒有辦法，給你代碼，你自己琢磨吧。首先在通用部分定義有個陣列。Dim AA(0 To 3) As String
啟動，并且在 Combo1 控制元件加載“產品名稱”。
Private Sub Form_Load()
Label1.Caption = ""
Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\123.accdb"
Adodc1.RecordSource = "select 產品名稱 from 產品銷售"
Adodc1.Refresh
Combo1.Clear
Combo1.AddItem "全部"
Do While Not Adodc1.Recordset.EOF '搜索
For i = 0 To Combo1.ListCount - 1
If Combo1.List(i) = Adodc1.Recordset.Fields(0) Then Exit For
Next
If i = Combo1.ListCount Then Combo1.AddItem Adodc1.Recordset.Fields(0)
Adodc1.Recordset.MoveNext
Loop
AA(0) = "硬碟": AA(1) = "顯示卡": AA(2) = "CPU": AA(3) = "記憶體"
Dim X As Integer
For X = 0 To 3
With MSChart1
.RowCount = UBound(AA) + 1
.Row = X + 1
.ColumnCount = 1
If X = 0 Then
.Data = 100
ElseIf X = 1 Then
.Data = 200
ElseIf X = 2 Then
.Data = 50
ElseIf X = 3 Then
.Data = 420
End If
.RowLabel = AA(X)
End With
Next X
Label1.Caption = "MSChart1控制元件預覽"
End Sub
Combo1的單擊事件，顯示圖表。
Private Sub Combo1_Click()
Dim CP As String, XSE0 As Long, XSE1 As Long, XSE2 As Long, XSE3 As Long, MT As Integer
CP = Combo1.Text
If CP = "全部" Then
Adodc1.RecordSource = "select * from 產品銷售 "
Else
Adodc1.RecordSource = "select * from 產品銷售 Where 產品名稱='" & CP & "'"
End If
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
If Adodc1.Recordset.Fields("產品名稱") = "硬碟" Then
XSE0 = XSE0 + Adodc1.Recordset.Fields("銷售數量")
ElseIf Adodc1.Recordset.Fields("產品名稱") = "顯示卡" Then
XSE1 = XSE1 + Adodc1.Recordset.Fields("銷售數量")
ElseIf Adodc1.Recordset.Fields("產品名稱") = "CPU" Then
XSE2 = XSE2 + Adodc1.Recordset.Fields("銷售數量")
ElseIf Adodc1.Recordset.Fields("產品名稱") = "記憶體" Then
XSE3 = XSE3 + Adodc1.Recordset.Fields("銷售數量")
End If
Adodc1.Recordset.MoveNext
Loop
Label1.Caption = CP & "的銷售總量是：" & XSE0 + XSE1 + XSE2 + XSE3
Dim X As Integer
For X = 0 To 3
With MSChart1
.RowCount = UBound(AA) + 1
.Row = X + 1
.ColumnCount = 1
If X = 0 Then
.Data = XSE0
ElseIf X = 1 Then
.Data = XSE1
ElseIf X = 2 Then
.Data = XSE2
ElseIf X = 3 Then
.Data = XSE3
End If
.RowLabel = AA(X)
End With
Next X
End Sub
uj5u.com熱心網友回復：
資料表前面給你了，是Access 2007 的資料庫，如果你連接的資料庫不是這個，修改連接即可。uj5u.com熱心網友回復：
謝啦啦啦啦啦啦啦啦啦啦啦轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/76765.html
標籤：VB基礎類
下一篇：lisp中的原子是否是指標