怎样把recordset中的记录放到mshflexgrid中去？

Question

看了半天msdn，全是用把adodc连到mshflexgrid上去。可是这样太不方便了。我想把通过对数据库进行查询后的结果放到mshflexgrid中去，怎么实现啊？
比如：
Set mcn = New ADODB.Connection
mcn.Open conString
Set rs = New ADODB.Recordset
strSql = "select * from login where id='" & strID & "' and psw='" & strPSW & "'"
rs.Open strSql, mcn, adOpenStatic, adCmdText
Set mcn = Nothing
Adodc1.Refresh
现在的问题就是怎样把存在rs中的记录提取到mshflexgrid中去？请指教。

Answer 1

加上
conn.CursorLocation=adUseServer
Set DataGrid1.DataSource = rs

Answer 2

   With MSHFlexGrid1
      .Row = .Rows - 1
       .Col = 0
       .Text = rs1("store_no")
       .Col = 1
       .Text = IIf(IsNull(rs1("store1_no")), "", rs1("store1_no"))
       .Col = 2
       .Text = IIf(IsNull(rs1("store1_name")), "", rs1("store1_name"))
       .Col = 3
       .Text = IIf(IsNull(rs1("sto_stand")), "", rs1("sto_stand"))
        .Col = 4
       .Text = IIf(IsNull(rs1("sto_if1")), "", rs1("sto_if1"))
      
   End With或者直接賦予set me.MSHFlexGrid.DataSource=rs,此方法偶沒有試過，聽說行其實msflexgrid.MSHFlexGrid,spread讀發都一樣

Answer 3

Set rs = New ADODB.Recordset
strSql = "select * from login where id='" & strID & "' and psw='" & strPSW & "'"
rs.Open strSql, mcn, adOpenDynamic, adLockOptimistic
Set mshflexgrid1.DataSource = rs   '这是最简单的方法
rs.close

Answer 4

只加一句
Set mshflexgrid1.DataSource = rs   
就可以了。我刚试了。谢谢啦！