| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 515 人关注过本帖
标题:每秒钟从数据库中取出一条记录[代码有误]
只看楼主 加入收藏
nini_1110
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-6-6
收藏
 问题点数:0 回复次数:1 
每秒钟从数据库中取出一条记录[代码有误]

这是我编的一个每秒种从数据库中取出一条记录的代码,Timer1的Interval=1000
Dim rs As New ADODB.Recordset
Dim strsql As String
Dim strM As String
Dim blnks As Boolean


Private Sub Form_Activate()
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command

conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open basLogin.GetFurnaceDBPath, "admin", ""

Set cmd.ActiveConnection = conn

cmd.CommandText = "SELECT * FROM Slag_CAL order by DateTime "
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockOptimistic

If rs.RecordCount > 0 Then
blnks = True
rs.MoveFirst
Timer1_Timer
End If

End Sub

Private Sub Timer1_Timer()
If blnks = True Then
If rs.EOF = True Then
blnks = False
rs.Close
Exit Sub
Else
For i = 0 To 3
With MSHFlexGrid1
.TextMatrix(1, i) = rs.Fields(i)
End With
Next i
rs.MoveNext
End If
End If
End Sub
可运行的时候不对啊,不能完成我想要的结果。请高手帮助,谢谢

搜索更多相关主题的帖子: 数据库 有误 代码 记录 
2007-10-10 10:31
chufei
Rank: 1
等 级:新手上路
帖 子:12
专家分:0
注 册:2007-10-9
收藏
得分:0 
2007-10-10 12:22
快速回复:每秒钟从数据库中取出一条记录[代码有误]
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.094326 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved