+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مشكله في عملية البحث (/showthread.php?tid=15997)
الصفحات:
1
2
مشكله في عملية البحث - علي كعبي - 31-05-16
البحث يعمل بشكل ممتاز بس عند ادخل رقم زوجي يعطي هذه الرسالة التي في الصورة المرفقه علماً بان الحقل الذي يتم البحث فية رقمي في قاعدة البيانات
وهذا كود البحث
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
RE: مشكله في عملية البحث - Sajad - 31-05-16
السلام عليكم
اخي العزيز بما أن الحقل رقمي لماذا تستخدم علامتي التنصيص المفرد؟ ولماذا لا تقوم بتحويل النص الى رقم؟ ولماذا تستخدم Like؟
الأصح استخدام علامة المساواة = وتحويل النص الى رقم هكذا Convert.ToInt32(TextBox1.Text) في الكويري
ملاحظة اخيرة// هذا القسم ليس مخصصا لأسئلة قواعد البيانات، يرجى في المرة القادمة طرح الاسئلة المتعلقة بقواعد البيانات في قسمها المخصص
تحياتي
RE: مشكله في عملية البحث - علي كعبي - 31-05-16
(31-05-16, 06:55 PM)Sajad كتب : السلام عليكم
اخي العزيز بما أن الحقل رقمي لماذا تستخدم علامتي التنصيص المفرد؟ ولماذا لا تقوم بتحويل النص الى رقم؟ ولماذا تستخدم Like؟
الأصح استخدام علامة المساواة = وتحويل النص الى رقم هكذا Convert.ToInt32(TextBox1.Text) في الكويري
ملاحظة اخيرة// هذا القسم ليس مخصصا لأسئلة قواعد البيانات، يرجى في المرة القادمة طرح الاسئلة المتعلقة بقواعد البيانات في قسمها المخصص
تحياتي
اخي ممكن تكتب جمله البحث لوتكرمت او تعدل على هذه الجملة
""Dim sql As String = "select * from tbl1 WHERE HijriID =" & TextBox1.Text
واسف اني لم انتبه اثناء طرح موضوعي في هذا القسم
RE: مشكله في عملية البحث - Sajad - 31-05-16
السلام عليكم
PHP كود :
Dim sql As String = "select * from tbl1 WHERE HijriID =" & Convert.ToInt32(TextBox1.Text) & ""
RE: مشكله في عملية البحث - علي كعبي - 31-05-16
اخي وضعت الكود بس مازلت الرسالة تظهر مع العلم بان النتيجة صحيحه بس الرساله مزعجة عند البحث برقم زوجي
RE: مشكله في عملية البحث - Sajad - 31-05-16
اخي العزيز الحقول الرقمية اعمل لها
()ToString.
RE: مشكله في عملية البحث - علي كعبي - 01-06-16
اين اضعها في جملة sql
او في مربع النص وكيف طريقة كتابتها
وارجو منك ان تتحملني ولو قليل
RE: مشكله في عملية البحث - Sajad - 01-06-16
()txtid.Text = bdt.Rows(0)("HijriID").ToString
RE: مشكله في عملية البحث - علي كعبي - 01-06-16
المشكله باقيه ياخي هل ارفق لك المشروع
RE: مشكله في عملية البحث - Sajad - 01-06-16
اوك ارفق المشروع ان رغبت بذلك