luofeng84

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

Nothing

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

luofeng84

我的困难是怎么引用数据库中的数据！
我写的代码： （运行不了！高手指点一下！那里要改一下）
  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

Nothing

你的代码不对，请你使用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

luofeng84

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

Dim dbase As Database

    Dim rsY As Recordset
     
      Set dbase = OpenDatabase("H:\GPS.mdb")
      Set rsY = dbase.OpenRecordset("SELECT * FROM alic")   
   
   
    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

Nothing

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

luofeng84

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

luofeng84

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

Nothing

你去QQ群里问吧

luofeng84

qq群的号是多少!