如何将recordset对象中的数据显示到msflexgrid最好是直接帮定上去,别的几个控件有没有更好用的,我只要能显示数据就可.

解决方案 »

  1.   

    用ADO+MSHFlexgrid吧'引用ADO(工程/引用/Microsoft ActiveX Data Object 2.X Library)
    '添加MSHFlexGrid控件(工程/部件/Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB))Private Sub Command1_Click()
        Dim cn As New ADODB.Connection, rs As New ADODB.Recordset
        cn.CursorLocation = adUseClient
        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;User Id=admin;Password=;"
        rs.Open "select *  from 表 ", cn, adOpenDynamic, adLockOptimistic
        Set MSHFlexGrid1.DataSource = rs
    End Sub
      

  2.   

    如果是sql数据库,改一下连接字符串就行了
      

  3.   

    如果是sql
    连接字符为    strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=你的数据库名;Data Source=数据库所在的计算机名"