أكواد الاتصال بقواعد البيانات (Access ـ SQLServer 2008 - local sql)

السلام عليكم أحبابي في الله ، اليوم أقدم لكم أكواد الاتصال بقواعد البيانات المتنوعة . الاكسس 2003 و 2007 و Sql عندما تكون داخل المجلد وداخل السيرفر .

1- كود الاتصال بالـ Access 2003 

Public connAccess2003 As New OleDbConnection("provider=Microsoft.jet.OLEDB.4.0;"& "data source=" & Application.StartupPath & "\DATABASE\DATA.mdb")

2- كود الاتصال بـالـ Accses 2007 - 2010 

Public connAcess2007 AsNew OleDbConnection("provider=Microsoft.Ace.OLEDB.12.0;"& "data source=" & Application.StartupPath & "\DATABASE\DATA.accdb")

3- جملة الربط بـ SQL Server 2008 -2005 - 2012  عندما تكون قاعدة البيانات داخل مجلد البرنامج 

Dim connSQLServer AsNew SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename= "& Application.StartupPath & "\DATABASE\DATA.mdf;Integrated Security=True;User Instance=True")

4- جملة الربط بـ SQL Server 2008 -2005 - 2012  عندما تكون قاعدة البيانات داخل السيرفر 

Dim connSQLServer2008 As New SqlConnection("Data Source=PRINCE-PC\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")

5- جملة الاتصال بـ local Sql 

DimconnlocalSql As NewSqlCeConnection("Data Source=" & Application.StartupPath & "\DATABASE\Data.sdf;Password =123")

لا يوجد اي مرفقات ، تستطيع نسخ الكود مباشرة من المدونة 

تابعنا على صفحتنا على الفيس بوك