vb+access Refresh方法的Iadodc失败

来源:百度知道 编辑:UC知道 时间:2024/06/24 00:00:05
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”出现错误提示,请各位帮帮忙!

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

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 = ""