+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مشكلة بالبحث في قاعدة البيانات (/showthread.php?tid=21268)
مشكلة بالبحث في قاعدة البيانات - dr.mostashar - 02-08-17
Dim db As Database
Dim rs As DAO.Recordset
db.Open App.Path & "\new.mdb"
rs.Open Add, db, adOpenStatic, adLockPessimistic
rs.Find id = " & Trim(Text1.Text) & ", 0, adSearchForward, 1
(Text2.Text = (rs!room
بقاعدة البيانات لدي جدول باسم add و يحتوي على خانتين id و room
استخدمت هذا الكود لاستدعاء البيانات الموجودة في الحقل room عن طريق البحث عن القيمة الموجودة في id باستخدام صندوق النص text1, لكن في كل مرة أقوم بكتابة قيمة مختلفة في text1 يقوم باستدعاء اول سجل فقط
RE: مشكلة بالبحث في قاعدة البيانات - سعود - 02-08-17
مارايك بالطريقة التالية:
http://vb4arb.com/vb/showthread.php?tid=7411
RE: مشكلة بالبحث في قاعدة البيانات - dr.mostashar - 02-08-17
(02-08-17, 07:58 PM)سعود كتب : مارايك بالطريقة التالية:
http://vb4arb.com/vb/showthread.php?tid=7411
شكرا لك أخي الفاضل
الطريقة جميلة
لكن كنت افضل استدعاء البيانات في مربع النص مباشرة دون استخدام الاداة MsFlexGrid
RE: مشكلة بالبحث في قاعدة البيانات - سعود - 02-08-17
إقتباس :لكن كنت افضل استدعاء البيانات في مربع النص مباشرة دون استخدام الاداة MsFlexGridلست مجبر ... بامكانك تغير اللي تريد