منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عرض أكثر من حقل بالاستعلام vb.net - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : Microsoft SQL Server (http://vb4arb.com/vb/forumdisplay.php?fid=171)
+--- الموضوع : عرض أكثر من حقل بالاستعلام vb.net (/showthread.php?tid=8440)

عرض أكثر من حقل بالاستعلام vb.net - MuwafaQ_mybb_import4690 - 12-04-13

السلام عليكم ورحمة الله وبركاتة،،

لدي مشروع يحتوي علي قاعدة بيانات ، وأقوم بعمل أضافه ، وتعديل ، وحزف ، واستعلام بواسطه الفيجوال دوت نت بلا أدني مشكله ..

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

إقتباس :http://vb4arb.com/vb/showthread.php?477-%C7%E1%CA%DA%C7%E3%E1-%E3%DA-%DE%E6%C7%DA%CF-%C7%E1%C8%ED%C7%E4%C7%CA-Sql-Server-2005-%CE%D8%E6%C9-%C8%CE%D8%E6%C9

لكن المشكله أو الاستفسار هو عند عمل أستعلام عن أى شىء ويكون هناك أكثر من ناتج يقوم بعرض نتيجه واحدة فقط !!

مثلا أذا أستعلم عن أسم كل من كان مقيم بمصر ، ولدي أكثر من شخص مقيم بمصر يعرض الاول فقط ، المطلوب هو عرض جميع النتائج وليس ناتج واحد (طبعا برمجيا وليس علي السيكوال) ..

وجزاكم الله كل خير ،، وشكرا

عرض أكثر من حقل بالاستعلام vb.net - أحمد النجار - 12-04-13

وعليكم السلام ورحمة الله وبركاته

أولا ما هي الجملة التي تستخدمها في البحث

ثانيا ما هي الأداة التي تستخدمها لعرض النتائج

عرض أكثر من حقل بالاستعلام vb.net - MuwafaQ_mybb_import4690 - 12-04-13

مرحبا أخي،

أقوم بعرض الناتج في تكست بوكس (أدرى انها طبيعي تعرض نائج واحد) لكن لم اجد شرح غير هذا ..

أتمني تفيدني بطريقه تعرض جميع النتائج ، ولو فيه أسلوب استعلام أبسط وأفضل من هيك

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

كود :
Dim SqlStr As String
        Dim Cmd As SqlCommand



        Dim DR As SqlDataReader
        SqlStr = "SELECT * from Table_User WHERE (Table_User.address='" & ComboBox1.Text & "' and Table_User.bld_type='" & ListBox1.Text & "')"
        Con.Open()
        Cmd = New SqlCommand(SqlStr, Con)
        DR = Cmd.ExecuteReader
        If DR.HasRows Then
            While DR.Read
                tb1.Text = DR("name")
                tb2.Text = DR("address")
                tb3.Text = DR("phone")
                tb4.Text = DR("blood_type")
                tb5.Text = DR("contact_type")
                tb6.Text = DR("contact_time")
            End While
        Else
            MsgBox("Not Found")
        End If
        Con.Close()


عرض أكثر من حقل بالاستعلام vb.net - MuwafaQ_mybb_import4690 - 12-04-13

قمت بأستخدام طريقه اخرى لعرض البيانات DataGridView وأستطيع عمل أستعلام عن شىء محدد مسبقا ...

لكن حينما اقوم بالاستعلام عن شىء محدد مثلا الاسم ='محمد' يعمل بلا مشكله .. لكن أذا خليته متغير مثلا الاسم = textbox1.text لا يعمل ولا يخرج اى نتائج

بالمرفقات صورتين الاولي التي تعمل بلا مشكله ، والثانيه هي التي لا تخرج نتائج