小弟在此各位兄弟：有关ADODC这个东西的麻烦事！

Question

老兄,可以解决的,你设置
datagrid1.datasource=rs
不就可以了吗

Answer 1

这个我也试过了，但运行时提示：找不到过程或函数！另外在设计时我引用了ADO2.0.

Answer 2

用DATAGRID还是不要直接和ADO关联比较好,其实可以直接显示出来Private Function mbfShowRecordset(ByRef poMSHFlex As Control) As Boolean
    On Error GoTo ErrHandle
    
    Dim iRowCount As Integer
    Dim iColCount As Integer
    Dim iRowIndex As Integer
    Dim iColIndex As Integer
    Dim recThro As ADODB.Recordset
    
    Set recThro = New ADODB.Recordset
    recThro.Open psTranView, pcnnTran, adOpenStatic, adLockReadOnly
    
    If recThro.RecordCount <> 0 Then
        iColCount = recThro.Fields.Count
        iRowCount = recThro.RecordCount
        
        poMSHFlex.Cols = iColCount + 1
        poMSHFlex.Rows = iRowCount + 1
        
        poMSHFlex.Row = 0
        poMSHFlex.ColWidth(0) = 500
        For iColIndex = 1 To iColCount
        
            poMSHFlex.Col = iColIndex
            poMSHFlex.Text = recThro.Fields(iColIndex - 1).Name
            poMSHFlex.ColWidth(iColIndex) = _
                TextWidth(recThro.Fields(iColIndex - 1).Name) * 1.2
                
        Next
        poMSHFlex.Col = 0
        For iRowIndex = 1 To iRowCount
            poMSHFlex.Row = iRowIndex
            poMSHFlex.Text = iRowIndex
        Next
        recThro.MoveFirst
        For iRowIndex = 1 To iRowCount
            poMSHFlex.Row = iRowIndex
            For iColIndex = 1 To iColCount
                poMSHFlex.Col = iColIndex
                If Not IsNull(recThro.Fields(iColIndex - 1).Value) Then
                    poMSHFlex.Text = recThro.Fields(iColIndex - 1).Value
                Else
                    poMSHFlex.Text = "NULL"
                End If
            Next
            recThro.MoveNext
        Next
    End If
    
    recThro.Close
    Set recThro = Nothing
    
    mbfShowRecordset = True
    
    Exit FunctionErrHandle:
    
    mbfShowRecordset = False
    
End Function

Answer 3

多谢各位了，想不到有这么多兄弟关心，感激之情不溢于言表呀！在这个CSDN网上真
的是卧虎藏龙之地！

Answer 4

set datagrid1.datasource=rs
我有刚做好的源程序，要的话发信到[email protected]，记得给点分呀！