[hitman48]

(29-01-17, 11:32 PM)مساعدة كتب : السلام عليكم

هذا الكود بدون الاعتماد على الكلاس DataConnexion الذي تستخدمه

كود :

Private Sub ShowDataExam(DGV As DataGridView, TBL As String, CNN As OleDb.OleDbConnection)
   Using DA As New OleDb.OleDbDataAdapter("SELECT * FROM [" & TBL & "]", CNN)
       Dim DTEL As New DataTable
       DA.Fill(DTEL)
       DGV.Font = New Font("Arial", 9, FontStyle.Bold)
       DGV.DataSource = DTEL
   End Using
End Sub

حسنا اخي ماذا لو اردت ارفاق الكلاس للكود