12-10-13, 08:51 AM
هذا كود الاتصال مع قاعدة بيانات 2007 وما فوق
dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath() & ("filedata.accdb"))
dim cmd As New OleDbCommand
______________________________________
cmd.CommandText = "select * from .............................."
cmd.Connection = con
.................................................... بقية الكود
dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath() & ("filedata.accdb"))
dim cmd As New OleDbCommand
______________________________________
cmd.CommandText = "select * from .............................."
cmd.Connection = con
.................................................... بقية الكود
