VB数据库查询全部(做一个聊天软件的历史记录)

Question

Private Sub cmdselect_Click(Index As Integer)
Do While Not Data1.Recordset.EOF
Data1.Recordset.Clone
txtchat.Text = Data1.Recordset.Fields("txt")
Data1.Recordset.MoveNext
Loop
End Sub

这是历史记录查询按键的代码
每次只能显示最后一条记录
怎么修改才能显示所有记录
access数据库用Data控件连接
数据库名字叫hirstory
只有一个表叫txt用来装聊天记录的
现在就是查询不会 请高手指点

Answer 1

把TEXT设为多行显示

然后txtchat.Text =txtchat.Text + Data1.Recordset.Fields("txt") & chr(13)+chr(10)

Answer 2

你用 txtChat 一次可不就只能显示一行数据么
你每次循环 都会用新的数据把原来的数据替换掉

最后 就剩最后一行 ...

熊瞎子掰苞米