我自己用Select语句建立了一个数据源cn和数据集rs,想让rs中的数据在DataDrid中显示,怎么才能让rs和datagrid连接,请帮忙,帮忙写一下代码

解决方案 »

  1.   

    dim cn as new adodb.connection
    dim rs as new adodb.recordset
    cn.connectionstring=provider=.........."
    cn.open 
    rs.open "select * from tablename",cn,adOpenDynamic, adLockPessimistic
    set datagrid=rs
      

  2.   

    Set connwsxk = New ADODB.Connection
        connwsxk.CursorLocation = adUseClient
        connwsxk.ConnectionString = "Provider=SQLOLEDB.1;Password=j437;Persist Security Info=True;User ID=sa;Initial Catalog=wsjd;Data Source=WSJD"
        connwsxk.Open
        Set rswsxk = New ADODB.Recordset
        rswsxk.Open "select * from Tbl_wsxk where xklb='食' order by id", connwsxk, adOpenStatic, adLockOptimistic
        set datagrid1.datasource=rswsxk
      

  3.   

    sql = "select*from Cregain"
    Set rs = ExecuteSQL(sql)
    Set DataGrid2.DataSource = rs  <-------------------楼主想要的
      

  4.   

    楼上的你的这个Set rs = ExecuteSQL(sql)里的ExecuteSQL(sql)是不是要实现定义一下啊