调用存储过程做子窗体的数据源

adge

在主窗体mainForm中建一个子窗体subForm，主窗体中建一个按纽,按纽事件中加入
dim rst as new adodb.recordset
set rst=currentproject.connection.execute("exec pro存储过程 ‘" & 日期1 & "','" & 日期2 & "'")
forms!mainForm.subForm.form.recordsource=rst

proc存储过程是这样写的
alter proedure proc存储过程(@日期1 datetime,@日期2 datetime)
as
select 日期,字段1,字段2
from 表1 where 日期 between @日期1 and @日期
在点击按纽后系统提示"你输入的表达式引用了一个关闭或不存在的对象"
请各位高手帮忙是哪里出错了!!我这样做是想通过主窗体的内容再增加查询条件设置子窗体的数据源,达到各种查询条件下的子窗体内容.多谢!

[此贴子已经被作者于2004-5-5 22:47:59编辑过]

zhuyiwen

在ADP中，你可以这样做：

1、假设你的主窗体mainForm上有两个文本框：“日期1”和“日期2”，有一个按钮为“cmdQuery”，放上一个子窗体控件名为“subForm”，子窗体名为frmDetails，存储过程与你问题中的一致。

2、对子窗体frmDetails的属性进行设置：
    记录源：proc存储过程
    输入参数：@日期1=forms!mainForm!日期1, @日期2=forms!mainForm!日期2

3、对主窗体mainForm进行设置：
    “日期1”文本框：输入掩码：0000-99-99;0;_
    “日期2”文本框：输入掩码：0000-99-99;0;_

4、cmdQuery的事件处理程序：

Private Sub cmdQuery_Click()
    Me.subForm.Form.Requery
End Sub

运行mainForm, OK！达到你的要求！

[此贴子已经被作者于2004-5-6 10:35:44编辑过]

zhuyiwen

下图是我这里的实例：

zhuyiwen

分析你的错误：

forms!mainForm.subForm.form.recordsource=rst

forms!mainForm.subForm.form.recordsource是一个字符串性，因此肯定出错，如果改为：

Set Me.subForm.form.Recordset = rst

则可能通过。（我没有测试）

adge

谢谢zhuyiwen,我将代码改了你最后说的方法，不能通过。第1种方法我以前就是这么做的，但是如果存储过程的参数变动的话，就一定要更改客户端的窗体觉得麻烦。
我想到的可行的方法了；
me.subForm.form.recordsource="exec pro存储过程" & "'" & 日期1 & "','" & 日期2 & "'"

完全通过.再次谢谢zhuyiwen,以后还要多向你们请教!

zhuyiwen

至少又多一种解决问题的方法,呵呵

不过我的方法是测试通过了的.

[此贴子已经被作者于2004-5-6 21:08:18编辑过]

土豆

form.recordsource可以直接使用SQL语句