怎么把RecordSet中的数据绑定到DataGrid中啊？提示 类型不匹配

本帖最后由 bcrun 于 2011-12-30 22:28:29 编辑 本帖最后由 bcrun 于 2012-02-29 21:45:17 编辑 这个我也一直很想知道为什么
Set DataGrid_reader.DataSource = rs 

这句绑定为什么不行

加上一句绑定 刷新好像也不行 
不过lz可以试着加上绑定和刷新的语句试试
这段代码也许能帮到LZ，LZ可以试试

Dim con As New ADODB.Connection ''定义数据库的连接存放数据和代码

Dim cmd As New ADODB.Command

Dim Gs As New ADODB.Recordset

Dim strSQL As String

con.ConnectionString = StrConn

strSQL = "select * from 顾客信息表"

''con.CursorLocation = adUseClient''无就不能绑定数据了?

con.CursorLocation = adUseClient ''还不能是adUseServer

con.Open

Set Gs = con.Execute(strSQL)

''Gs.Open strSQL, con, 3, 3

Set DataGrid1.DataSource = Gs

DataGrid1.Refresh

con.CursorLocation = adUseClient ''还不能是adUseServer
这句应该是关键了
不过
datagrid太不理想了,因为它的数据是需要绑定的,而不是想MSFlexGrid那样是从数据集里读取的.

Public Sub FillDataToMSFlex(rs As ADODB.Recordset, Mygrid As MSFlexGrid) ''将数据填充到MSFLEXGRID控件中去
也许换个控件也不错    With cmd
        .ActiveConnection = cnn
        .CommandType = adCmdText
        .CommandText = sql
        arr = Array(101, "101")
         .Parameters(0).Value = arr(0)
         .Parameters(1).Value = arr(1)
         rs = .Execute'这句应该有问题吧，set
    End With

补充：VB ,  基础类