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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عملية البحث (/showthread.php?tid=15967)

عملية البحث - علي كعبي - 29-05-16

كيف انفذ البحث في المثال المرفق علماً باني سويت كود البحث ويعمل كويس بس عند البحث برقم اخر لاتتم عملية البحث 
حيث ان البحث في نفس الفورم
تكفون

RE: عملية البحث - سعود - 29-05-16

اخي الكريم وجدت الكود التالي بزر البحث
PHP كود :
Try
            cler()
            Dim sql As String = "select * from tbl1  WHERE HijriID LIKE '" & TextBox1.Text & "'"
            Dim da As New OleDb.OleDbDataAdapter(sql, con)
            da.Fill(dt)
            txtid.Text = dt.Rows(0)("HijriID")


            If dt.Rows.Count > 0 Then
            Else
                MsgBox("لاتوجد معاملات بهذا الرقم")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try 

ثم انك استخدمت المعامل Like
هل انت متاكد من هذا؟
عدلت كود البحث الى التالي
PHP كود :
Try
            cler()
            Dim sql As String = "select * from tbl1  WHERE HijriID LIKE '" & TextBox1.Text & "'"
            Dim bda As New OleDb.OleDbDataAdapter(sql, con)
            Dim bdt As New DataTable
            bda.Fill(bdt)
            txtid.Text = bdt.Rows(0)("HijriID")


            If bdt.Rows.Count > 0 Then
            Else
                MsgBox("لاتوجد معاملات بهذا الرقم")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try 


RE: عملية البحث - علي كعبي - 29-05-16

طيب اخي سعود كيف املي باقي الحقول مثل حقل تاريخ الصادر وباقي الحقول
هل تكون جميع الصفوف تكتب هكذا
(txtid.Text = bdt.Rows(0)("HijriID



كلها بنفس (bdt.Rows(0=

RE: عملية البحث - سعود - 29-05-16

(29-05-16, 09:33 PM)علي كعبي كتب : طيب اخي سعود كيف املي باقي الحقول مثل حقل تاريخ الصادر وباقي الحقول
هل تكون جميع الصفوف تكتب هكذا
(txtid.Text = bdt.Rows(0)("HijriID



كلها بنفس    (bdt.Rows(0=

الرقم 0 يمثل اول نتيجة في البحث,,,  وما بعده واقصد 
(hijriId) هذا واضح اسم العمود الاول امش على هذه الطريقة لكافة الاعمدة ...
لكن ان كانت النتيجة تعود باكثر من صف فتحتاج شبيكة  بيانات لتستقبل كل الصفوف.

RE: عملية البحث - علي كعبي - 29-05-16

مشكور اخي سعود وجعلها في موازين حسنتك

RE: عملية البحث - سعود - 29-05-16

(29-05-16, 10:15 PM)علي كعبي كتب : مشكور اخي سعود وجعلها في موازين حسنتك

الحمدلله ... واياك اخي