查看完整版本: 高手必看！

高手必看！

[font=宋体][size=3][b]我现在已经用ACCESS创建了后台数据库，前台用vb。我现在苦恼的是要引用数据库中的数据在pictruebox中通过LINE工具画出曲线！高手们看了后请给我指点！最好能给出代码！[/b][/size][/font]

Line画曲线不太现实吧，你可以画点，将点连接起来。
将PictureBox的DrawMode设置成13，这样点比较圆滑。
sX,sY为第一个点，X，Y为第二个点。
Picture1.Line (sX, sY)-(X, Y)

我的困难是怎么引用数据库中的数据！
我写的代码： （运行不了！高手指点一下！那里要改一下）
  Dim dbase As Database

    Dim rs As Recordset

    Set dbase = OpenDatabase("H:\毕业设计\毕业设计\复件 毕业设计（数据）\附件为三个测站的时间序列数据\GPS.mdb")

   
      For i = 0 To 155 Step 0.25
       Picalic.Line (i, y = "SELECT [x位移] FROM [alic] WHERE [历元]=1043+i*4")-(i + 1, y = "SELECT [x位移] FROM [alic] WHERE [历元]=1043+i*4+1")
      Next i

你的代码不对，请你使用Recordset好吗
请你仔细看看如何用Recordset的内容，你不看书是不行的。
set rsY=dbase.execute("SELECT [x位移] FROM [alic] WHERE [历元]=1043")
y=rsY.fields("[x位移]").value
For i = 0 To 155 Step 0.25
       Picalic.Line (i, y +i*4)-(i + 1, y +i*4+1")
Next i

请教

我现在代码是这样，运行的时候系统总是说在第四行[b]“类型不匹配[/b]”不知道该怎么改？？ 还有你[b]帮我看看其他地方有要改的吗[/b]？？

Dim dbase As Database

    Dim rsY As Recordset
     
      Set dbase = OpenDatabase("H:\GPS.mdb")
      [b]Set rsY = dbase.OpenRecordset("SELECT * FROM alic")[/b]   
   
   
    Dim x, y As Double
   
       For i = 0 To 155 Step 0.25
      
       x = 100 * GPS.Recordset.Fields("x位移").Value
       GPS.Recordset.MoveNext
       y = 100 * GPS.Recordset.Fields("x位移").Value
       Picalic.Line (i, x)-(i * 4 + 1, y)
      Next i

Set dbase = OpenDatabase("H:\GPS.mdb")
      Set rsY = dbase.execute("SELECT * FROM alic")   
这里不能用openrecordset

请教

改成[b]Set rsY = dbase.Execute("SELECT * FROM alic")[/b]了后,运行错误是[b]编译错误:缺少函数或变量[/b]!
这是怎么回事??谢谢解答!

谢谢!

[b]我的qq:251431293  请版主加我!我有些问题想通过qq请教您!谢谢![/b]

你去QQ群里问吧

qq群的号是多少!

[url]http://www.lihuasoft.net/subject/qqgroup.php[/url]