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

عندي خطأ في اجراء الاستعلام ارجو المساعده

بدأه majado2 في 8 ديسمبر 2009 · 5 رد · 443 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيف حالكم

اخواني عندي خطاء في الكود تظهر لي الرساله التالي 

No value given for one or more required parameters.

والكود امامك اتمنى احد يساعدني على اتمامه 

    Private Sub pley_qran_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pley_qran.Click 
        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\qran.mdb") 
        Dim mycom As New OleDbCommand 
        con.Open() 
        mycom.Connection = con 
        mycom.CommandText = "SELECT * FROM AyatLoc WHERE SoraNo = sora_box and AyaNo = aya_box" 
        Dim r1 As OleDbDataReader = mycom.ExecuteReader 
        Do While r1.Read 
            Dim sora1 As String 
            Dim aya1 As String 
            Dim page1 As String 
            sora1 = r1("SoraNo") 
            aya1 = r1("AyaNo") 
            page1 = r1("PageId") 
            MsgBox(sora1) 
        Loop 
        r1.Close() 
        con.Close() 
    End Sub

اتمنى المساعدهـ

448e929608.jpg
#2

جرب هذا 

Private Sub pley_qran_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pley_qran.Click 
        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\qran.mdb") 
        Dim mycom As New OleDbCommand 
        con.Open() 
        mycom.Connection = con 
        mycom.CommandText = "SELECT * FROM AyatLoc WHERE SoraNo = " & sora_box &" and AyaNo = & " aya_box & "" 
        Dim r1 As OleDbDataReader = mycom.ExecuteReader 
        Do While r1.Read 
            Dim sora1 As String 
            Dim aya1 As String 
            Dim page1 As String 
            sora1 = r1("SoraNo") 
            aya1 = r1("AyaNo") 
            page1 = r1("PageId") 
            MsgBox(sora1) 
        Loop 
        r1.Close() 
        con.Close() 
    End Sub

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#3

ماذا تقصد بـ sora_box و aya_box ؟

أعتقد أنك تقصد بها أسماء أدوات موجودة على الشاشة ,, أليس كذلك؟

يمكنك تغيير جملة الاستعلام إلى الجملة التالية

mycom.CommandText = "SELECT * FROM AyatLoc WHERE SoraNo = " & sora_box.Text & " and AyaNo = " & aya_box.Text

[تحرير]

يبدو أننى كتبت مشاركتى فى نفس الوقت الذى كتب فيه الأخ عمانى مشاركته

تم تعديل هذه المشاركة بواسطة GHOST2010 في 8 ديسمبر 2009 في 17:14

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#4 
  Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\FRE USER\Desktop\Collection\qran.mdb")
        Dim mycom As New OleDbCommand
        Dim sora1 As String
        Dim aya1 As String
        Dim page1 As String
        con.Open()
        mycom.Connection = con
        mycom.CommandText = " SELECT * FROM AyatLoc WHERE SoraNo = '" & sora_box.Text & "'and AyaNo = '" & aya_box.Text & "' "
        Dim r1 As OleDbDataReader = mycom.ExecuteReader
        Do While r1.Read
            sora1 = r1("SoraNo")
            aya1 = r1("AyaNo")
            page1 = r1("PageId")
            MsgBox(sora1)
        Loop
        r1.Close()
        con.Close()

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#5

ويبدو أنني لم أنتبه لمشاركتكم أخواني omani +GHOST

أرجو المعذرة :blush: ..

تم تعديل هذه المشاركة بواسطة إشراقــه فجــر في 8 ديسمبر 2009 في 17:17

سبحآن الله وبحمده .. سبحآن الله العظيم .. ,

#6
omani كتب:

جرب هذا 

Private Sub pley_qran_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pley_qran.Click 
        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\qran.mdb") 
        Dim mycom As New OleDbCommand 
        con.Open() 
        mycom.Connection = con 
        mycom.CommandText = "SELECT * FROM AyatLoc WHERE SoraNo = " & sora_box &" and AyaNo = & " aya_box & "" 
        Dim r1 As OleDbDataReader = mycom.ExecuteReader 
        Do While r1.Read 
            Dim sora1 As String 
            Dim aya1 As String 
            Dim page1 As String 
            sora1 = r1("SoraNo") 
            aya1 = r1("AyaNo") 
            page1 = r1("PageId") 
            MsgBox(sora1) 
        Loop 
        r1.Close() 
        con.Close() 
    End Sub

تحياتي

GHOST2010 كتب:

ماذا تقصد بـ sora_box و aya_box ؟

أعتقد أنك تقصد بها أسماء أدوات موجودة على الشاشة ,, أليس كذلك؟

يمكنك تغيير جملة الاستعلام إلى الجملة التالية

mycom.CommandText = "SELECT * FROM AyatLoc WHERE SoraNo = " & sora_box.Text & " and AyaNo = " & aya_box.Text

[تحرير]

يبدو أننى كتبت مشاركتى فى نفس الوقت الذى كتب فيه الأخ عمانى مشاركته

جزاكم الله كل خير

بالفعل الاستعلام كان ناجحا

448e929608.jpg

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…