UC知道VB 连接MDB问题
来源：百度知道 编辑：UC知道 时间：2024/05/14 02:24:58
Set mydb = Workspaces(0).OpenDatabase(App.Path & "\use.mdb", False, False, ";pwd=123 ")
sql1 = "select 编号,短信内容 from reed "
Set myrs1 = mydb.OpenRecordset(sql1)
If myrs1.EOF = False Then myrs1.MoveLast
If myrs1.BOF = False Then myrs1.MoveFirst
For i = 0 To myrs1.RecordCount - 1
Combo1.AddItem (myrs1.Fields(0))
Text1.text = (myrs1.Fields(1))
myrs1.MoveNext
Next i
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
我想在Combo1显示“编号” 在TEXT1。TEXT上显示“短信内容”
且当鼠标滑动到对应的“编号”时显示对应的“短信内容”
应如何写呀？
请高手指点。
sql1 = "select 编号,短信内容 from reed "
Set myrs1 = mydb.OpenRecordset(sql1)
If myrs1.EOF = False Then myrs1.MoveLast
If myrs1.BOF = False Then myrs1.MoveFirst
For i = 0 To myrs1.RecordCount - 1
Combo1.AddItem (myrs1.Fields(0))
Text1.text = (myrs1.Fields(1))
myrs1.MoveNext
Next i
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
我想在Combo1显示“编号” 在TEXT1。TEXT上显示“短信内容”
且当鼠标滑动到对应的“编号”时显示对应的“短信内容”
应如何写呀？
请高手指点。
Private Sub Combo1_Click()
Rs.Open "select 短信内容 from reed where 编号=" & Val(Combo1.Text) & "", conn, adOpenKeyset, adLockPessimistic
Text1.Text = Rs!Weight
Rs.Close: Set Rs = Nothing
End Sub
注意一下你的编号的字段类型！~