Question

vb+access Refresh方法的Iadodc失败

Private Sub Form_Load()
Dim a As String
RecordSource = "select * from 系统人员表"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
a = Adodc1.Recordset.Fields(0)
List1.AddItem a
Adodc1.Recordset.MoveNext
Loop
List1.Text = ""

End Sub

“Adodc1.Refresh”出现错误提示，请各位帮帮忙！

Answer 1

看一下Adodc的数据源连接是不是用的表啊，把他改成用select语句：select * from 表名。或者检查一下数据库的连接！这个错误就是数据库连接的问题。我刚遇到过这个问题！

Answer 2

Adodc1.RecordSource = "select * from 系统人员表"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
a = Adodc1.Recordset.Fields(0)
List1.AddItem a
Adodc1.Recordset.MoveNext
Loop
List1.Text = ""