+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=446)
بحث عن رقم - yehyabeka - 08-10-13
الله يعطيكم العافية جميعا
عندي مشكلة بسيطة في البحث في قاعدة البيانات
الطريقة لتي استعملها هي
If ComboBox1.SelectedItem = "الرقم" Then
da = New OleDb.OleDbDataAdapter("select * from stores where store_ID='" & Val(TextBox1.Text) & "'", con)
da.Fill(dt)
MsgBox(dt.Rows.Count)
ElseIf ComboBox1.SelectedItem = "الاسم" Then
da = New OleDb.OleDbDataAdapter("select * from stores where store_Name='" & TextBox1.Text & "'", con)
da.Fill(dt)
MsgBox(dt.Rows.Count)
End If
da = New OleDb.OleDbDataAdapter("select * from stores where store_ID='" & Val(TextBox1.Text) & "'", con)
da.Fill(dt)
MsgBox(dt.Rows.Count)
ElseIf ComboBox1.SelectedItem = "الاسم" Then
da = New OleDb.OleDbDataAdapter("select * from stores where store_Name='" & TextBox1.Text & "'", con)
da.Fill(dt)
MsgBox(dt.Rows.Count)
End If
في طبيعة الحال لا يوجد خطأ في الكود الا عند اختيار خانة البحث عن رقم في الجزء الاول من الشرط
واسم الحقل في قاعدة البيانات هو store_ID ونوعة number
جربت ان اضع القيمة الموجودة في التكست في كوتيشن منفرد بسبب اني اقوم بالبحث عن رقم
ووضعته في كوتشن منفرد وبعدها مزدوج واضافة خاصية val التي تحول النص الى رقم
ولم يصلح امري
هل بالامكان من اي شخص تحديد خطئي واكون شاكرا له
RE: بحث عن رقم - سعود - 08-10-13
للبحث عن رقم لانحتاج علامة التنصيص المفردة '
كود :
store_ID=" & Val(TextBox1.Text) & "RE: بحث عن رقم - yehyabeka - 08-10-13
تسلم ايدك يا غالييييي
الامور اصبحت بفضل الله ثم بفضلك تمام
شكرا
اخ سعود معلش بدي اغلبك
لو بدي اجيب قيمة حقل بنفس السجل اللي جلبناه ليتم التعديل عليها في textbox2
كيف طريقة جلبه و عرضة وتنفيذ التعديل
واسف على ازعاجك...وشكرا مقدما
RE: بحث عن رقم - سعود - 08-10-13
إقتباس :لو بدي اجيب قيمة حقل بنفس السجل اللي جلبناه ليتم التعديل عليها في textbox2على حسب طريقة جلبك للبيانات.
مثلا لو تستخدم قاريء
datareader
سيتم الاسناد هكذا
كود :
textbox2.text=dr.item("col")ولو تستخدم داتاست حتسخدم صف بيانات
كود :
datarow.item("col")بصراحة زمان عن استخدام الـ datarow
ممكن اكون اخطات بشي
RE: بحث عن رقم - yehyabeka - 08-10-13
شكرا على استجابتك لي
لكني لم استطع حل المشكلة
اتوقع اني لم اوضح الامر
الكود الذي استخدمه
كود :
da = New OleDb.OleDbDataAdapter("select * from stores where store_ID=" & Val(TextBox1.Text) & " ", con)
da.Fill(dt)
MsgBox(dt.Rows.Count)dt هو datatable
واريد استرجاع قيمة منه
لانه حسب علمي ان ال datatable هو الذي يكون فيه البيانات
اما اذا كان مفهومي خطا ارجو الايضاح لي.....وشكرا
RE: بحث عن رقم - Omar Mekkawy - 11-10-13
سلام عليكم
تم نقل الموضوع للقسم الصحيح
