关键代码是:
set Datagrid1.RecordSource = 记录集
Datagrid1.Refresh
你怎么查询的,把代码贴出来看看给你改改
设计如下窗体,包含以下控件,一个label;
一个text的属性为空;一个command其caption为查询;一个Data控件,其DatabaseName属性值为数据库的具体的位置;一个MSFlexGrid控件,其DataSource的属性值为Data1
Private Sub Command1_Click()
Data1.RecordSource = "SELECT * FROM (表名) WHERE (字段名) ='" & Text1.Text & "'"
Data1.Refresh
If Data1.Recordset.EOF Then
a = MsgBox("查询结束!")
Data1.RecordSource = "(字段名)"
Data1.Refresh
End If
End Sub