关于字符串连接问题(实为数据库连接)
本帖最后由 bcrun 于 2012-12-01 12:32:02 编辑 MDIform下面的子form 加载datagrid , Form_Load事件中datagrid绑定rs .
如果在Form_Load事件里面关闭rs 和cn ，子form的datagrid就没有内容显示，我只能在窗口退出时关闭rs 和cn. 但当我不关闭此form同时打开另外一个子form如果有数据库连接时就会出错，显示连接冲突。
求解决!

我的代码：

Private Sub Form_Load()
      
    cn.Open constr
    rs.CursorLocation = adUseClient
    rs.Open "select * from aaa", cn, adOpenKeyset, adLockOptimistic
    Set DataGrid1.DataSource = Nothing
    Set DataGrid1.DataSource = rs
    ‘rs.close  这两行不能加，加了datagrid就没有数据
    'cn.close  这两行不能加，
       
End Sub

[解决办法]
本帖最后由 bcrun 于 2012-12-01 15:24:09 编辑

Private Sub Form_Load()
    cn.CursorLocation = adUseClient
    cn.Open constr

    rs.Open "select * from aaa", cn, adOpenKeyset, adLockOptimistic
    Set DataGrid1.DataSource = rs
    cn.close      
    set rs.activateconnection=nothing
     
    set datagrid1.datasource=rs
End Sub