لماذا تظهر هذة الرسالة عن الربط بالداتا

فحوى الرسالة أنه لم يجد جدول أو استعلام بالاسم Phone تأكد من وجوده ومن كتابة الاسم بشكل صحيح

هل أنت متأكد أنك فتحت قاعدة البيانات وأنك كتبت اسم الجدول بشكل صحيح ؟؟؟

دائماً ما يكون الخطأ بسيطا

ركز في الكود أكثر وإذا لم تستطع بإمكانك إرفاق مثال لنعدل عليه

شكرا للمرور

هذا كود بحث مع قاعدة البيانات فيها اربعة حقول

انا اريد ان تقولي طريقة الربط

وهل يمكن ان اربطها ado لان الداتا فيها مشاكل كثيرة

ولان القاعدة عندي كبيرة وانا اريد ان اوسع عملية البحث لاكثر من 20 حقلا

msgerr.zip

السلام عليكم

المشكلة في Data1 في خاصية RecordSource اسم الجدول خطأ .

غير الجملة من :

select * from Phone order by name

الى :

select * from MOM order by name

بس اسم الحقل عندي ماهو name وانما هو F1....

شكرا جزيلا مشرف قسم Visual Basic

وهذا شرف لنا ان تهتم بموضوعنا شخصيا

بس فيه مشكلة

فعلت ما قلت وراحت المشكلة الاولى وبقيت الثانية

Sub search_For()

frmPhone.Data1.RecordSource = ttt & " order by name"

frmPhone.Data1.Refresh

If frmPhone.Data1.Recordset.RecordCount < 1 Then

MsgBox "هذا الاسم غير مسجل في قاعدة البيانات"

frmPhone.Data1.RecordSource = Rec

frmPhone.Data1.Refresh

End If

السلام عليكم

هذا الملف بعد التعديل

والتعديلات هي :

في الفورم frmSearch تغير اسم الجدول من Phone الى MOM في الجمل الثلاثة

وهذه واحدة منهم

 
ttt = "select * from MOM where " & SubjectName & " like '" & Combo1.Text & "*'"

وصار السطر التالية خارج جملة If

frmPhone.Data1.RecordSource = Rec

وذلك حتى يعمل زر التحديث (Refresh) بعد عملية البحث

وألغيا هذا السطر

frmPhone.Data1.Refresh

دليل الهاتف.zip

الف مليون

شكر ولك مني جزيل الشكر وخالص الامنيات يا Hatam

وثق تماما اني اعلم اني ازعجتك

بس ثق تماما اني لا استفسر عن شئ الا بعد المحاولة وتكرار المحاولة

فإن فشلت لجأت الى الله ثم اليكم