数据库问题~~~~
在按一定条件查询过数据库后，datagrid控件中显示查询结果，当要通过按command命令（显示全部）返回显示数据库中原有的数据该如何设置！！~~
代码：
Private Sub Command3_Click()
Adodc1.RecordSource = VB.App.Path & "零件功能库 " & current & ".mdb "
End Sub
为何没有效果？
这问题相当简单。。可就是8会弄。。各位帮下。。感激不尽~~
[解决办法]
datagrid.datasource
[解决办法]
Adodc1.RecordSource = "select * from tb "
DataGrid1.DataSource = Adodc1
DataGrid1.update
试试看呢
[解决办法]
set DataGrid1.DataSource = Adodc1
[解决办法]
告诉你一个检查的办法
你再找一个datagrid然后就显示全部数据，看看什么代码可以完成。最差最差的方法就是把两个datagrid一样大小，一样位置，然后交替显示
[解决办法]
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
[解决办法]
不用 ADODC 可以么?
dim cn as new adodb.connection
dim rs as new adodb.recordset
cn.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= adUseClient
set datagrid1.datasource = rs
' ---- close ----
set datagrid1.datasource = nothing
rs.close
set rs=nothing
cn.close
set cn=nothing
