31-03-17, 07:57 PM (آخر تعديل لهذه المشاركة : 31-03-17, 08:01 PM {2} بواسطة zine pef.)
Nouveau dossier (2).rar (الحجم : 2.89 ك ب / التحميلات : 39)
السلام عليكم
في الملف المرفق فيه فورم التسجيل و الثاني للبحث
و المشكل في الثاني .عند البحث في الكمبو عن المدينة تظهر في ليست1 الاسماء المشكل هنا
لا تظهر معلومات الاول ..لا ادري اين الخلل
ارجوا المساعدة و جزاكم الله كل الخير ...
أهلا أخي الكريم , رقم الخطأ هو لسبب أنه لم يتم التعرف على إسم حقل في الجدول لذلك أعتقد أنك مسحت جميع مافي الملف النصي حيث لابد أن يكون السطر الأول في الملف النصي هو أسماء الأعمدة أو الحقول يفصل بينها فاصلة منقوطة أو تأكد من الأسماء الصحيحة للحقول في داخل كود البرنامج .
قال الاستاذ احمد: أهلا أخي الكريم , رقم الخطأ هو لسبب أنه لم يتم التعرف على إسم حقل في الجدول لذلك أعتقد أنك مسحت جميع مافي الملف النصي حيث لابد أن يكون السطر الأول في الملف النصي هو أسماء الأعمدة أو الحقول يفصل بينها فاصلة منقوطة أو تأكد من الأسماء الصحيحة للحقول في داخل كود البرنامج . اخي احمد لم اقوم بتغير اي شيىء حملت الملف الذي صححته و فتحته لاحظ ماذا جرى ..
أهلا أخي الكريم , فعلا العملية كانت ناقصة أشياء مهمة , لذلك بعد معرفة الطريقة الصحيحة للإتصال بالملفات النصية , المجلد الذي يحتوي على الملفات النصية يعتبر كقاعدة بيانات بحيث يتم وضع مسار المجلد في جملة الإتصال وكل ملف نصي داخل هذا المجلد يعتبر كجدول ولابد من إنشاء ملف بإسم Schema.ini حيث يحتوي هذا الملف على خصائص كل ملف نصي والذي يعتبر كجدول كمكا ستشاهد في المثال .
شكرا جزيل الاخ الاستاذ احمد
لقد انحلت المشكلة بإظافة الملف Schema.ini
لكن الفكرة نقلتها من فيديو (https://www.youtube.com/watch?v=2QjGfOzmbbA)
لا توجد فيه Adodc و Shema.ini و كانت بسيطة
و مرة اخرى اشكرك على متابعة موضوعي
04-04-17, 12:31 PM (آخر تعديل لهذه المشاركة : 04-04-17, 12:33 PM {2} بواسطة Ahmed_Mansoor.)
أهلا أخي الكريم , المشكلة كانت في الفورم الثاني هي أنك نسيت إضافة هذه الجزئية في داخل اللوب For في حدث الـ Click للـ List1 :
PHP كود :
Get #1, i, fonc
عدل كود حدث الـ Click للـ List1 في الفورم الثاني ليصبح هكذا :
PHP كود :
Private Sub List1_Click() Text1.Text = "" Text3.Text = "" Text2.Text = "" pos = LOF(1) / Len(fonc) For i = 1 To pos Get #1, i, fonc If Trim(fonc.ville) = Trim(Combo1.Text) And Trim(fonc.Nom) = Trim(List1.Text) Then Text1.Text = fonc.code Text3.Text = fonc.DateN Text2.Text = fonc.Nom Exit For End If Next i End Sub