您所在位置：主题：高手 求助啊！！！！
piclove
[专家分：0] 发布于 2006-12-18 21:20:00
If Option1.Value = True Then
deptno = InputBox("请输入部门名称")
tabstring1 = "select bm 部门名称,dz 部门地址,ygzs 员工人数"
tabstring2 = "from dept"
tabstring3 = "where bm = " & " ' " & deptno & " ' "
tabstring = tabstring1 & tabstring2 & tabstring3
//上面是定义在form1中的
我想在form2中显示查询结果
Private Sub Form_Activate()
Form1.Adodc1.RecordSource = tabstring
Form1.Adodc1.Refresh
DataGrid.DataSource = Form1.Adodc1
End Sub
//这是我在form2中的代码
运行的时候 为什么出现
adodc adodc:no recordsource specified ado 没有为命令对象设置命令
高手们帮下忙啊 小弟是菜鸟 要交作业了 求助各位大哥啊
deptno = InputBox("请输入部门名称")
tabstring1 = "select bm 部门名称,dz 部门地址,ygzs 员工人数"
tabstring2 = "from dept"
tabstring3 = "where bm = " & " ' " & deptno & " ' "
tabstring = tabstring1 & tabstring2 & tabstring3
//上面是定义在form1中的
我想在form2中显示查询结果
Private Sub Form_Activate()
Form1.Adodc1.RecordSource = tabstring
Form1.Adodc1.Refresh
DataGrid.DataSource = Form1.Adodc1
End Sub
//这是我在form2中的代码
运行的时候 为什么出现
adodc adodc:no recordsource specified ado 没有为命令对象设置命令
高手们帮下忙啊 小弟是菜鸟 要交作业了 求助各位大哥啊
