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”出现错误提示,请各位帮帮忙!
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 = ""