我把控件(listbox控件)捆绑到记录集上了，但为什么显示不出来呢?

Question

建议你还是不要用绑定，刷新常出问题，要加refresh的
我是这样用的
Dim rs As Recordset
Set rs = New Recordset
sqlshow = "select * from guest"
rs.Open sqlshow, cn, adOpenStatic, adLockOptimistic
while not rs.eof
   list1.additem rs("neirong")
   rs.movenext
wend

Answer 1

为什么提示编译错误：参数不可选
Private Sub Command4_Click()
Dim cn As Connection
Set cn = New Connection
dbpath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb\database.mdb;Persist Security Info=False"
cn.Open dbpath
Dim rs As Recordset
Set rs = New Recordset
sqlshow = "select * from guest"
rs.Open sqlshow, cn, adOpenStatic, adLockOptimisticWhile Not rs.EOF
  List1.AddItem = "neirong"
  rs.MoveNext
WendEnd Sub

Answer 2

还有我想做一个用户验证为什么提示对象关闭时，操作不被允许？错在哪里了？
Private Sub Command5_Click()
Dim cn As Connection
Set cn = New Connection
dbpath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb\database.mdb;Persist Security Info=False"
cn.Open dbpath
Dim rs As Recordset
Set rs = New Recordset
sqlshow = "select * from login where user='" & Text3.Text & "'"If Not rs.EOF And Not rs.BOF Then
  If rs.Fields("pwd") = Text4.Text Then
    MsgBox "yes"
  Else
    MsgBox "no"
  End If
Else
  MsgBox "no"
End If
End Sub

Answer 3

Private Sub Command5_Click()
Dim cn As Connection
Set cn = New Connection
dbpath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb\database.mdb;Persist Security Info=False"
cn.Open dbpath
Dim rs As Recordset
Set rs = New Recordset
sqlshow = "select * from login where user='" & Text3.Text & "'"
rs.open sqlshow,cn   '*你少了这条语句了。
If Not rs.EOF And Not rs.BOF Then
  If rs.Fields("pwd") = Text4.Text Then
    MsgBox "yes"
  Else
    MsgBox "no"
  End If
Else
  MsgBox "no"
End If
End Sub

Answer 4

老兄，你的记录集没有打开，如何操作？ 加上就可以了
rs.open sqlshow,cn,adOpenStatic, adLockOptimistic

Answer 5

这句不能少rs.CursorLocation = adUseClient

Answer 6

这句不能少rs.CursorLocation = adUseClient

Answer 7

同意phide的话
你没有把SQL语句发到数据库中去
怎么会返回结果

Answer 8

另外一个问题是
list1.additem "String"
不应该有"="号