Question

如何在VB中查询Access数据库，并让结果显示在Datagrid控件中？

以下是我的代码，运行没提示错误，但Datagrid控件无记录显示，多谢高手指教。Private Sub Form_Load()
Adodc1.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0; Data source=" & App.Path & "\dzyj.mdb;Persist security info= False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from hospital"
Adodc1.Refresh

Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh

End Sub

Private Sub Command1_Click()

Adodc1.RecordSource = "select * from hospital where Type like '%" & Trim(Text1.Text) & "%'"

Adodc1.Refresh

End Sub

Answer 1

你可以先将数据调入到记录集，如rst，然后Set DataGrid1.DataSource =rst，我是这么做的。

追问

我的程序是
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh

按道理也行啊，帮忙看看

Answer 2

太简单了呀

追问

我的代码运行没错，为何Datagrid控件无记录显示呢？

Answer 3

也许是hospital表中没有记录，查查看是不是这个问题。

追问

查看过了hospital表中有记录，不知怎么回事

追答

窗体首次显示有记录吗？