[المتألق9]

السلام عليكم
اريد طريقة ملئ كومبو باسماء قواعد البيانات الموجودة على السيرفر
وشكرا لكم

[ابراهيم ايبو]

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

---

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

[Null]

كود :

Dim cnn As New SqlConnection("Data Source=.\SQLEXPRESS;Integrated Security=True;User Instance=True")
Dim da As New SqlDataAdapter("SELECT name FROM master.dbo.sysdatabases WHERE dbid>6",cnn)
Dim dt As New DataTable
da.Fill(dt)
ComboBox1.DataSource=dt
ComboBox1.DisplayMember="name"

[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 عناصر :

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