منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

البحث يعمل بشكل ممتاز بس عند ادخل رقم زوجي يعطي هذه الرسالة التي في الصورة المرفقه علماً بان الحقل الذي يتم البحث فية رقمي في قاعدة البيانات

---

وهذا كود البحث

 Dim bda As New OleDb.OleDbDataAdapter("select * from tbl1  WHERE HijriID LIKE '" & TextBox1.Text & "'", con)
            Dim bdt As New DataTable

            bda.Fill(bdt)
            txtid.Text = bdt.Rows(0)("HijriID")
            tex1.Text = bdt.Rows(0)("HijriYear")
            tex.Text = bdt.Rows(0)("b")
            txt_date.Text = bdt.Rows(0)("b1")
            tex3.Text = bdt.Rows(0)("b2")
            tex5.Text = bdt.Rows(0)("b3")
            tex6.Text = bdt.Rows(0)("b4")
            tex7.Text = bdt.Rows(0)("b5")
            tex8.Text = bdt.Rows(0)("b6")
            tex9.Text = bdt.Rows(0)("b7")
            tex10.Text = bdt.Rows(0)("b8")
            bb1.Text = bdt.Rows(0)("b9")
            tex12.Text = bdt.Rows(0)("b10")
            tex20.Text = bdt.Rows(0)("b11")
            tex11.Text = bdt.Rows(0)("b12")
            bb2.Text = bdt.Rows(0)("b13")
            bb4.Text = bdt.Rows(0)("b14")
            bb5.Text = bdt.Rows(0)("b15")
            bb7.Text = bdt.Rows(0)("b16")
            IDLb.Text = bdt.Rows(0)("ID")

            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

السلام عليكم

اخي العزيز بما أن الحقل رقمي لماذا تستخدم علامتي التنصيص المفرد؟ ولماذا لا تقوم بتحويل النص الى رقم؟ ولماذا تستخدم Like؟

الأصح استخدام علامة المساواة = وتحويل النص الى رقم هكذا Convert.ToInt32(TextBox1.Text) في الكويري

ملاحظة اخيرة// هذا القسم ليس مخصصا لأسئلة قواعد البيانات، يرجى في المرة القادمة طرح الاسئلة المتعلقة بقواعد البيانات في قسمها المخصص

تحياتي

(31-05-16, 06:55 PM)Sajad كتب : [ -> ]السلام عليكم

اخي العزيز بما أن الحقل رقمي لماذا تستخدم علامتي التنصيص المفرد؟ ولماذا لا تقوم بتحويل النص الى رقم؟ ولماذا تستخدم Like؟

الأصح استخدام علامة المساواة = وتحويل النص الى رقم هكذا Convert.ToInt32(TextBox1.Text) في الكويري

ملاحظة اخيرة// هذا القسم ليس مخصصا لأسئلة قواعد البيانات، يرجى في المرة القادمة طرح الاسئلة المتعلقة بقواعد البيانات في قسمها المخصص

تحياتي

اخي ممكن تكتب جمله البحث لوتكرمت او تعدل على هذه الجملة
""Dim sql As String = "select * from tbl1  WHERE HijriID =" & TextBox1.Text

---

واسف اني لم انتبه اثناء طرح موضوعي في هذا القسم

السلام عليكم


تحياتي

اخي وضعت الكود بس مازلت الرسالة تظهر مع العلم بان النتيجة صحيحه بس الرساله مزعجة عند البحث برقم زوجي

اخي العزيز الحقول الرقمية اعمل لها

()ToString.

اين اضعها في جملة sql
او في مربع النص وكيف طريقة كتابتها
وارجو منك ان تتحملني ولو قليل

()txtid.Text = bdt.Rows(0)("HijriID").ToString

المشكله باقيه ياخي هل ارفق لك المشروع

اوك ارفق المشروع ان رغبت بذلك