VB6.0中通过MSChart控件调用数据库
VB环境下MSChart控件的应用与研究
某个油田的区块做横坐标，井口数做纵坐
标而形成的“井口数统计图”为例，如图
１所示。
图１ 井口数统计图
在此图中，由于区块过多，显示得不清楚，完全分不出哪个区块
对应的数值。解决这样的问
题，操作步骤为：
（１）将区块用编码表
示，如图２所示。
（２）用ＣｏｍｍａｎｄＢｕｔｔｏｎ
按钮，显示编码所表示的区
图２ 井口数统计数据编码图
Ｉｆ Ｎｏｔ ＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（１）．Ｖａｌｕｅ） Ｔｈｅｎ
ｊｓ ＝ ｊｓ ＋ ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（１）．Ｖａｌｕｅ
Ｅｎｄ Ｉｆ
ＭＲｅｃｏｒｄｓｅｔ１．Ｃｌｏｓｅ
ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ．ＭｏｖｅＮｅｘｔ
Ｗｅｎｄ
Ｅｎｄ Ｗｉｔｈ
（２）区块大于１０个时的具体代码：
．ＲｏｗＬａｂｅｌ ＝ ＂＂
Ｅｌｓｅ
．ＲｏｗＬａｂｅｌ ＝ ｍＲｅｃｏｒｄｓｅｔ＿ｍａｉｎ！ｑｋ
＇行显示的内容（油田区块）
Ｅｎｄ Ｉｆ
Ｉｆ Ｎｏｔ ＩｓＮｕｌｌ（ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ） Ｔｈｅｎ
ｋ ＝ ｋ ＋ ｍＲｅｃｏｒｄｓｅｔ１．Ｆｉｅｌｄｓ（０）．Ｖａｌｕｅ
Ｅｎｄ Ｉｆ
网络纵横
２００８年第９期 146
ＶＢ环境下ＭＳＣｈａｒｔ控件的应用与研究
李旭东
（山东胜利职业学院）
摘 要 在Ｖｉｓｕａｌ Ｂａｓｉｃ ６．０环境下，ＭＳＣｈａｒｔ控件还有些不能实现的功能，如横坐标的内容显示不清楚，ＭＳＣｈａｒｔ控件的宽度如何自 动调整以及调整后如何显示看不见的部分。本文主要针对以上问题，就如何改进及应用ＭＳＣｈａｒｔ控件进行了探讨。
如何在VB中连接数据库
如何在VB中连接数据库我们对数据库进行操作时，一方面要使用户可以在程序界面上对需要的数据进行访问；另一方面可以对数据库中的数据进行各种操作，最终的操作结果还要反馈给用户。
用户在对数据进行访问时，需要应用程序对数据库做许多底层的操作，如果要开发人员编写代码的话，需要花费大量的精力。
为了简化开发过程，一些开发工具使用控件对数据库进行操作。
在VB中就有几个这样的控件，如Data控件、ADO控件。
下面就介绍一下Data控件和ADO控件以及ADO对象的使用。
一、Data控件通过设置数据控件的属性，我们可以将Data控件连到一个特定的数据库和其中的一个表上。
但是，Data控件本身是不能显示数据的，它只能处理信息流在应用程序和数据库间的转换。
为了能在界面中显示数据，我们使用VB中的普通控件在窗体上显示数据。
首先，在VB中建立一个标准的工程。
在窗体中添加控件其中，Data1就是一个Data控件。
然后改变控件的一些属性，属性修改后如接下来我们要对Data控件进行设置。
要对特定的数据库进行操作，就要连接到这个特定的数据库中。
在Data控件中要对Databasename属性进行设置，在对此属性进行设置时会弹出一个对话框，可以选择数据库的路径。
一个数据库中可能会有许多张表，我们还要指定一张表。
这个可以通过Data控件的Recordsource属性来设置。
如果设置好了Databasename 属性，在你设置Recordsource属性时就会出现一个列表，列出所连接数据库中所有的表，在其中就可以选择某个要使用的表。
这样就可以了吗？用户在界面上是看不到任何数据的。
为了能够让用户对数据进行操作，还有设置相关控件的属性。
在窗体上有三个文本框控件，分别是用来显示表中的对应字段的。
要使文本框对应显示表中的字段，要对文本框的Datasource和Datafield属性进行设置。
在Datasource中要选择对应的数据控件，在这个工程中只有Data控件，所以只能选择此控件，其名字为data1。
vb连接数据库详解
作为微软旗下一款优秀的RAD工具，VB在数据库应用开发方面的能力十分强大。
微软设计了多种数据库访问方法，下面通过对VB访问数据库的多种技术进行深入剖析，并总结出实际开发中的几点经验。
希望能够对那VB的初学者有所帮助。
（注意，文中所有的描述均在Windows 2000 professional和Visual Basic 6.0的环境下进行的）一. DAO、RDO、ODBC和ADO在VB的开发环境中，可以使用三种数据库访问方式，它们分别是：数据访问对象(DAO)、远程数据对象（RDO）和ADO对象模型。
DAO：数据访问对象是用来显露了Microsoft Jet数据库引擎（最早是给Microsoft Access 所使用，现在已经支持其它数据库），并允许开发者通过ODBC直接连接到其他数据库一样，直接连接到Access 表。
DAO 最适用于单系统应用程序或在小范围本地分布使用。
其内部已经对Jet数据库的访问进行了加速优化，而且其使用起来也是很方便的。
所以如果数据库是Access数据库且是本地使用的话，建议使用这种访问方式。
VB已经把DAO模型封装成了Data控件，分别设置相应的DatabaseName属性和RecordSource属性就可以将Data控件与数据库中的记录源连接起来了。
以后就可以使用Data控件来对数据库进行操作。
RDORDO（Remote Data Objects）远程数据对象是一个到ODBC的、面向对象的数据访问接口，它同易于使用的DAO style组合在一起，提供了一个接口，形式上展示出所有ODBC 的底层功能和灵活性。
尽管RDO在很好地访问Jet或ISAM数据库方面受到限制，而且它只能通过现存的ODBC驱动程序来访问关系数据库。
但是，RDO已被证明是许多SQL Server、Oracle 以及其他大型关系数据库开发者经常选用的最佳接口。
RDO提供了用来访问存储过程和复杂结果集的更多和更复杂的对象、属性，以及方法。
VB mschart控件的使用
一、先看个小例子Private Sub Form_Load()Dim MyData(20, 1) As Double'-----x轴坐标值-----Y轴坐标值----------MyData(0, 0) = 0: MyData(0, 1) = 180 '本句代表了：第一点数据的X轴坐标为0，Y轴坐标为180MyData(1, 0) = 6: MyData(1, 1) = 60MyData(2, 0) = 8: MyData(2, 1) = 60MyData(3, 0) = 11: MyData(3, 1) = 0MyData(4, 0) = 16: MyData(4, 1) = 0MyData(5, 0) = 19: MyData(5, 1) = 60MyData(6, 0) = 25.8: MyData(6, 1) = 60MyData(7, 0) = 28.8: MyData(7, 1) = 0MyData(8, 0) = 31.8: MyData(8, 1) = 60MyData(9, 0) = 40.3: MyData(9, 1) = 60MyData(10, 0) = 43.3: MyData(10, 1) = 0MyData(11, 0) = 93.3: MyData(11, 1) = 0MyData(12, 0) = 96.3: MyData(12, 1) = 60MyData(13, 0) = 99.3: MyData(13, 1) = 0MyData(14, 0) = 105.3: MyData(14, 1) = 0MyData(15, 0) = 135.3: MyData(15, 1) = 0MyData(16, 0) = 144.3: MyData(16, 1) = 180MyData(17, 0) = 148.8: MyData(17, 1) = 270MyData(18, 0) = 405.03: MyData(18, 1) = 270MyData(19, 0) = 409.53: MyData(19, 1) = 180MyData(20, 0) = 564.17: MyData(20, 1) = 180'波形图外观设置With MSChart1.TitleText = "速度m/min"' '设置图线的外观.Plot.SeriesCollection(1).Pen.Width = 30.Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid' '设置XY轴.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False'// 设置最大值.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 600 '设置横轴标注最大值.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 300 '设置纵轴标注最大值'// 设置最小值.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0'//.Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 6 'X轴主要网格数量.Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 6 'Y轴主要网格数量.Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'X轴次要网格数量.Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Y轴次要网格数量.Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleDotted.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDottedMSChart1.Plot.AutoLayout = FalseMSChart1.Plot.UniformAxis = FalseMSChart1.chartType = VtChChartType2dXY '设置图形为二维散点图MSChart1.ChartData = MyData '数据End WithEnd Sub二、mschart控件属性介绍1．RowCount属性设置作图数据的行数。
使用VB数据控件访问数据库
(3)程序代码
Private Sub Command1_Click() s = Trim(InputBox("请输入要查找的学号", "查找")) t = "学号='" & s & "'" Data1.Recordset.FindFirst t If Data1.Recordset.NoMatch Then MsgBox "找不到学号为" & s & "的学生 ! " Data1.Recordset.MoveFirst End If
10.11 使用VB数据控件访问数据库
VB提供了多种访问数据库的方式，其中数据控件(Data) 是一种使用简便、处理快速的标准控件
1.数据控件的用途
利用Data控件可以建立应用程序与数据库的联系，操作数 据库中的数据，还能利用文本框、列表框等控件，实现数据 的浏览、编辑等功能。
2.
与添加其他控件的方法一样，其外观如下：
Excel数据清单(C:\My Documents\成绩单.xls)内容如下：
(1)创建应用程序的用户界面
(2)设置对象属性
设置数据控件Data1： Connect属性为Excel8.0 DataBaseName属性为C:\My Documents\成绩单.xls RecordSource属性为Sheet1$ (工作表名)
设置文本框(Text1-Text4)： 对应“成绩库.dbf”的4个字段 DataSource属性为Data1 DataField属性分别为“学号”、“姓名”、“成绩”和
“班号”
设置五个命令按钮(Command1-Command5)
如何在VBA中调用数据库
如何在VBA中调用数据库在VBA编程中，调用数据库是一项非常有用的功能。
通过调用数据库，我们可以在VBA中连接和操作各种类型的数据库，包括Microsoft Access、SQL Server、Oracle 等，实现数据的读写和处理。
本文将详细介绍如何在VBA 中调用数据库，并给出一些实际应用的示例。
首先，我们需要在VBA中添加对数据库的引用。
在VBA编辑器中，点击"工具"，再点击"引用"，弹出引用对话框。
在这个对话框中，我们可以选择需要引用的数据库类型。
例如，如果我们要连接Microsoft Access数据库，可以选择"Microsoft Access XX.X Object Library"，其中的XX.X表示具体版本号。
选择完毕后，点击"确定"按钮进行确认。
一旦成功引用了数据库，在VBA代码中就可以使用相关的对象和方法来连接和操作数据库了。
首先，我们需要创建一个数据库连接对象，以实现与数据库的连接。
对于不同类型的数据库，我们可以使用相应的连接对象。
以连接Microsoft Access数据库为例，我们可以使用"ADODB.Connection"对象来进行连接。
下面是一个连接Microsoft Access数据库的示例代码：```Dim conn As New ADODB.Connectionconn.ConnectionString ="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=C:\example.accdb"conn.Open```在这个示例代码中，我们首先创建了一个名为"conn"的ADODB.Connection对象。
然后，通过设置"ConnectionString"属性指定了连接字符串，其中包括了Microsoft Access数据库的提供程序和文件路径。
MSCHART的使用之vb中利用MSCHART控件画二维散点图
MSCHART的使用之vb中利用MSCHART控件画二维散点图2008年03月31日星期一 16:12近日在学习傅立叶分解时,写了个小程序来验证自己对傅立叶分解的一些理解,为了更生动直观就需要画一些图形,以前总是用picture控件来实现,后来在网上看到VB中有个MSCHART控件可以来画很多类型的图形,就学习了一下,由于是第一次搞,所以按习惯在网上搜索相关帖子,发现没有一个很完整的关于MSCHART中二维散点图的例子,很是郁闷,经过我自己几天的努力,终于解决了这个问题.现以一个具体的例子来说明,希望我的这个例子能对大家有所帮助.这个例子是一个论坛上一位网友提出来的,但是这个问题一直到现在还没有人回答,我权当在这里回答一下吧.问题如下:如何用VB画出我附件中的图，请各位知道的高手指点下，小弟感激不尽！最好能根据我给的数据写出具体的源代码，或者类似的也可以。
再次感谢！上面是这个帖子的原始图形根据此我写了下面的代码Private Sub Form_Load()'对于二维散点图来说，第一列代表了X轴坐标，第二列代表了Y轴坐标'因此在定义二维数据时，第二维定义为0到1，第一维代表了第几点数据，可根据数据点数变化'下面以数据点数有21点为列子Dim MyData(20, 1) As Double'-----x轴坐标值-----Y轴坐标值----------MyData(0, 0) = 0: MyData(0, 1) = 180 '本句代表了：第一点数据的X轴坐标为0，Y轴坐标为180MyData(1, 0) = 6: MyData(1, 1) = 60MyData(2, 0) = 8: MyData(2, 1) = 60MyData(3, 0) = 11: MyData(3, 1) = 0MyData(4, 0) = 16: MyData(4, 1) = 0MyData(5, 0) = 19: MyData(5, 1) = 60MyData(6, 0) = 25.8: MyData(6, 1) = 60MyData(7, 0) = 28.8: MyData(7, 1) = 0MyData(8, 0) = 31.8: MyData(8, 1) = 60MyData(9, 0) = 40.3: MyData(9, 1) = 60MyData(10, 0) = 43.3: MyData(10, 1) = 0MyData(11, 0) = 93.3: MyData(11, 1) = 0MyData(12, 0) = 96.3: MyData(12, 1) = 60MyData(13, 0) = 99.3: MyData(13, 1) = 0MyData(14, 0) = 105.3: MyData(14, 1) = 0MyData(15, 0) = 135.3: MyData(15, 1) = 0MyData(16, 0) = 144.3: MyData(16, 1) = 180MyData(17, 0) = 148.8: MyData(17, 1) = 270MyData(18, 0) = 405.03: MyData(18, 1) = 270MyData(19, 0) = 409.53: MyData(19, 1) = 180MyData(20, 0) = 564.17: MyData(20, 1) = 180'波形图外观设置With MSChart1.TitleText = "速度 m/min"' '设置图线的外观.Plot.SeriesCollection(1).Pen.Width = 30.Plot.SeriesCollection(1).Pen.Style = VtPenStyleSolid' '设置XY轴.Plot.Axis(VtChAxisIdX).ValueScale.Auto = False.Plot.Axis(VtChAxisIdY).ValueScale.Auto = False'// 设置最大值.Plot.Axis(VtChAxisIdX).ValueScale.Maximum = 600.Plot.Axis(VtChAxisIdY).ValueScale.Maximum = 300'// 设置最小值.Plot.Axis(VtChAxisIdY).ValueScale.Minimum = 0.Plot.Axis(VtChAxisIdX).ValueScale.Minimum = 0'//.Plot.Axis(VtChAxisIdX).ValueScale.MajorDivision = 6 'X轴主要网格数量 .Plot.Axis(VtChAxisIdY).ValueScale.MajorDivision = 6 'Y轴主要网格数量 .Plot.Axis(VtChAxisIdX).ValueScale.MinorDivision = 0 'X轴次要网格数量 .Plot.Axis(VtChAxisIdY).ValueScale.MinorDivision = 0 'Y轴次要网格数量 .Plot.Axis(VtChAxisIdX).AxisGrid.MajorPen.Style = VtPenStyleDotted.Plot.Axis(VtChAxisIdY).AxisGrid.MajorPen.Style = VtPenStyleDottedMSChart1.Plot.AutoLayout = FalseMSChart1.Plot.UniformAxis = FalseMSChart1.chartType = VtChChartType2dXY '设置图形为二维散点图MSChart1.ChartData = MyData '数据End WithEnd Sub运行后的效果图如下MSCHART的二维散点图对于实际工作是有很大用途的，例如数据采集中,实现时间变量的曲线等等.希望这个例子对大。
图表绘制控件mschart的使用方法1
图表绘制控件mschart的使⽤⽅法1VisualBasic中ActiveX控件MSChart的使⽤⽅法*依⽪提哈尔·穆罕买提，那斯尔江·⼟尔逊（新疆⼤学数学与系统科学学院，乌鲁⽊齐，830046）热依曼·吐尔逊（新疆⼤学信息⼯程学院，乌鲁⽊齐，830046）摘要：本⽂⾸先介绍了VisualBasic（简称VB）中MSChart控件的使⽤⽅法，然后通过简单的例⼦详细介绍了利⽤MSChart控件绘制Excel数据源图表的⽅法。
关键词：VisualBasic；MSChart控件；MicrosoftExcel数据表；图表；数据库The Methods of Using MSChart Control Based on VBIptihar.Muhammat，Nasirjan.Tursun(Mathematics and Systematic Science Institude of XinjiangUniversity,Urumqi,Xinjiang,830046)Reyima.Tursun(Information Science and Engineering Institude of Xinjiang University,Urumqi,Xinjiang,830046)Abstract:This article discusses how to use the MSChart control and how that is used in the VB project to drawing Microsoft? Excel charts.KeyWords: MSChart Control；Chartdata ；Mirosoft Excel Sheets；Chart；Database1. 引⾔Visual Basic中的MSChart控件是⼀个功能强⼤的⾼级图表⼯具，拥有丰富的图表绘制功能，⽤它来可以显⽰⼆维和三维的棒图、区域图、线形图、饼图等多种常⽤图表。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
《VB6.0中通过MSChart控件调用数据库》
VB6.0中的MSChart控件是一个功能强大的高级图表工具，拥有丰富的图表绘制功能，可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。
近日我为了在双击图表的某个区域时将与该区域相对应的数据库的内容在DataGrid控件上显示出来，遇到了许多困难，最后用一个自定义的变量SelectSeries解决了问题，具体方法如下：设数据库名称为“学生信息”，有一Access表“学生成绩”，其内容为一个班学生的考试成绩，包括学号、姓名、成绩3个字段，成绩字段格式是字符型，值为“优”、“良”、“中”、“差”中的一个。
窗体Form1包括一个MSChart控件McScore，类型为二维饼图，用于显示每种成绩的学生数；一个ADO控件AdScore用于连接数据库；一个DataGrid控件DgScore用于以表格形式显示数据库内容。
工作过程为：双击饼图的某个区域，则DgScore显示相应成绩的学生名单。
代码如下：
Option Explicit
Dim SelectedSeries as Integer ′自定义变量
Dim Rs() as String ′提取记录集用的字符串数组
Private Sub Form_Load()
′设定DataGrid控件的数据源
DgScore.DataSource=″AdScore″
′设定ADO控件的连接字串和初始的记录源，即显示内容
AdScore.ConnectString=″Provider=Microsoft.OLEDB.3.51;Persist_Security Info=False;Data Source=学生信息″
AdScore.RecordSource=″selet ＊from学生成绩order by成绩″
AdScore.Refresh
′预设好提取记录用的SQL语句
Rs(1)=″select＊from学生成绩where成绩=″＋Chr(34)＋″优″＋_Chr(34)＋″order by成绩″
Rs(2)=″select ＊from学生成绩where成绩=″＋Chr(34)＋″良″＋_Chr(34)＋″order by成绩″
Rs(3)=″select ＊from学生成绩where成绩=″＋Chr(34)＋″中″＋_Chr(34)＋″order by 成绩″
Rs(4)=″select ＊from学生成绩where成绩=″＋Chr(34)＋″差″_Chr(34)＋″order by成绩″
End Sub
Private Sub McScore_SeriesSelected(Series as Integer,MouseFlags as _Integer,Cancel as Integer)
SelectedSeries=Series
End Sub
Private Sub McScore_PointSelected(Series as Integer,DataPoint as_Integer,MouseFlags as Integer,Cancel as Integer)
SelectedSeries=Series
End Sub
Private Sub McScore_Db1Click()
′改变ADO控件的记录源并刷新Adoc1.RecordSource=Rs(SeletedSeries) Adoc1.Refresh
End Sub
(湖南高文杰)。