数据库问题~~~~

Question

在按一定条件查询过数据库后，datagrid控件中显示查询结果，当要通过按command命令（显示全部）返回显示数据库中原有的数据该如何设置！！~~
代码：
Private Sub Command3_Click()
Adodc1.RecordSource = VB.App.Path & "零件功能库" & current & ".mdb"
End Sub
为何没有效果？
这问题相当简单。。可就是8会弄。。各位帮下。。感激不尽~~

Answer 1

Private Sub Command3_Click()DataGrid1.DataSource = Adodc1Adodc1.RecordSource = VB.App.Path & "零件功能库" & current & ".mdb"End Sub
显示是未找到方法或数据成员！！~~~~

Answer 2

Adodc1.RecordSource ="select * from tb"DataGrid1.DataSource = Adodc1DataGrid1.update试试看呢

Answer 3

还是不行。。只要用到DataGrid1.DataSource就会显示“未找到方法或数据成员”。可是在最初是能加载数据库并且可以进行模糊查询的现在想让datagrid1里的数据返回最原始的未经查询的状态！！~~

Answer 4

set DataGrid1.DataSource = Adodc1

Answer 5

还是不行呢。。错误没出，但在查询显示结果之后再按“command(显示全部）”还是没有反应~~！！

Answer 6

告诉你一个检查的办法
你再找一个datagrid然后就显示全部数据，看看什么代码可以完成。最差最差的方法就是把两个datagrid一样大小，一样位置，然后交替显示

Answer 7

Private Sub Command3_Click()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\零件功能库\" & current & ".mdb" & ";Persist Security Info=False"
Adodc1.RecordSource = "select * from yourTableName"
Set DataGrid1.DataSource = Adodc1
End Sub

Answer 8

不用  ADODC 可以么?dim cn as new adodb.connection
dim rs as new adodb.recordsetcn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\零件功能库\" & current & ".mdb" & ";Persist Security Info=False"rs.open "SELECT * FROM table WHERE field = value"
rs.CursorLocation= adUseClientset datagrid1.datasource =  rs' ----  close ----
set datagrid1.datasource = nothing
rs.close
set rs=nothing
cn.close
set cn=nothing

Answer 9

已经OK了。。非常感谢各位。。其实应该是数据源设置的问题。。有人帮我解决了。而command3的代码就是：
Private Sub Command3_Click()
Adodc1.Refresh
DataGrid1.Refresh
 End Sub