展开全部
'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"
SqlStr = "Select s时间字段,so2,no2 From 某个表"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set MsChart1.DataSource = rst '给DataGrid修改数据源
'菜单"工程"->"引用" 找 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"
SqlStr = "Select s时间字段,so2,no2 From 某个表"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set MsChart1.DataSource = rst '给DataGrid修改数据源
追问
连接数据库我是会的。。主要是生成柱状图的问题。。这个我不会
追答
默认就是柱状图啊
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
苏州蓝晓生物科技有限公司_
2022-08-05 广告
苏州蓝晓生物科技有限公司。标准化核心产品：公司拥有完整的琼脂糖介质、葡聚糖介质、聚甲基丙烯酸酯介质生产线，年产分离介质50000L，产品质量稳定并达到国际领先水平。核心优势：公司核心技术人员拥有近二十年不同基质的基球开发和官能化的丰富技术经...
点击进入详情页
本回答由苏州蓝晓生物科技有限公司_提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
