C1FlexGridClassic1如何绑定ADODB.Recordset

Dim adoRs As New ADODB.Recordset
        Dim SQLStr As String
        SQLStr = "select 企业名称,年度 from info order by 建立时间 DESC"
        adoRs.Open(SQLStr, cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic) '记录集
        C1FlexGridClassic1.DataSource = adoRs
        adoRs.Close()
‘以上代码无法显示表格内容，附连接函数
    ’Function cnn() As ADODB.Connection '连接１，基本信息数据库
        ‘cnn = New ADODB.Connection
        ’cnn.Open(&quotrovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Application.Info.DirectoryPath & "\ACCESS\db.mdbersist Security Info=False")
    ‘End Function

Dim da As New System.Data.OleDb.OleDbDataAdapter
        Dim ds As New DataSet

        Dim adoRs As New ADODB.Recordset
        Dim SQLStr As String
        SQLStr = "select 企业名称,年度 from info order by 建立时间 DESC"
        adoRs.Open(SQLStr, cnn, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic) '记录集

        da.Fill(ds, adoRs, "us")
        C1FlexGridClassic1.DataSource = ds.Tables("us")

OK了

回复 3楼pan00001的帖子

好的，感谢你的反馈问题解决方法。谢谢