الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Store Procedure In Vb.net

مغلق
بدأه نسرينا123 في 23 يناير 2008 · 7 رد · 1,004 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

مساء الخيرات لكل الاعضاء الحلوين

انا عملت store procedure في ال sql server وبدي حد يتاكد من الprocedure اذ في غلط؟؟؟؟

ويقولي

وعاوزة كمان اعمله calling او استدعاء عبر الvb.net

انا راح انزل الكود تبع البروسيجر 

CREATE PROCEDURE [Doc_Login] 
@Doc_No[varchar]
AS
Declare @Userid int  
  insert into login(User_Id,Password,Type) values(@Doc_No,@Doc_No,'D')
  select  @Userid=@@identity
  update Doctor set <A href="mailto:Login_Id=@Userid">Login_Id=@Userid</A>
  where <A href="mailto:Doc_No=@Doc_No">Doc_No=@Doc_No</A>
commit
GO

طبعا البروسيجر بيستقبل واحد متغير فقط وهو رقم الدكتور

اما المتغير الثاني فقط للاستخدام داخل البروسيجر زي ما انتو شايفين

حاولت استدعيه عبر الفيبي دوت نت بس ما قدرت وما يعملش حاجة وكانه ما بيشتغل

الاستدعاء كان هيك

<FONT color=#0000ff size=2><FONT color=#0000ff size=2></P> 
Dim</FONT><FONT color=#000000 size=2> conStr </FONT><FONT color=#0000ff size=2>As</FONT><FONT color=#000000 size=2> </FONT><FONT color=#0000ff size=2>String</FONT><FONT color=#000000 size=2> = </FONT><FONT color=#800000 size=2>"Data Source=localhost;Initial Catalog=Exam;Integrated Security=True"</P></FONT><FONT size=2> 
</FONT><FONT color=#0000ff size=2>Dim</FONT><FONT size=2> con </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> </FONT><FONT color=#0000ff size=2>New</FONT><FONT size=2> SqlConnection(conStr)</P></FONT> 
Dim</FONT><FONT size=2> command </FONT><FONT color=#0000ff size=2>As</FONT><FONT size=2> SqlCommand = </FONT><FONT color=#0000ff size=2>New</FONT><FONT size=2> SqlCommand(</FONT><FONT color=#800000 size=2>"Doc_Login"</FONT><FONT size=2>, con)</P> 
command.CommandType = CommandType.StoredProcedure</P><FONT size=2> 
command.Parameters.Add(</FONT><FONT color=#800000 size=2>"@Doc_No"</FONT><FONT size=2>, SqlDbType.VarChar, 10)</P></FONT><FONT size=2> 
con.Open()</P></FONT><FONT size=2> 
command.ExecuteNonQuery()</P> 
con.Close()</P> 
MessageBox.Show(</FONT><FONT color=#800000 size=2>"Successfully Added"</FONT><FONT size=2>)</P> 
</FONT></FONT>
#2

سوف ارفق كود البرسوجر مره اخرى

store procedure in Sql

CREATE PROCEDURE [Doc_Login] 
@Doc_No[varchar]
AS
Declare @Userid int  
  insert into login(User_Id,Password,Type) values(@Doc_No,@Doc_No,'D')
  select  @Userid=@@identity
  update Doctor set Login_Id=@Userid
  where Doc_No=@Doc_No
commit
GO

سوف اضيف مره اخرى الكود الذي استخدمته لعمل الاستدعاء للبروسيجر المخزن

وارجو منكم الرد سررررررررررريع

Dim conStr As String = "Data Source=localhost;Initial Catalog=Exam;Integrated Security=True"

Dim con As New SqlConnection(conStr)

Dim command As SqlCommand = New SqlCommand("Doc_Login", con)

command.CommandType = CommandType.StoredProcedure

command.Parameters.Add("@Doc_No", SqlDbType.VarChar, 10)

con.Open()

MessageBox.Show("Database opend")

command.ExecuteNonQuery()

con.Close()

MessageBox.Show("Successfully Added")
#3

معقوووووووووووووول ماااااااااافي رد لحد هلااااااااااااااااااااااااا

بدي حد يتاكد من البروسيجور والاستدعاء

بليييييييييييييييييز رد سريع

#4

وهل هذا منظر كود؟ من لديه استعداد لاستخلاص الكود من ثم تصحيحه؟ برجاء وضع الكود بدون أي تنسيق ,,,

#5

عفوا اخي لم الاحظ شكل الكود في الفيبي دوت نت واليك الكود

Dim conStr As String = "Data Source=localhost;Initial Catalog=Exam;Integrated Security=True"
Dim con As New SqlConnection(conStr)
con.open()
Dim command As SqlCommand = New SqlCommand("Doc_Login", con)
		command.CommandType = CommandType.StoredProcedure
		command.Parameters.Add(New SqlParameter("@No", SqlDbType.VarChar, 10).Value = Doc_No.Text)
		command.ExecuteNonQuery()
		con.Close()
		MessageBox.Show("Login Added")

Dim conStr As String = "Data Source=localhost;Initial Catalog=Exam;Integrated Security=True"
Dim con As New SqlConnection(conStr)
con.open()
Dim command As SqlCommand = New SqlCommand("Doc_Login", con)
command.CommandType = CommandType.StoredProcedure
command.Parameters.Add(New SqlParameter("@No", SqlDbType.VarChar, 10).Value = Doc_No.Text)
command.ExecuteNonQuery()	  
con.Close()
MessageBox.Show("Login Added")
#6

أرييييييييييييييد حل بليييييييييييييييييز باسرع وقت ممكن !!!!!!!!!!!!!!!!!!!!

#7

معقوووووووووووووووووول مافي رد لحد هلا :(

#8

السلام عليكم

بحسب المكتوب في شيفرة فيجوال بيسيك من الطبيعي أن لا يظهر شيء بعد تنفيذ الاجراء المخزن، ببساطة بسبب الا

سباب التالية

1 - الاجراء المخزن لا يقوم بارجاع جملة استعلام أو متغير اخراج من الاجراء المخزن

2- الامر (command.ExecuteNonQuery)

لا يقوم بارجاع اي نتيجة لأن هذه هي وظيفته

B)

هذا الموضوع مغلق.

مواضيع مشابهة