Question

出现对象Refresh的方法IAdodc失败的错误 大侠们 帮帮忙

Private Sub ListView1_Click()
Adodc1.RecordSource = "select * from tb_user where user_name ='" + ListView1.SelectedItem + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
For i = 4 To Check1.UBound
If Adodc1.Recordset.Fields(i) = "" Then
Check1(i).Value = 0
Else
Check1(i).Value = Adodc1.Recordset.Fields(i)
End If
Next i
Adodc1.Recordset.Update '更新数据记录
Adodc1.Refresh
End If
End Sub
出现对象Refresh的方法IAdodc失败的错误 大侠们 帮帮忙

Answer 1

Private Sub ListView1_Click()
Adodc1.RecordSource = "select * from tb_user where user_name ='" + ListView1.SelectedItem.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
For i = 4 To Check1.UBound
If Adodc1.Recordset.Fields(i) = "" Then
Check1(i).Value = 0
Else
Check1(i).Value = Adodc1.Recordset.Fields(i)
End If
Next i
Adodc1.Recordset.Update '更新数据记录
Adodc1.Refresh
End If
End Sub

楼主这一句有问题 Adodc1.RecordSource = "select * from tb_user where user_name ='" + ListView1.SelectedItem.Text + "'"

追问

这个没有问题的，不过谢谢你了

Answer 2

兄弟，可能是数据库连接的问题，看下读写权限有什么错误没有

Answer 3

你可以试一试先杀毒 再重新启动电脑...

追问

你属于滥竽充数的吗