Ⅰ VB没有为命令对象设置命令
你真是太粗心了，变量写错了。错误在此处：
-----------------------------------------
str1 = "select * from 用户信息 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "' "
----------------------------------------
将上面的代码变为如下就可以了：
++++++++++++++++++++++++++++++++++++++++
strsql= "select * from 用户信息 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "' "
++++++++++++++++++++++++++++++++++++++++
建议你在以后的学习过程当中都在写代码之前加上：
Option Explicit
来检测你的代码中变量的声明
Ⅱ 错误:ADODC:没有指定记录源[ADO]:没有为命令对象设置命令
在程序设计时就可以设计DataGrid的记录源（ADODC）了，而一开始需要设计ADODC的数据源，比如MDB文件
如果你要写代码
可以这样写：
Priavte sub form_load()
……
'已经设置好ADODC的数据源
set datagrid1.datasource=adodc1
……
end sub
Private Form_Unload(Cancel As Integer)
……
set datagrid1.datasource=nothing
……
End sub
现在只是解决控件连接问题，我看“错误:ADODC:没有指定记录源[ADO]:没有为命令对象设置命令”是对ADODC说的，请检查ADODC的ConnectString连接字符串和确定ADODC的数据来源（表格，查询等）——RecordSet属性：
RecordSource 属性（ADO Data 控件）
返回或设置语句或返回一个记录集的查询。
语法
object.RecordSource [= value ]
RecordSource 属性的语法包括下述部分：
部分 描述
Object 一个对象表达式，其值为“应用于”列表中的一个对象。
Value 一个字符串表达式，它指定了一个记录源，如“设置值”中所描述的。
设置值
value 的设置值为：
设置值 描述
表名称 一个数据库表的名称。
SQL 查询 一个有效的 SQL 字符串，该字符串使用了适合于数据源的语法。
Ⅲ VB数据库提示“没有为命令对象设置命令”，求各位大神帮忙解决加分
strSql="select * from 姓名 where Name='"+Text1.text+"'"
Ⅳ 程序运行时出现“没有为命令对象设置命令”，但从数据库中可以看到只有表PatientECGand3D中没有添加
strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=kaoqing;Data Source=JANSON"
不知上句的字符串内容是否正确。sql数据库的连接代码我没有，给ACCESS数据库的连接代码供参考：
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxrkgl.mdb;Persist Security Info=False"
你的其它代码经调试未发现问题，正确运用了ADODB数据对象。但从你的叙述中看，你另外使用了ADODC数据控件，是否是该功件的属性设置有问题。
补充：
1)ADODC数据控件作连接字符串正确后，如未指定数据表，运行会报错，你可删除该控件，运行你的代码不会有问题。
如果你是新建数据工程，VB会自行加载ADO数据对象。如果你是新建EXE工程，则应由工程菜单选引用选项，在其窗口选MICROSOFT ACTIVEX DATA OBJECTS 2.0 LIBRARY加钩即可。不过建议按新建数据工程简单。
2)我用以下代码调试你的主要代码，仅按新建EXE工程，则应由工程菜单选引用选项，在其窗口选MICROSOFT ACTIVEX DATA OBJECTS 2.0 LIBRARY加钩，并添加DATAGRID部件，无问题，在VB6调试：
Private Sub Form_Load()
Dim strConn As String
Dim pubConn As New ADODB.Connection
Dim rsTable As New ADODB.Recordset
Dim strSQL As String
'strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=kaoqing;Data Source=JANSON"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxrkgl.mdb;Persist Security Info=False"
pubConn.Open strConn
rsTable.CursorLocation = adUseClient
strSQL = "select * from mdlk_sj"
'strSQL = "select * from attdcardrec"
rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTable
End Sub
Ⅳ VB.net 没有为命令对象设置命令
If database.BindingNavigator.BindingSource Is database.钻孔数据表BindingSource
这是什么东西，说明一下
database
Ⅵ access没有为命令对象设置命令，
无法判断你自定义的函数GetRs()是否能返回一个记录集。这可能是问题发生的原因。
建议你用一个简单的域合计函数作为判断条件即可：
steSQL = "SELECT * FROM 管理员 WHERE 用户名='" & Me.UserName & "'and密码='" & Me.Password & ""
Set rs = GetRs(strSQL)
If rs.EOF Then
这段替换为：
if dcount("用户名","管理员", "用户名='" & Me.UserName & "' and 密码='" & Me.Password & "'") >=1 then
Ⅶ VB6.0出现[ADODC]:没有指定记录源，[ADO]:没有为命令对象设置命令问题，求大神解救。
DataSource属性没设置好，不要事先在属性里面设置为adodc
adodc的recordsource属性 也要设置正确哈（很重要！！）
Ⅷ 用vb连接sql数据库时总是提示:ADODC:没有指定记录源[ADO]:没有为命令对象设置命令
strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=kaoqing;Data Source=JANSON" 不知上句的字符串内容是否正确。sql数据库的连接代码我没有，给ACCESS数据库的连接代码供参考：strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\hxrkgl.mdb;Persist Security Info=False"你的其它代码经调试未发现问题，正确运用了ADODB数据对象。但从你的叙述中看，你另外使用了ADODC数据控件，是否是该功件的属性设置有问题。补充：1)ADODC数据控件作连接字符串正确后，如未指定数据表，运行会报错，你可删除该控件，运行你的代码不会有问题。如果你是新建数据工程，VB会自行加载ADO数据对象。如果你是新建EXE工程，则应由工程菜单选引用选项，在其窗口选MICROSOFT ACTIVEX DATA OBJECTS 2.0 LIBRARY加钩即可。不过建议按新建数据工程简单。2)我用以下代码调试你的主要代码，仅按新建EXE工程，则应由工程菜单选引用选项，在其窗口选MICROSOFT ACTIVEX DATA OBJECTS 2.0 LIBRARY加钩，并添加DATAGRID部件，无问题，在VB6调试：Private Sub Form_Load()Dim strConn As StringDim pubConn As New ADODB.ConnectionDim rsTable As New ADODB.RecordsetDim strSQL As String'strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=kaoqing;Data Source=JANSON"strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\hxrkgl.mdb;Persist Security Info=False"pubConn.Open strConnrsTable.CursorLocation = adUseClientstrSQL = "select * from mdlk_sj"'strSQL = "select * from attdcardrec"rsTable.Open strSQL, pubConn, adOpenDynamic, adLockOptimisticSet DataGrid1.DataSource = rsTableEnd Sub
Ⅸ 求大神找错，为什么我的代码运行后提示System.Data.OleDb.OleDbException: 没有为命令对象设置命令。
string MyConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+Server.MapPath(".")+"F:\\student.mdb;" ;
这里错了
应该这样写
string MyConnString = "Provider = Microsoft.jet.OLEDB.4.0; Data Source =" + Server.MapPath("相对路径");
Server.MapPath这个里面应该是写相对路径，他会返回服务器上的绝对路径
Ⅹ 求助VB高手！[ADODC]:没有制定记录源。[ADO]:没有为命令对象设置命令。
编号是不是字符类型的，如果是，将
Adodc1.RecordSource
=
"select
*
from
库存
where
编号
="
&
txtno.Text
改为
Adodc1.RecordSource
=
"select
*
from
库存
where
编号
='"
&
txtno.Text
&
"'"