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

طريقة لمناداة procedure!

مغلق
بدأه sunrise223 في 16 أبريل 2006 · 2 رد · 512 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

انا استخدم الفيجوال بيسك مع SQL

عند مناداة procedure في الForm لا يظهر الناتج مع العلم انها للعرض فقط داخل textbox والكود كالتالي:

Dim cmd As New SqlCommand("sp_selectM", con)

sqlAdpt.SelectCommand = cmd

cmd.CommandType = CommandType.StoredProcedure

cmd.ExecuteNonQuery()

sqlAdpt.Fill(DDS, "TMangData")

MangName.Text = DDS.Tables("TMangData").Rows(1).Item("MangName")

Mang1Box.Text = DDS.Tables("TMangData").Rows(0).Item("Resp1Name")

FirstTBox.Text = DDS.Tables("TMangData").Rows(0).Item("Resp2Name")

بينما الطريقة التالية تعمل بالتالي الاتصال صحيح ولكن انا أريد تشغيل الطريقة الأولى لأنني احتاجها في كود آخر

الكود:

Dim sql As SqlDataAdapter = New SqlDataAdapter("select MangName,Resp1Name,Resp2Name,Resp3Name,MYear from TMangData", con)

sql.Fill(dsUsers, "TMang")

OMang.selectMangData(dsUsers)

MangName.Text = dsUsers.Tables(0).Rows(0).Item(0)

Mang1Box.Text = dsUsers.Tables(0).Rows(0).Item(1)

FirstTBox.Text = dsUsers.Tables(0).Rows(0).Item(2)

ScndNBox.Text = dsUsers.Tables(0).Rows(0).Item(3)

YearBox.Text = dsUsers.Tables(0).Rows(0).Item(4)

أرجو المساعدة بمعرفة الخطأ في الكود الأول

#2 
Dim cmd As New SqlCommand("sp_selectM", con)
cmd.CommandType = CommandType.StoredProcedure
sqlAdpt.SelectCommand = cmd
sqlAdpt.Fill(DDS, "TMangData")
MangName.Text = DDS.Tables("TMangData").Rows(1).Item("MangName")
Mang1Box.Text = DDS.Tables("TMangData").Rows(0).Item("Resp1Name")
FirstTBox.Text = DDS.Tables("TMangData").Rows(0).Item("Resp2Name")

أو

Dim cmd As New SqlCommand("exec sp_selectM", con)
sqlAdpt.SelectCommand = cmd
sqlAdpt.Fill(DDS, "TMangData")
MangName.Text = DDS.Tables("TMangData").Rows(1).Item("MangName")
Mang1Box.Text = DDS.Tables("TMangData").Rows(0).Item("Resp1Name")
FirstTBox.Text = DDS.Tables("TMangData").Rows(0).Item("Resp2Name")

تم تعديل هذه المشاركة بواسطة أيـمـن في 16 أبريل 2006 في 16:15

#3

شكرا شكرا شكرا أخي أيمن

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

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