لطفا سریع

[farzad sahraei]

سلام
مشکل من توی دریافت پارامتر از sp با recordset توی vb6 هستش.
کد sp و vb من به صورت متن بعدیه
از کمکتون ممنون.

[farzad sahraei]

CREATE PROCEDURE InsertTamase(@TName nvarchar(50) , @TOgenize nvarchar(40), @TGrade nvarchar(50), @TAddress nvarchar(256), @TPhone nvarchar(50), @TEmail nvarchar(50), @TSite nvarchar(50), @TDiscription nvarchar(800), @TType tinyint, @TDate nvarchar(10), @TTime nvarchar(5), @UCode int,@test Int OutPut)
AS
INSERT INTO TblTamse (TName, TOgenize, TGrade, TAddress, TPhone, TEmail, TSite, TDiscription, TType, TDate, TTime, UCode) VALUES (@TName , @TOgenize , @TGrade, @TAddress , @TPhone , @TEmail , @TSite , @TDiscription , @TType , @TDate, @TTime , @UCode)
SELECT @@IDENTITY as 'ID'
GO
-------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------
SqlSP = "EXEC InsertTamase '" + CStr(IIf(Trim(Txt(0).Text) = "", ".", Trim(Txt(0).Text))) + _
"','" + CStr(IIf(Trim(Txt(1).Text) = "", ".", Trim(Txt(1).Text))) + _
"','" + CStr(IIf(Trim(Txt(2).Text) = "", ".", Trim(Txt(2).Text))) + _
"','" + CStr(IIf(Trim(Txt(4).Text) = "", ".", Trim(Txt(4).Text))) + _
"','" + CStr(IIf(Trim(Txt(3).Text) = "", ".", Trim(Txt(3).Text))) + _
"','" + CStr(IIf(Trim(Txt(5).Text) = "", ".", Trim(Txt(5).Text))) + _
"','" + CStr(IIf(Trim(Txt(6).Text) = "", ".", Trim(Txt(6).Text))) + _
"','" + CStr(IIf(Trim(Txt(7).Text) = "", ".", Trim(Txt(7).Text))) + _
"'," + CStr(IIf(Trim(Cmb(0).ListIndex) = "", ".", Trim(Cmb(0).ListIndex))) + _
",'" + Today + "','" + Left(Time, 5) + "'," + CStr(UCodeLogin) + ", ''"
.Open SqlSP, CNN, adOpenStatic, adLockOptimistic
.Requery
SqlSP = RstTamase.Fields("ID").Value