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

فيجوال مع الاكسس سؤال بسيط؟

بدأه kiss في 27 فبراير 2009 · 6 رد · 513 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم...

لو كان عندي فورم بداخله تكست واحد. وكنت رابط البرنامج مع قاعدة بيانات اكسس,,

ويوجد حقل داخل قاعدة البيانات اسمه num وانا عامله auto numbering

ترقيم تلقائي...

بدي كود يقوم بقراءة اخر قيمة بحقل num , ووضعها داحل التكست ...يعني لو كان اخر حقل قيمته 6 لازم يضع بالتكست رقم 7 وهكذا..

وشكراااااااااااااااااا

#2

السلام عليكم...

نفرض أننا سنستعمل Data Control اسمه (Data1) لهذا الغرض. و أن اسم الجدول هو MyTable و أن اسم الحقل هو num و أن اسم الـ TextBox هو Text1.

بعد أن تربط الـ Data Control بقاعدة البيانات اذهب إلى الخاصية RecordSource و اكتب بها جملة SQL التالية:

SELECT MAX(num) AS MaxNum FROM MyTable

ثم اكتب الدالة التالية في القسم العام للنموذج:

  1. Private Function GetMaxNum() As Long
  2.     Data1.Refresh
  3.  
  4.     If Data1.Recordset.BOF And Data1.Recordset.EOF Then
  5.         GetMaxNum = 0
  6.     ElseIf IsNull(Data1.Recordset("MaxNum")) Then
  7.         GetMaxNum = 0
  8.     Else
  9.         GetMaxNum = Data1.Recordset("MaxNum")
  10.     End If
  11. End Function
  12.  
عندما نريد إظهار الرقم الجديد التالي في الـ Text1 نقوم باستدعاء الدالة:
  1.     Text1.Text = CStr(GetMaxNum + 1)
  2.  

نرجو الاستفادة و السلام.

      
      

      
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم

    

  

    
    

      
#3
        
        

      
اخي شكرا لك
لكن في الفالكود الاول :data source لمين لل تكست ولا  ل داتا؟؟

      
      

      
    

  

    
    

      
#4
        
        

      
السلام عليكم...
إذا كنت تقصد الخاصية RecordSource فهي للـ Data Control.
سلام.

      
      

      
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم

    

  

    
    

      
#5
        
        

      
اخي الكريم شكرا لك ..
ولكن انا استخدم اداة adodc1  بدل من data1
فكيق يصبح شكل الكود؟؟

      
تم تعديل هذه المشاركة بواسطة kiss في 27 فبراير 2009 في 20:35

      

      
    

  

    
    

      
#6
        
        

      
السلام عليكم...
لا يوجد فرق كبير. الفكرة فقط في جملة الـ SQL أي جملة SELECT.
اضبط الخاصية CommandType للـ Adodc1 على adCmdText.
بعد أن تربط الـ Adodc1 بقاعدة البيانات (كما تفعل مع أي ADO آخر، عن طريق الخاصية ConnectionString) اذهب إلى الخاصية RecordSource و اكتب بها جملة SQL التالية:
SELECT MAX(num) AS MaxNum FROM MyTable
طبعاً بدل MyTable ستضع اسم الجدول لديك.
في الدالة GetMaxNum المذكورة سابقاً ضع Adodc1 حيثما تجد Data1.
نرجو الاستفادة و السلام.

      
      

      
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم

    

  

    
    

      
#7
        
        

      
والله يا اخي مش عارف شو اقولك ....
والله كل شي حاولت بعطيني اخطاء ممكن اذا اتكرمت علي تعطيني مثال بسيطة بداخل ملف مضغوط؟؟
بدي اغلبك معي بس والله لازماني ضروري هاي الخاصية..
ارجووووووووووووو منك المساعدة الاخيرة
تحياااااااااااااااااااااااتي الك

      
      

      
    

  

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





  

    
عدد الزوار حالياً
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

    
—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

    
جارٍ التحقق من المتواجدين…