dongli147

我用ado连接数据库,dataGrid也用到了.要求在dataGrid中显示查询结果...可是总报错误...
我原来代码如下:

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim r2 As New ADODB.Recordset
Dim cnb As New ADODB.Connection
Dim cstring As String

cstring = ";Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\文件\程序\小程序\db1.mdb;Persist Security Info=False"
If Combo1.Text = "编号" Then
Set cn = New ADODB.Connection
    cn.Open cstring
Set r2 = New ADODB.Recordset
With r2
   .CursorLocation = adUseClient
   .CursorType = adOpenStatic
   .Open "select * from table1 where 编号=" & Text1.Text, cn, adOpenDynamic, adLockOptimistic
   
   End With
Set DBGrid1.DataSource = r2
End If

End Sub

错误是:
                    实时错误'430'
                    类不支持自动化或不支持期望的接口



                                                         希望有能力的朋友帮帮我..谢谢
                                                        
                                                          我的MSN:lizhigang_88@hotmail.com

Nothing

DBGrid1.DataSource 这个要联接DAO控件，你使用ADO当然要出错了。
你使用DataGrid1控件吧，这个对应的是ADO。
应当叫 Microsoft Data Grid Control 6.0

冰点

DataGrid与DBGrid是两个不同的控件！
已经用New关键字声明的对象不需再用SET
Set DBGrid1.DataSource = r2不支持这样绑定
CursorType又是静又是动，从哪儿找的代码啊

dongli147

谢谢两位的帮助。。以后多关照小弟哦。。我菜鸟哦