我样做哪里出错了?

Question

Private Sub Command1_Click()
Adodc1.RecordSource = "用户"
Adodc1.Refresh
Adodc1.Recordset.MoveNext
if not Adodc1.Recordset.eof then
  Text1.Text = Adodc1.Recordset("用户名")
else
  msgbox "NO Recordset!"
end if
Adodc1.Recordset.Close
End Sub

Answer 1

Private Sub Command1_Click()
Adodc1.RecordSource = "用户"
Adodc1.Refresh
'Adodc1.Recordset.MoveNext   你把这句注释掉试试！！
Text1.Text = Adodc1.Recordset("用户名")
Adodc1.Recordset.Close
End Sub

Answer 2

老大还是不行呀,到了这句,Adodc1.Recordset.MoveNext..就报错,,
我是用  MICROSOFT OLE DB PROVIDER FOR SQL SERVER 联接的!测试联接也通过了!

Answer 3

Private Sub Command1_Click()
Adodc1.RecordSource = "用户"
Adodc1.Refresh
'Adodc1.Recordset.MoveNext   你把这句注释掉试试！！
Text1.Text = Adodc1.Recordset("用户名")
Adodc1.Recordset.Close
End Sub这样做还是不行哪就到了,,Text1.Text = Adodc1.Recordset("用户名")
这句完蛋了!

Answer 4

Private Sub Command1_Click()
Adodc1.RecordSource = "用户"
Adodc1.Refreshif not Adodc1.Recordset.eof then
  Text1.Text = Adodc1.Recordset("用户名")
  Adodc1.Recordset.MoveNext
else
  msgbox "NO Recordset!"
end if
Adodc1.Recordset.Close
End Sub

Answer 5

Private Sub Command1_Click()
Adodc1.RecordSource = "用户"
Adodc1.Refreshif not Adodc1.Recordset.eof then
  Text1.Text = Adodc1.Recordset("用户名")
  Adodc1.Recordset.MoveNext
else
  msgbox "NO Recordset!"
end if
Adodc1.Recordset.Close
End Sub我这样做的话就会出现"NO Recordset!" 
我的记录还是看不到??

Answer 6

哈哈，没有数据当然是NO Recordset啦。