مشکل با sp

[سمیرا دهقان]

سلام

من یه sp نوشتم که دو مقدار را به جدول اضافه می کنه و با امکانات خود sqlserver که چک کردم درست

کار می کنه ولی من در vb.net می خواهم پارامتر به sp بفرستم و اجراش کنم (insert کنم) ولی پیغام زیر

را می دهد ( کدی که نوشتم در داخل عکس هست )

http://i34.tinypic.com/zk216b.jpg

[rooshan2008]

سلام
میشه spرو بنویسی؟

[Chabok]

با سلام

شما باید فقط نام SP رو به CommandText بدین .
نوع CommandType رو روی StoredProcedure قرار بدین .
پارامترها رو هم از طریق پارامترهای کامند اضافه و مقدار دهی کنید .


cmd1.Parameters.AddWithValue("@Par1","Salam")

موفق باشید . خدانگهدار

[سمیرا دهقان]

سلام

من کاری که شما گفتید کردم ولی بازم خطا میده

http://i35.tinypic.com/289irdk.jpg

این هم sp که من نوشتم

http://i34.tinypic.com/vzki7b.jpg

[shamsoft]

.
.
.
ALTER PROCEDURE [dbo].[test1]
AS
declare @name nchar (10)
declare @family nchar (10)
BEGIN
.
.
.
این تیکه رو اینجوری تغییر بده:

.
.
.
ALTER PROCEDURE [dbo].[test1]
(
declare @name nchar (10)
declare @family nchar (10)
)
AS
BEGIN
.
.
.

[Chabok]

خیر . اینجوری تغییر بدین

ALTER PROCEDURE test1
@name nchar (10)
@family nchar (10)
AS
BEGIN

[bardia goharbin]

نخیر اینجوری تغییر بدین


ALTER PROCEDURE test1
@name nchar (10),
@family nchar (10)
AS
BEGIN

[arsalansalar]

کد تو به شکل زیر تغییر بدهید:

con = New OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\db.mdb")
Try

Dim strSQL As String = _
"INSERT INTO for1 (name,family,nopa,shef,da,ma,sa,pez,radr,madrm,mat a,madry)" & _
"VALUES (@name,@family,@nopa,@shef,@da,@ma,@sa,@pez,@radr, @madrm,@mata,@madry)"
Dim cmd As New OleDbCommand(strSQL, con)
With cmd
.Parameters.Add(New OleDbParameter("@name", t1.Text))
.Parameters.Add(New OleDbParameter("@family", T2.Text))
.Parameters.Add(New OleDbParameter("@nopa", T3.Text))
.Parameters.Add(New OleDbParameter("@shef", C1.Text))
.Parameters.Add(New OleDbParameter("@da", c2.Text))
.Parameters.Add(New OleDbParameter("@ma", C3.Text))
.Parameters.Add(New OleDbParameter("@sa", C4.Text))
.Parameters.Add(New OleDbParameter("@pez", C5.Text))
.Parameters.Add(New OleDbParameter("@radr", c6.Text))
.Parameters.Add(New OleDbParameter("@madrm", t4.Text))
.Parameters.Add(New OleDbParameter("@mata", t5.Text))
.Parameters.Add(New OleDbParameter("@madry", t6.Text))
' .Parameters.Add(New OleDbParameter("@rav", TextBox3.Text))
End With
con.Open()
cmd.ExecuteNonQuery()
con.Close()
Catch sqlExc As OleDbException
MessageBox.Show(sqlExc.ToString, "SQL Exception Error!", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch exc As Exception

End Try