ado对象返回查询结果的问题?
Keng 2002-04-26 03:23:53 '开始ado对象
Public obj_ado_command As Command 'ado command 对象
Public obj_ado_recordset As Recordset 'ado对象
Public obj_ado_connection As Connection 'ado连接对象
'结束ado对象申明
Private Sub Form_Load()
Set obj_ado_command = New Command
Set obj_ado_recordset = New Recordset
Set obj_ado_connection = New Connection
obj_ado_connection.CursorLocation = adUseClient
obj_ado_connection.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=D:\Microsoft Visual Studio\VB98\毕业设计\DataBase\图书管理.mdb;"
Set obj_ado_command.ActiveConnection = obj_ado_connection
obj_ado_command.CommandText = "select * from 借阅表"
Set obj_ado_recordset = obj_ado_command.Execute
---------------------就是下面这行--------------------
mainwindow.Adodc3.RecordSource = obj_ado_recordset
----------------------------------------------------
▲mainwindow.cy.Refresh
obj_ado_recordset.Close
obj_ado_connection.Close
End sub
请问我用线条栏起来的那行代码为什么会出现类型不匹配的问题?
还有就是显示三角的那行我是想让DataGrild重新刷新上面查询的内容对吗?