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

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

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

كود :

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"

استخدم هذه الدالة :

كود :

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"

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

المتألق9

ابراهيم ايبو

Null

galas