به کمک یه آدم خیر نیاز دارم

[nazaninzeinab]

سلام

پروسیجری در اسکیوال نوشتم و با کدنویسی بین ویبی و اسکیوال ارتباط برقرار

کردم اما برای فراخوانی این پروسیجر مطلبی را پیدا کردم که فکر می کنم از

نظر منطقی درست باشد منتها پارامترهای ورودی من(text3,text4) را نمی شناسد

اگر کسی اطلاعات بیشتری دارد لطفا کمک کند .insertsql نام پروسیجر است

این هم خطوط برنامه: مشکل اصلی در خط آخر است

With cmd
"CommandText = "InsertSql
CommandType = adCmdStoredProc
ActiveConnection = cnn
End With
"set rs=cmd.execute "text3.text","text4.text

[Darg]

پیغام خطا چیه؟
یعنی چه error ری میده ؟

[nazaninzeinab]

سلام
خودم جواب را پیدا کردم :


پروسیجر نوشته شده در اسکیوال
CREATE procedure InsertSql
@Enter1 char(15),@Enter2 char(15)
as
insert into Personal(Name,Family)
values(@Enter1,@Enter2 )
GO
--------------------------------------------------------
برقراری ارتباط ویبی با بانک اسکیوال
Private Sub Form_Load()
With cnn
.ConnectionString = "PROVIDER=MSDASQL;driver={SQL Server};server=zeinab-f3b840ca;uid=;pwd=;database=Personal Database;"
.CursorLocation = adUseClient
.Open
End With
With cmd
.CommandText = "select * from Personal"
.CommandType = adCmdText
.ActiveConnection = cnn
End With
rs.LockType = adLockOptimistic
rs.Open cmd
Text1.Text = rs.Fields("Id_No")
Text2.Text = rs.Fields("Name")
Text3.Text = rs.Fields("Family")
End Sub
----------------------------------------------
فراخوانی پروسیجر با دو پارامتر ورودی
Private Sub CmdInsert_Click()
rs.Close
With cmd
.CommandText = "InsertSql"
.CommandType = adCmdStoredProc
.ActiveConnection = cnn
.Parameters("@Enter1").Value = Text4.Text
.Parameters("@Enter2").Value = Text5.Text
.Execute
End With
End Sub
------------------------------------------------------------
چون روبروی اجرای پروسیجر دو پارامتر وارد می کردم ایراد میگرفت و پارامترها را نمی شناخت