سمیرا دهقان
پنج شنبه 18 مهر 1387, 14:46 عصر
سلام
من یه sp نوشتم که دو مقدار را به جدول اضافه می کنه و با امکانات خود sqlserver که چک کردم درست
کار می کنه ولی من در vb.net می خواهم پارامتر به sp بفرستم و اجراش کنم (insert کنم) ولی پیغام زیر
را می دهد ( کدی که نوشتم در داخل عکس هست )
http://i34.tinypic.com/zk216b.jpg
rooshan2008
پنج شنبه 18 مهر 1387, 19:18 عصر
سلام
میشه spرو بنویسی؟
Chabok
جمعه 19 مهر 1387, 00:42 صبح
با سلام
شما باید فقط نام SP رو به CommandText بدین .
نوع CommandType رو روی StoredProcedure قرار بدین .
پارامترها رو هم از طریق پارامترهای کامند اضافه و مقدار دهی کنید .
cmd1.Parameters.AddWithValue("@Par1","Salam")
موفق باشید . خدانگهدار
سمیرا دهقان
جمعه 19 مهر 1387, 16:30 عصر
سلام
من کاری که شما گفتید کردم ولی بازم خطا میده
http://i35.tinypic.com/289irdk.jpg
این هم sp که من نوشتم
http://i34.tinypic.com/vzki7b.jpg
shamsoft
جمعه 19 مهر 1387, 18:48 عصر
.
.
.
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
جمعه 19 مهر 1387, 20:20 عصر
خیر . اینجوری تغییر بدین
ALTER PROCEDURE test1
@name nchar (10)
@family nchar (10)
AS
BEGIN
bardia goharbin
شنبه 20 مهر 1387, 08:32 صبح
نخیر اینجوری تغییر بدین
ALTER PROCEDURE test1
@name nchar (10),
@family nchar (10)
AS
BEGIN
arsalansalar
شنبه 20 مهر 1387, 10:04 صبح
کد تو به شکل زیر تغییر بدهید:
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.