编程开发论坛 - Powered by Discuz! Board

标题: 高手必看！ [打印本页]

作者: luofeng84 时间: 2006-4-17 19:46 标题: 高手必看！

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

作者: Nothing 时间: 2006-4-17 22:15

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

作者: luofeng84 时间: 2006-4-18 21:33

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

你的代码不对，请你使用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 时间: 2006-4-21 14:55 标题: 请教

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

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 时间: 2006-4-21 15:59

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

作者: luofeng84 时间: 2006-4-21 18:14 标题: 请教

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

作者: luofeng84 时间: 2006-4-21 18:24 标题: 谢谢!

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

作者: Nothing 时间: 2006-4-21 20:55

你去QQ群里问吧

作者: luofeng84 时间: 2006-4-22 20:48

qq群的号是多少!

作者: Nothing 时间: 2006-4-22 20:50

http://www.lihuasoft.net/subject/qqgroup.php

欢迎光临编程开发论坛 (http://bbs.lihuasoft.net/)