Question

我正在编写一个使用MSDBGrid（5.0）ActiveX互操作COMObject和MSAccess DAO ActiveX COMObject的程序。使用vb.net Framework 4.7.2 这些东西太旧了，是的，我知道，但是我必须使用它。

我需要将DAO.RecordSet中的数据绑定到DBGrid

Dim Rs_Tantousya As DAO.Recordset 
Dim Qd_Tantousya As DAO.QueryDef

Dim Rs As DAO.Recordset 
Dim Qd_Tantousya As DAO.QueryDef


Private Sub Open_TQuery()

    Qd = Db.QueryDefs(aMst)
    Rs = Qd.OpenRecordset()
    'Me.DataCtrl.Recordset = Rs

    'Dim col As MSDBGrid.Column
    'col = CTypeDynamic(Of MSDBGrid.Column)(Me.DBGrid1.get_Columns(1))
    'Me.DBGrid1.HoldFields()
    'Me.DBGrid1.DataBindings.Add("DataSource.RecordSet", Me.DataCtrl.Recordset, Nothing)
    'Me.DBGrid1.Refresh()

    Me.DBGrid1.DataSource.RecordSet = Me.DataCtrl.Recordset

    Qd.Close()
End Sub

我无法设置返回MSDBGrid.ICursor的Me.DBGrid1.DataSource，我曾经尝试设置Me.DBGrid1.DataSource.Recordset = Me.DataCtrl.Recordset，但是它抛出异常，说Me.DBGrid1.DataSource什么都不是。

我已经在互联网上搜索了，但是都是delphi和vb5，vb6示例代码... 如果您对如何执行操作有任何想法，或者有一段示例代码，请发表评论。非常感谢你！

dataBinding-DAO.recordset到MSDBGrid

0 个答案: