02-08-17, 07:52 PM
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 يقوم باستدعاء اول سجل فقط
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 يقوم باستدعاء اول سجل فقط
