[freehego]

(16-02-20, 02:36 PM)asemshahen5 كتب : تأكد من كود الاتصال بقاعدة البيانات او ضع صورة للخطأ .

كود الاتصال لدى:

كود :

Public Function FillDataTable(StrSQL As String) As DataTable
       Dim cn As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\TBLCO.accdb;Persist Security Info=True; Jet OLEDB:Database Password=Hagag2010")
       Dim da As New OleDbDataAdapter(StrSQL, cn)
       Dim dt As New DataTable
       dt.Clear()
       da.Fill(dt)
       Return dt
   End Function

والخطأ يظهر فى الجزء da.Fill(dt)