ملئ datagridview بقواعد البيانات الموجودة على السيرفر

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

الكود:: Public Sub Charger_DGV(cmd As String, tableau As String, dgv As DataGridView) Try If myConnection.State = ConnectionState.Closed Then myConnection.Open() End If ds = New DataSet 'vider ds da = New OleDbDataAdapter(cmd, myConnection) da.Fill(ds, tableau) dv = New DataView(ds.Tables(tableau)) dgv.DataSource = Nothing dgv.Refresh() dgv.DataSource = dv myConnection.Close() Catch ex As Exception MsgBox("Charger_DGV()" & vbNewLine & ex.Message) End Try End Sub

ويتم استدعاء الدالة على النحو التالى :

الكود:: Charger_DGV("SELECT * FROM tbFonction ORDER BY Fonction", "Fonction", dgvFonction)

حيث أن الدالة لها 3 عناصر :
الأول : الكويري : "SELECT * FROM tbFonction ORDER BY Fonction"
الثاني : إسم العمود في قاعدة البيانات : "Fonction"
الثالث : إسم داتاكريدفيو : dgvFonction