在窗体上放一个adodc1控件,什么都不设置,写如下代码: Adodc1.ConnectionString = SN Adodc1.RecordSource = "select s_id as 学号,s_name as 姓名,s_class as 班级 from student" Adodc1.Refresh DataGrid1.ReBind Set DataGrid1.DataSource = Adodc1 If Adodc1.Recordset.RecordCount = 0 Then MsgBox "查无此人!", vbOKOnly + 64, "提示" End If
datagrid1.refresh
这个句子有问题么?
datagrid1.refresh
Adodc1.ConnectionString = SN
Adodc1.RecordSource = "select s_id as 学号,s_name as 姓名,s_class as 班级 from student"
Adodc1.Refresh
DataGrid1.ReBind
Set DataGrid1.DataSource = Adodc1
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "查无此人!", vbOKOnly + 64, "提示"
End If
试试:
rs.CursorLocation = adUseClient