Question

VB combox如何让数据库中的数据连接到text中

已经连接了数据库，
Private Sub Combo1_Click()
j = Combo1.ListIndex
For i = 1 To j
rs.MoveFirst
Next
txttimu.Text = Trim(rs.Fields("lrtitle").Value)

rs.MoveNext

End Sub

Private Sub Form_Load()
cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xuanze.mdb;Persist Security Info=False"
conn.ConnectionString = cn
conn.Open

Sql = "select * from lrtiku"
rs.Open Sql, conn, 1, 3
j = rs.RecordCount
rs.MoveFirst
For i = 1 To rs.RecordCount
Combo1.AddItem Trim(rs.Fields("lrtitle_id").Value)
rs.MoveNext
Next
End Sub

这是我的代码。可是选择combox时，无论如何都只能显示第一条记录。求大神帮忙

Answer 1

Private Sub Combo1_Click()
j = Combo1.ListIndex
For i = 1 To j
rs.MoveFirst
Next
txttimu.Text = Trim(rs.Fields("lrtitle").Value)
。。
你总是把记录移动到第一条，当然只显示第一条的记录了！
既然你添加的和后来显示的是一致的，有个取巧的方法：
Private Sub Combo1_Click()
rs.MoveFirst
rs.Find "lrtitle_id=" & Combo1.List(Combo1.ListIndex) '这里假设字段数据类型是数字
if not rs.EOF then txttimu.Text = Trim(rs.Fields("lrtitle").Value)
End Sub
注：两个事件的 rs 应该是同一个变量

Answer 2

For i = 1 To rs.RecordCount
Combo1.AddItem Trim(rs.Fields("lrtitle_id").Value)
rs.MoveNext
Next

改成
do while not rs.eof
Combo1.AddItem Trim(rs.Fields!"lrtitle_id")
rs.MoveNext
loop