[galas]

طريقة ملئ كومبو بوكس بقواعد البيانات الموجودة على السيرفر
استخدم هذه الدالة :

كود :

Public Sub Charger_CB(cmd As String, tableau As String, cb As ComboBox, val As String)
       Try
           If myConnection.State = ConnectionState.Closed Then
               myConnection.Open()
           End If
           ds = New DataSet 'vider ds
           Dim da As New OleDbDataAdapter(cmd, myConnection)
           da.Fill(ds, tableau)
           dv = New DataView(ds.Tables(tableau))
           cb.DataSource = dv
           cb.ValueMember = val
           cb.DisplayMember = val
           myConnection.Close()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

مثال  على كيفية إستدعاء الدالة :

كود :

Charger_CB("SELECT * FROM tbPersonnel", "Matricule", ComboBoxAddIntervenantPrev, "Matricule")

الدالة لها 4 عناصر :
الأول : الكويري : "SELECT * FROM tbPersonnel"
الثاني : إسم العمود في قاعدة البيانات : "Matricule"
الثالث : إسم اكمبوبكس : ComboBoxAddIntervenantPrev
الرابع : إسم العمود في قاعدة البيانات : "Matricule"

---

دعواتكم بالتوفيق

---

{ وَقُل رَّبِّ زِدْنِي عِلْمًا }

ساهم دائماً فى تقديم    لكل من يقوم بالمساهمة

فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له

فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله

---

[count4love]

السلام عليكم
جزاك الله خيرا علي الكود الجميل
بس في ملاحظات
بعض المتغيرات مش شعالة ودا لانها مش متعرفةزي مثلا DA فياريت التوضيح
لاني كتبت الكود وتقريبا اغلبهم عايز اعلان
وشكرا