VB如何根据数据库数据调用MSChart画折线图
如题，数据库中的数值如图所示，怎么根据数据库中的值做Number和Voltage以及Number和Temperature的折线图，解决后有高分奖励！...
如题，数据库中的数值如图所示，怎么根据数据库中的值做Number和Voltage以及Number和Temperature的折线图，解决后有高分奖励！
展开
2个回答
展开全部
'Ctrl+t找Microsoft MSChart Control....
'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
SqlStr = "Select Number,Voltage,Temperature From 某个表"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set MSChart1.DataSource = rst '给MSChart修改数据源
'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
SqlStr = "Select Number,Voltage,Temperature From 某个表"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set MSChart1.DataSource = rst '给MSChart修改数据源
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
来自：求助得到的回答
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
