منتدى مصر التقني
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

إنشاء إتصال بقواعد بيانات Access باستخدام كائن الاتصال OleDbConnection

اذهب الى الأسفل

إنشاء إتصال بقواعد بيانات Access باستخدام كائن الاتصال OleDbConnection  Empty إنشاء إتصال بقواعد بيانات Access باستخدام كائن الاتصال OleDbConnection

مُساهمة من طرف RANA الإثنين أكتوبر 06, 2014 10:15 am

بسم الله الرحمن الرحيم 


فى درس لاحق [ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] أخذنا نبذة مختصرة على كائنات الاتصال فى الدوت نت وقلنا أن كائن الاتصال OleDbConnection و الذى يسمح بالاتصال بمجموعة متنوعة من مصادر البيانات مثل Access, Sql Server, Oracle, Excel file, text files

فى هذا الدرس سنتعلم كيفية استخدامة فى انشاء اتصال بقواعد بيانات Access باتباع الخطوات التالية :

_ إستيراد مساحة الاسم التالى :

الكود:
Imports System.Data.OleDb

_ الاعلان عن كائن الاتصال OleDbConnection

الكود:
Dim cnn As OleDbConnection

_الاعلان عن متغير نصى لتحزين نص الاتصال به

الكود:
Dim connetionString As String

_ تخزين نص الاتصال التالى الخاص بفتح اتصال بقواعد بيانات الى المتغير النصى الذى تم اعلان عنه سابقا

الكود:
connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=databasename.mdb;"

_ انشاء مثيل جديد من كائن الاتصال OleDbConnection مع تمرير نص الاتصال الية

الكود:
cnn = New OleDbConnection(connetionString)

_ بعد ذلك نقوم باستخدام الاسلوب Open لفتح اتصال مع قاعدة البيانات

الكود:
cnn.Open()

و الشفرة الكاملة للاتصال بقواعد بيانات أكسس باستخدام كائن الاتصال OleDbConnection

الكود:
Imports System.Data.OleDb

Public Class Form1
    
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Eve
ntArgs) Handles Button1.Click
        
Dim connetionString As String
 Dim cnn As OleDbConnection
      
 connetionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourdatabasename.mdb;"
        cnn = New OleDbConnection(connetionString)
        Try
            cnn.Open()
            MsgBox("Connection Open ! ")
            cnn.Close()
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

ملاحظة :
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourdatabasename.mdb

نص الاتصال السابق يستخدم للاتصال بقواعد بيانات اكسس الاصدار Access 2000_Access 2002_Access 2003_Access 97 و الغير محمية بكلمة مرور لذلك اليكم نصوص الاتصال الاخرى بقواعد بيانات اكسس

اولا : نصوص الاتصال بقواعد بيانات اكسس الاصدار Access 2000_Access 2002_Access 2003_Access 97

1_ بحمية بكلمة مرور
الكود:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;
Jet OLEDB:Database Password=MyDbPassword;

2_ قواعد البيانات بنظام المجموعات Workgroup (system database)

الكود:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;
Jet OLEDB:System Database=system.mdw;

3_ قواعد البيانات بنظام المجموعات Workgroup (system database) و محمية بكلمة مرور

الكود:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;
Jet OLEDB:System Database=system.mdw;User ID=myUsername;Password=myPassword;

4_قاعدة بيانات تعمل على الشبكة المحلية Network Location

الكود:
Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=\\serverName\shareName\folder\myDatabase.mdb;User Id=admin;
Password=;



ثانيا: نصوص الاتصال بقواعد بيانات اكسس الاصدار Access 2007_Access 2010_Access 2013

1_ الاتصال بقاعدة بيانات غير محمية

الكود:
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;
Persist Security Info=False;

2_الاتصال بقاعدة بيانات محمية بكلمة مرور

الكود:
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\myFolder\myAccessFile.accdb;
Jet OLEDB:Database Password=MyDbPassword;

3_ الاتصال بقاعدة بيانات على الشبكة المحلية Network Location

الكود:
Provider=Microsoft.ACE.OLEDB.12.0;
Data Source=\\server\share\folder\myAccessFile.accdb;

RANA
RANA
.....
.....

تاريخ التسجيل : 01/08/2013
المساهمات : 79
النقاط : 124
التقيم : 3
الدولة : فلسطين
الجنس : انثى

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى