Question

vb读取access数据库画实时曲线

我想做一个程序就是可以由vb利用ado控件读取access数据库的内容，然后依内容画成实时曲线。
但我只会调用数据库的内容，在DataGrid控件内显示出来而已。。如果要画成实时曲线要怎么做（比如只有x和y两列内容，画成直角坐标系图形的）不要告诉我用MSChart控件。要用picturebox配合timer控件的。。有没有高手解答一下。谢谢 最好有源码

Answer 1

你要画的是随着时间推移画曲线还是仅仅的一下子读完画曲线我有一个一下子完成的那个推移着画的我也在想
Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"
Set rst = New ADODB.Recordset
rst.Open "select * from collect", cnn, adOpenKeyset, adLockPessimistic
If rst.RecordCount > 0 Then
rst.MoveFirst
End If
Text1.Text = rst("氧气浓度")
Text2.Text = rst("序号")
rst.MoveNext
End Sub

Private Sub Timer1_Timer()

Do While Not rst.EOF
Text3.Text = rst("氧气浓度")
Text4.Text = rst("序号")
Pic1.Line (Val(Text2.Text * 15), Val(Text1.Text * 16))-(Val(Text4.Text * 15), Val(Text3.Text * 16)), vbRed
Text1.Text = Text3.Text
Text2.Text = Text4.Text
rst.MoveNext
Loop
End Sub

Answer 2

PictureBox里直接Line就行了吧.x=10,y=4Picture1.line -(x,y)直接用TIMERLINE就可以了