如何在文本框中显示数据库信息?

Question

麻烦各位帮忙看看,我下面这段代码哪边有问题?在文本框text2中不能显示结果
Private Sub Form_Load()
Dim sql As String
sql = "select * from reader where 编号='" & Trim(Text1.Text) & "'"
Dim rs_xx As New ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Set rs_xx = New ADODB.Recordset
cn.ConnectionString = "Driver={sql server};server=asus-aae1968d45;uid=sa;pwd=123;database=book"
cn.Open
rs_xx.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText
Do While Not rs_xx.EOF
Text2.Text = rs_xx.Fields(1)
rs_xx.MoveNext
Loop
End Sub
谢谢了!

Answer 1

rs_xx.MoveFirst
Do While Not rs_xx.EOF 
Text2.Text = rs_xx.Fields(1) 
rs_xx.MoveNext 
Loop 

Answer 2

rs_xx.MoveFirst 
Text2.Text = rs_xx.Fields(1) 

Answer 3

Private Sub Form_Load() 
   Dim sql As String 
   sql = "select * from reader where 编号='" & Trim(Text1.Text) & "'" 
   Dim rs_xx As New ADODB.Recordset 
   Dim cn As ADODB.Connection 
   Set cn = New ADODB.Connection 
   Set rs_xx = New ADODB.Recordset    cn.ConnectionString = "Driver={sql server};server=asus-aae1968d45;uid=sa;pwd=123;database=book" 
   cn.Open 
   rs_xx.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText 'rs_xx.MoveFirst  '加上此句   Do While Not rs_xx.EOF 
      Text2.Text = rs_xx.Fields(1) 
      rs_xx.MoveNext 
   Loop 
End Sub '如果还没有显示,可能是表示:未有找到数据.即查找到的结果为空.

Answer 4

为什么我加上以后会出现
实时错误'3021'
BOF或EOF中有一个是"真",或者当前的记录已被删除,所需的操作要求一个当前的记录.数据库中有记录的啊

Answer 5

实时错误'3021' 
BOF或EOF中有一个是"真",或者当前的记录已被删除,所需的操作要求一个当前的记录. 
OK了,你查到的记录数为空.才会出现此错误.

Answer 6

我...
Text1.text有值了.那在那一句显示错误?

Answer 7

谢谢!,可能是text1.text是从登陆界面连接过来的,有点问题