1180
社区成员
- 主页
如何定时从数据库中取数据
我想定时从数据库中读取数据，然后保存到数组中，一个一个的读，如何实现？多谢！
我写的程序如下：
Dim sql As String
Dim db As ADODB.Connection
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ("\DataBase\zpydata.mdb")
sql = "select Allsample.* from zpydata"
Set adoRS = New ADODB.Recordset
adoRS.Open "select * from Allsample ", db, adOpenStatic, adLockOptimistic
If Not adoRS.EOF Then
adoRS.MoveNext ' 应该是这里的问题，如何取数据？
End If
Y(j) = adoRS.Fields("含量").Value
j是定时加1的，这段程序是放在一个函数中，这个函数定时调用，现在就是不知道如何取数据～
我写的程序如下：
Dim sql As String
Dim db As ADODB.Connection
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ("\DataBase\zpydata.mdb")
sql = "select Allsample.* from zpydata"
Set adoRS = New ADODB.Recordset
adoRS.Open "select * from Allsample ", db, adOpenStatic, adLockOptimistic
If Not adoRS.EOF Then
adoRS.MoveNext ' 应该是这里的问题，如何取数据？
End If
Y(j) = adoRS.Fields("含量").Value
j是定时加1的，这段程序是放在一个函数中，这个函数定时调用，现在就是不知道如何取数据～
...全文
请发表友善的回复…
发表回复
changhong79 2004-10-22
我的这个是一边采集数据，往数据库中存储，比如1秒采集10个数据
然后一边从数据库中读取数据，这个时间较慢，比如一秒读取一个数据
两边是同时进行的
如何处理？
然后一边从数据库中读取数据，这个时间较慢，比如一秒读取一个数据
两边是同时进行的
如何处理？
fxyfx 2004-10-20
比如一个textbox，让textbox显示内容textbox.text=adors(0) //或者1，或者写“列名”
lihonggen0 2004-10-20
不是很清楚你的意思
如果要定时调用，可以用timer控件，设置时间间隔来调用一个function
如果要定时调用，可以用timer控件，设置时间间隔来调用一个function