Question

vb6.0中，我想在text1.text中显示数据库所有字段的所有数据，该如何表达呢…？

Answer 1

Dim x As String, i As Integer, j As Integer
For i = 1 To rst.RecordCount
For j = 0 To rst.Fields.Count - 1
x = x & rs(j)
Next
x=x & vbCrLf
rst.MoveNext
Next
text1.Text = x

追问

请问，怎么让，text1里的数据随时更新呢…？

追答

放到定时器里，定时执行代码。

追问

能给个例子吗…？

是重新装载整个程序还是刷新text1啊…