الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

عندي مشكلة

مغلق
بدأه العطاء في 29 يونيو 2003 · 2 رد · 868 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

عندي مشكلة أحتاج لها حل

وهي أنني أستخدم قاعدة بيانات في برنامج وأتعامل معها بواسطة تعريف الـconnection في بداية البرنامج وفيها عدة جداول ، المشكلة عندما أتنقل بين سجلات الجدول بواسطة أزرار التنقل التي عملتها لها لما أصل إلى الأخير أجي أضغط عليه مرة ثانية يعطيني خطأ كيف ممكن أن أتغلب عليه

كذلك كيف يمكنني ان أجعل البرنامج يقوم بفحص جدول في قاعدة البيانات إذا كانت كافة حقول السجل الأخير معبأه بالبيانات يقوم يعطيني سجل جديد وإذا لم تعبأ كلها أو هو سجل جديد يقوم أول مرة بالتعبأة في الحقل الأول ، ثم في المرة الثانية يعبي في الحقل الثاني بعد فحص الحقل الأول هل هو معبأ أم لا وهكذا

مثال عندنا قاعدة بيانات db1 يها الجدول table1 فيه الحقول f1 ,f2,f3 يقوم البرنامج بالوقوف على آخر سجل في الجدول وينظر في الحقل f1 إذا كان فاضي يحط المعلومات فيه ، إذا كان معبأ ينتقل إلى الحقل f2 بنفس الطريقة ، وإذا كانت كل الحقول معبأ ينتقل إلى سجل جديد ويبدأ من اول حقل

أفيدوني ...........................

#2

اخي الكريم العاطاء السلام عليكم ورحمة الله وبركاته

بالنسبة للجزء الأول يجب ان تسأل عن إن كان الجدول عندك وصل إلي النهاية ام لا قبل ان تقوم بعمل Next

  If Not RsTemp.EOF Then 
     RsTemp.MoveNext
  elseif RsTemp.EOF And RsTemp.RecordCount > 0 Then
     MsgBox "لقد وصلت اخر الملف", vbInformation + vbOKOnly + vbMsgBoxRight, "نظام المستخلصات"
    'moved off the end so go back
    RsTemp.MoveLast
  End If

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

dim sism as integer
 If RsTemp.RecordCount > 0 Then
    RsTemp.MoveLast
    sism = RsTemp.Fields(0) + 1
 Else
   sism = 1
End If

يارب اكون وفقت في فهم اسئلتك واجبت عليها بشكل صحيح(gift)

#3

شكراً جزيلاً أخي sism وسوف أقوم بتنفيذ هذا الكود وإن شاء يضبط معي

هذا الموضوع مغلق.

مواضيع مشابهة