Question

adodc控件打开数据表的问题！

在窗体load事件中连接并打开显示数据表：
With Adodc1
.RecordSource = "select * from tbtree"
.Refresh

End With
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
在按钮事件再次打开表查询（另一功能）时 DataGrid1原来显示的数据同时消失。这是怎么回事呢？能否通过Adodc1的方法解决这一现象？请教高手。

Answer 1

因为adodc1与datagrid1绑定(Set DataGrid1.DataSource = Adodc1)，
所以adodc1改变将同时影响datagrid1
这个无法通过adodc1的方法解决。可以使用多个adodc控件来实现你想要的功能，也可使用vsflexgrid替换datagrid来实现。

追问

但用adodb作同样的程序时也用了绑定，却没有此毛病。——想问问为什么。

Dim StrSql As String

StrSql = "Select * From tbtree"
rs.CursorLocation = adUseClient
rs.Open StrSql, cn '打开记录集
Set DataGrid1.DataSource = rs '这不也是绑定么

追答

不可能，在你上面这段程序下，再加一句rs.close你试试就知道了。

追问

在用adodb写这个程序时，只用了一个rs（Dim rs As New ADODB.Recordset），窗体显示与另一功能两不误，而用adodc写同样的程序，却必须正如您所说，用了两个adodc控件，分别连接库才避免了毛病。
另adodb可以用rs.CursorLocation = adUseClient这一句(而且必须用否则“行集合不能作为标签”),而在adodc中却不能写adodc1.recordset.CursorLocation = adUseClient(或set adodc1.recordset.CursorLocation = adUseClient)?

追答

Adodc1.CursorLocation = adUseClient