Board logo

标题: [数据库] 我用ado连接数据库出现问题..dataGrid不显示查询结果.还报错...专家帮我哦 [打印本页]

作者: dongli147    时间: 2006-11-1 14:25     标题: 我用ado连接数据库出现问题..dataGrid不显示查询结果.还报错...专家帮我哦

我用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    时间: 2006-11-1 16:57

DBGrid1.DataSource 这个要联接DAO控件,你使用ADO当然要出错了。
你使用DataGrid1控件吧,这个对应的是ADO。
应当叫 Microsoft Data Grid Control 6.0
作者: 冰点    时间: 2006-11-1 17:00

DataGrid与DBGrid是两个不同的控件!
已经用New关键字声明的对象不需再用SET
Set DBGrid1.DataSource = r2不支持这样绑定
CursorType又是静又是动,从哪儿找的代码啊
作者: dongli147    时间: 2006-11-3 16:11     标题: 回复 #2 Nothing 的帖子

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




欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/) Powered by Discuz! 6.0.0