求助：如何在VB中将datagrid中的数据做成曲线

来源：百度知道 编辑：UC知道 时间：2024/06/09 06:31:12
我的form界面中包含一个datagrid 一个adodc,现查询语句已经做好，我的数据为两列：一列为时间（显示为1988-7-10 12：05：12），另一列为数据值 （数据类型为单精度）
问题：如何将所查询的这些数据做成一条曲线，时间为横轴，数据值为纵轴？
仅有积分50个全部押上了，希望各位高手能帮帮小弟
小弟再加积分15个，望各位高手帮帮忙

在VB5中生成统计图形

在用VB5进行数据库编程时，经常要生成统计图形。生成的方法有很多种，最

简单的是利用VB5提供的MSChart控件。具体操作方法如下：

1.首先在VB5“工程”→“部件”中找到“Microsoft Chart Control5.0”项，

选中并应用，此时在工具面板中出现MSChart控件图标。选中它并在新工程的Form1

中画一矩形，生成MSChart1,即出现缺省状态的直方图。设其ColumnCount属性为1。

2.利用Access或VB5的可视化数据管理器生成一个example.mdb的数据库，在其

中建一名为temp的数据表，包含“日期”和“数据”两个字段，并在表中输入一些

记录。

3.在Form1中生成一个Command1按钮，然后在Private Sub Command1_click()

中写入以下代码：

dim i as integer

dim NewDyn as recordset

dim OpenWs as Workspace

dim OpenDB as DataBase

set OpenWs=DBengine.Workspaces(0)

set OpenDB=OpenWs.Opendatabase(app.path ＆ 〃\example.mdb〃)

set NetDyn=OpenDB.Openrecordset(〃select ＊ from temp〃,dbOpenSnapShot)

NewDyn.MoveLast

NewDyn.Movefirst

If NewDyn.RecordCount=0 then

Msgbox〃请在数据库中输入数据!〃，vbCritical

Exi