[محمد اسماعيل]

(06-10-19, 09:04 PM)حريف برمجة كتب : جرب التالي :

كود :

Public con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & PATHE & "\" & "\DATABASE.accdb;Jet OLEDB:Database Password=" & PASS)

ظهر خطأ جديد not aviled name

في حاجة تانية لما جربت اضع جملة الاتصال في حدث لود الفورم مع المتغير اشتغلت كويس جدا

بس لما يتم وضعها بالمديول للمشروع بيحصل الخطا

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

كود :

Public Sub filldatg(ByVal dg As DataGridView, ByVal ds As DataSet, ByVal tablename As String, ByVal qurey As String)
       con.Open()
       Using cmd As OleDbCommand = New OleDbCommand(qurey, con)
           Using DataAdapter = New OleDbDataAdapter(cmd)
               ds.Clear()
               DataAdapter.Fill(ds, tablename)
               dg.DataSource = ds
               dg.DataMember = tablename
               dg.ClearSelection()
               DataAdapter.Dispose()
               con.Close()
           End Using
       End Using
   End Sub