新手急求VB6连接access数据库并查询记录！在线等

Question

新手急求VB6连接access数据库并查询记录！在线等
新手急求VB6连接access数据库并查询记录的程序！在线等
点按钮就在文本框中出现全部记录，最好有代码，ado
非常感谢了。代码如下：
高手帮忙指点一下
Sub Command1_Click()
Dim Conn
Dim ConnectionString As String
Set Conn = CreateObject("ADODB.Connection")
ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Persist 
Security Info = False;" _
       & "Data Source = d:\vbtest\vb\TEST.MDB"
Conn.Open ConnectionString
Dim rs As New ADODB.Recordset
sql = "select * from vocation"
rs.Open sql, Conn, 3, 3
rs("name") = Text1.Text
End Sub

Answer 1

点按钮就在文本框中出现全部记录，
rs.Open sql, Conn, 3, 3
while not rs.eof 
    Text1.Text = test1 & rs("name") & vbcrlf
    rs.movenext
wend

Answer 2

谢谢 vbman2003 的回答，
我试了下，只能显示最后1条记录，好像是把前面的给覆盖了
能有办法让它全显示出来吗

Answer 3

请在属性窗里将Text1的MultiLine设为True, 宽高拉大一些Sub Command1_Click()
   Dim aa$, i%, Conn
   Dim ConnectionString As String
   Set Conn = CreateObject("ADODB.Connection")
   ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Persist Security Info = False;Data Source =" & "d:\vbtest\vb\TEST.MDB"
   Conn.Open ConnectionString
   Dim rs As New ADODB.Recordset
   sql = "select * from vocation"
   rs.Open sql, Conn, 3, 3
   If rs.RecordCount = 0 Then Exit Sub
   aa = ""
   For i = 0 To rs.RecordCount - 1
      aa = aa & rs("company") & vbCrLf
      rs.MoveNext
   Next i
   Text1.Text = aa
   rs.MoveFirst
End Sub

Answer 4

谢谢 cbm666
总算解决了。。

Answer 5

1F 的代码已经帮你解决了,只是打错一个字罢了, Text1 Test1, 重点在于你可能没将MultiLine设为 True