关于vb查询access数据库

2025-03-03 07:56:15

推荐回答（2个）

回答1：

Private cCnn As New ADODB.Connection

Private Sub Form_Load()
Dim mCnnStr As String

'-------- 连接数据库
mCnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\数据库.mdb;Jet OLEDB:DataBase Password="
cCnn.CursorLocation = adUseClient
cCnn.Mode = adModeReadWrite
cCnn.ConnectionString = mCnnStr
cCnn.Open
'-----------------------------------
Timer1.Enabled = True
Timer1.Interval = 10000 '设置10秒
End Sub

Private Sub Timer1_Timer()
On Error GoTo ErrorLoad
Dim mStr As String
Dim mRst As New ADODB.Recordset
Dim mHour As Long
Dim mMinute As Long
Dim mCode As String
Dim mName As String
Dim MsgStr As String

Timer1.Enabled = False

mStr = "select * from [表名] "
mRst.Open mStr, cCnn, adOpenKeyset, adLockReadOnly
If mRst.RecordCount > 0 Then
mRst.MoveFirst
Do While Not mRst.EOF()
mHour = Val(mRst("Hour").Value)
mMinute = Val(mRst("Minute").Value)
mCode = Trim(mRst("Code").Value) '假设有用户编号
mName = Trim(mRst("Name").Value) '假设有用户名称

If mHour = Hour(Time) And mMinute = Minute(Time) Then
MsgStr = "当前时间：" & Format(Time, "hh:mm") & vbCrLf _
& "用户编号：" & mCode & vbCrLf _
& "用户名称：" & mCode
MsgBox MsgStr, vbInformation, "提示信息"
End If

If Not mRst.EOF() Then mRst.MoveNext
Loop
End If

Timer1.Enabled = True

Exit Sub
ErrorLoad:
MsgBox "错误编号：" & Err.Number & vbCrLf & "错误信息：" & Err.Description
Timer1.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
If Not (cCnn Is Nothing) Then
If cCnn.State = adStateOpen Then cCnn.Close: Set cCnn = Nothing
End If
End Sub

=========================================================
晕,,,为什么还要绑定？上面的代码完全可以实现你的要求，如果只是为了显示，你可以把mHour和mMinute换成Text1(7)和Text1(8)

回答2：

不明白你的意思

最新问答

如何体现一个人的内在素质

导向平键联接和滑键联接有什么不同,各适用于何种场合?

没有冰箱，如何存放胰岛素

运动鞋穿着大小刚好但是左右夹脚怎么能让鞋子变得宽松大点?

热血长安第二季大结局是什么热血长安一共有几季

哪位高手知道在哪里可以下载到蔡明亮的《河流》，《青少年哪吒》，《爱情万岁》跟《你那边几点》？