luofeng84

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

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

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

luofeng84

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

luofeng84

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

luofeng84

qq群的号是多少!