8k是不是a3纸:Dim rs As New ADODB.Recordset

来源：百度文库编辑：中科新闻网时间：2024/05/07 13:01:26

如下代码报错,"没有为命令对象设置命令",怎么回事,应该怎样改?
Dim rs As New ADODB.Recordset
Dim sqlstr As String

With rs
.ActiveConnection = dbcnn
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.Source = sqlstr
.Open
Set Me.DataGrid1.DataSource = rs
.Close

End With
赋值了,是几个if 语句,我做的是条件查询

贴出sqlstr赋值的语句。

----------------------
.Source = sqlstr
这行有问题
从代码看，你只声明了sqlstr变量，但并没有为变量赋值
sqlstr变量的内容应该是一个有效的SQL查询。
比如
SqlStr="select * from sysobjects"

Dim rs As New ADODB.Recordset Dim adorecordset As New ADODB.Recordset rs As New ADODB.Recordset 用户定义类型未定义 rs As New ADODB.Recordset 用户定义类型未定义. Public ku As New ADODB.Connection 用Dim as New生成label怎么绑定数据库呢 vb. 编译的时候出现错误,说这一句:Dim rst As ADODB.Recordset没有定义.应该怎么办? Dim Aform As New Form1 NEW关键字有什么用,请举例说明,谢谢. dim rs,str Dim db As Database