关于存储过程传参

[watarno]

我得存储过程如下
create proc test
@parat1 varchar(10)
as
select * from t
where convert(varchar(10),crdate,120)=@parat1
go

在SQL查询分析器中用 exec test '2004-08-07'可以得到记录
但是在vb中，用
cmd.CommandText = "{call test(?)}"
cmd.Parameters.Append cmd.CreateParameter("@parat1", adBSTR, adParamInput, 8)
cmd("@parat1") = Text1.Text
Set rs = New ADODB.Recordset
If rs.State = 1 Then
rs.Close
End If
Set rs = cmd.Execute()
确得不到记录，这是怎么回事？

[watarno]

我自己写错了

[frankwong]

自己知错就要结贴!接分!

[watarno]

你告诉我
DataEnvironment1.Commands("Command1").Parameters("@date1").Value = "2004-08-07"
这句话的正确应该怎样赋值，我马上就给你！

[csdnchenxu]

楼主的代码我好陌生啊

我一般自己写函数 ConnetMDB(Byval MDBPATH as string, Byval strsql as string,
ByRef rs as adodb.recordset)

rs!

[cheng0733]

DataEnvironment1.Commands("Command1").Parameters("@date1").Value = vba.cdate("2004-08-07")
这样了

[watarno]

可能第一次用vb，才不到一周，写的代码比较丑吧，所以你看起来比较的陌生！呵呵
DataEnvironment1.Commands("Command1").Parameters("@date1").Value ="2004-08-07"
DataReportDay.Show
这个参数@date1的值传不进去，如果不要这句代码
DataEnvironment1.Commands("Command1").Parameters("@date1").Value ="2004-08-07"
直接使用DataReportDay.Show可以显示打印的，我设置的默认值也是2004-08-07，现在想传递参数，怎么都搞不定，郁闷！

[mjun007]

DataEnvironment1.Commands("Command1").Parameters(1).Value =#2004-08-07#
Parameters参数里是index即数字，在数据环境里看date1是第几个参数就添一下就可以了。

[TNT1900]

在ORACLE里，日期前后要用“#”包括起来。它才能认。
SQL SERVER和ACCESS则不用。