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

طلب مساعده فى Combo Box

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

السلام عليكــم ورحمـة الله وبركاتــه ،،

ارجو المساعده فى

اريد اظهار اسماء الجدوال فى COMO BOX بمجرد تشغيل البرنامج

وايضا جعل اسم الجدول متغير بحيث استخدمه فى فتح اكثر من جدول

ولكم الف شكرررررررررر

السلام عليكــم ورحمـة الله وبركاتــه ،،

#2

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

1. تأكد من وجود المكتبة Microsoft ActiveX Data Objects Library ضمن مراجع المشروع (الأمر References من القائمة Project). إذا كنت تستعمل الـ ADO فهي بالتأكيد ضمن المراجع.

1. انسخ الكود التالي الذي يستعمل المنهج OpenSchema التابع للكائن Connection. المنهج OpenSchema يعيد نوع خاص من الـ Recordset التي تحتوي على معلومات من محرك قواعد البيانات حسب ما نطلبه منه:

  1. ' في قسم التصريحات العام
  2. ' Connection تعريف
  3. Private Cnn As New ADODB.Connection
  4.  
  5. Private Sub Form_Load()
  6.     ' Recordset تعريف
  7.     Dim RSSchema As ADODB.Recordset
  8.  
  9.     ' Connection فتح الـ
  10.     ' database_file_name ضع مسار و اسم قاعدة البيانات الخاصة بك بدل
  11.     Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database_file_name;Persist Security Info=False"
  12.  
  13.     ' فتح مجموعة السجلات الخاصة بالجداول
  14.     Set RSSchema = Cnn.OpenSchema(adSchemaTables)
  15.  
  16.     With RSSchema
  17.         .MoveFirst
  18.         Do While Not .EOF
  19.             If .Fields("TABLE_TYPE") = "TABLE" Then
  20.                 Combo1.AddItem .Fields("TABLE_NAME")
  21.             End If
  22.             .MoveNext
  23.         Loop
  24.     End With
  25.  
  26.     RSSchema.Close
  27.     Set RSSchema = Nothing
  28. End Sub
  29.  
  30. Private Sub Form_Unload(Cancel As Integer)
  31.     ' إغلاق الاتصال بقاعدة البيانات
  32.     Cnn.Close
  33. End Sub
  34.  
أما بخصوص أن يكون اسم الجدول متغيراً فاستعمل كود كالتالي، بفرض أننا نريد استعمال اسم الجدول الذي يختاره المستخدم من الـ Combo
  1. Dim SQL As String
  2.  
  3. If Combo1.ListIndex = -1 Then
  4.     MsgBox "الرجاء تحديد اسم الجدول"
  5. Else
  6.     SQL = "SELECT * FROM " & Combo1.List(Combo1.ListIndex) & " WHERE (...) ORDER BY ..."
  7. End If
  8.  
و لا يختلف الأمر إذا كان اسم الجدول محفوظ في متغير - مثلاً TblName
  1. SQL = "SELECT * FROM " & TblName & " WHERE (...) ORDER BY ..."
  2.  

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

      
      

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

    

  

    
    

      
#3
        
        

      
السلام عليكــم ورحمـة الله وبركاتــه ،، 
بارك الله فيكم والف شكر على سرعه الاستجابه
وجارى التجربه

      
      

      
    

  

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