الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL

السلام عليكم ورحمة الله وبركاته

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL

اثناء بحثي عن طريقة لربط البرنامج بالداتا بيس بطريقة سهلة واحترافية , وذلك عندما واجهتني مشكلة تغير مسار الداتا بيس في برنامجي الاول من مجلد البرنامج الى مجلد اخر الذي كلفني الكثير من الجهد عندما غيرت المسار في كل الفورمات الموجوده !

بينما في هذه الطريقة تستطيع تغير مسار الداتا بيس بكل سهولة وفقط في ملف واحد وهو ملف ال UDL ولا هناك حاجة لتغيرها في كل الفورمات !

سوف اشرح لكم طريقة انشاء الملف وطرق استخدامه في برامجكم ...

سوف ابدا اولا طريقة ربط بالداتا بيس من نوع SQL Server واتابع لاحقا طريقة الربط بال Access والتعامل مع الاداة بالكود
الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL Post-88658-1176681495

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL Post-88658-1176681512

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL Post-88658-1176681530

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL Post-88658-1176681547

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL Post-88658-1176681562

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL Post-88658-1176681594

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL Post-88658-1176681643

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL Post-88658-1176681666

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL Post-88658-1176681720

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL Post-88658-1176681878

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL Post-88658-1176681935

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL Post-88658-1176682000

ما شاء الله عليك اختي

انت عارفه ان هذه المشكلة قد واجهت الكثير

مشكورة اختي الغالية على مجهودك الرائع

الله يعطيك العافية

شرح اكثر من رائع وبطريقه راقيه جدا

بارك الله فيج اختى الفراشه

السلام عليكم ..........

هناك عدة طرق لعرفة مكان قاعدة البيانات دون كتابة المسار كاملاً في الكود - وهي مشكلة كبيرة يعاني منها المبتدؤن في البرمجة - أو من يستخدم الـ User Control الخاصة باالإتصال بقواعد البيانات

لانه من الممكن تغيير إسم المسار إلى اخر عن طريق تغيير إسم قاعدة البيانات أو تغيير إسم السرفير أو عنوانه وما إلى هنالك من مشاكل كما ذكر

من الطرق:

الكود:: Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Public Sub Conn()
If Cn.State = 1 Then Cn.Close
Cn.ConnectionString = "DBQ=" & App.Path & "\aaaaaa.mdb;driver={Microsoft Access Driver (*.mdb)};pwd=000"
Rs.LockType = adLockOptimistic
Cn.Open
Rs.ActiveConnection = Cn
End Sub

ولكن هذه الطريقة يعيبها عدم الإستفادة من بعض خصائص الكلاس ADODB.Recordset لأنه سيكون غير مفعل عند الإنتهاء من إستدعاء الإجراء
مثل : MoveLast , Bookmark , RecordCount , MoveNext

لأنه عند الإستدعاء نكتب :

الكود:: Conn
With RS
.Open "Select * From +++++"
......
......
......
......
.Close
End With

لكنها أفضل من ناحية أنها اقل إستخداماً للذاكرة Ram
لأنه في كل مرة يتم إستدعاء الإجراء Conn يتم تعريف كل شيء وكأنه جديد. أي لا يتم حفظ أية معلومات سابقة حول الجدول المستخدم في الـ RS

عموماً هناك طريقة أفضل منها بكثير وأنا أفضلها .........!!!وهي أن يتم تعريف السطرين الأولين كما هما ثم :

الكود:: Rs.Open "Select * From ++++++", Cn, adOpenKeyset, adLockOptimistic

ولا نقفله - Rs.Close - إلا في حالة تغيير الإستعلام أو نهاية البرنامج ...
لأن الإجراء Open له خمسة قيم نمررها له ... وهي موضحة في الصوره التالية :

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL 10355716

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL 10355716

ملاحظة : يمكن أن نستخدم في الطريقة الأولى نفس الشيء أي يتم فتح الاستعلام مره واحده فقط دون إقفاله ثم إستخدام الخصائص الباقيه وهو مفتوح لأنه حينها يتكون هيكال للجدول في الـ RS ويكون

المؤشر يؤشر إلى الحقل في قاعدة البيانات - الإتصال المتصل -

وهناك طريقة أخرى :

وهي بإستخدام الـ UDL وهي تستخدم في ASP , VB , Delphi ويعيب عليها البعض بأنها طريقة قديمة لكنها مازالت جيده .

وتكتب في حالة عدم إستخدام الـ ADODB User Control
باطريقة التالية :

الكود:: Dim Con As String
Con = "File Name=" & App.Path & "\Conn.udl;"
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open Con

aspalliance يمكن الإستفاده من المرجع :

Introduction

UDL is a rather old way of accessing a database, but it still works and is another way for the beginner to get access to the database that he is using. The samples are for Classic ASP, but the concept of UDL files is the same for .NET data access.

U..D...What?

UDL is a plain text file with a connection string, just like you've been using (assuming that you use DRIVER={DRIVER];DBQ=[DBQ];PQD=[Password] ), and the great part is that it doesn't take much to set it up. I'm just going to go over the basics, but there isn't much more to it really.

موفقين إنشاء الله

السلام عليكم ..........

هناك عدة طرق لعرفة مكان قاعدة البيانات دون كتابة المسار كاملاً في الكود - وهي مشكلة كبيرة يعاني منها المبتدؤن في البرمجة - أو من يستخدم الـ User Control الخاصة باالإتصال بقواعد البيانات

لانه من الممكن تغيير إسم المسار إلى اخر عن طريق تغيير إسم قاعدة البيانات أو تغيير إسم السرفير أو عنوانه وما إلى هنالك من مشاكل كما ذكر

من الطرق:

الكود:: Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset

Public Sub Conn()
If Cn.State = 1 Then Cn.Close
Cn.ConnectionString = "DBQ=" & App.Path & "\aaaaaa.mdb;driver={Microsoft Access Driver (*.mdb)};pwd=000"
Rs.LockType = adLockOptimistic
Cn.Open
Rs.ActiveConnection = Cn
End Sub

ولكن هذه الطريقة يعيبها عدم الإستفادة من بعض خصائص الكلاس ADODB.Recordset لأنه سيكون غير مفعل عند الإنتهاء من إستدعاء الإجراء
مثل : MoveLast , Bookmark , RecordCount , MoveNext

لأنه عند الإستدعاء نكتب :

الكود:: Conn
With RS
.Open "Select * From +++++"
......
......
......
......
.Close
End With

لكنها أفضل من ناحية أنها اقل إستخداماً للذاكرة Ram
لأنه في كل مرة يتم إستدعاء الإجراء Conn يتم تعريف كل شيء وكأنه جديد. أي لا يتم حفظ أية معلومات سابقة حول الجدول المستخدم في الـ RS

عموماً هناك طريقة أفضل منها بكثير وأنا أفضلها .........!!!وهي أن يتم تعريف السطرين الأولين كما هما ثم :

الكود:: Rs.Open "Select * From ++++++", Cn, adOpenKeyset, adLockOptimistic

ولا نقفله - Rs.Close - إلا في حالة تغيير الإستعلام أو نهاية البرنامج ...
لأن الإجراء Open له خمسة قيم نمررها له ... وهي موضحة في الصوره التالية :

الطريقة الاحترافية للاتصال بالداتا بيس Adodc Data Link UDL 10355716

ملاحظة : يمكن أن نستخدم في الطريقة الأولى نفس الشيء أي يتم فتح الاستعلام مره واحده فقط دون إقفاله ثم إستخدام الخصائص الباقيه وهو مفتوح لأنه حينها يتكون هيكال للجدول في الـ RS ويكون

المؤشر يؤشر إلى الحقل في قاعدة البيانات - الإتصال المتصل -

وهناك طريقة أخرى :

وهي بإستخدام الـ UDL وهي تستخدم في ASP , VB , Delphi ويعيب عليها البعض بأنها طريقة قديمة لكنها مازالت جيده .

وتكتب في حالة عدم إستخدام الـ ADODB User Control
باطريقة التالية :

الكود:: Dim Con As String
Con = "File Name=" & App.Path & "\Conn.udl;"
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open Con

aspalliance يمكن الإستفاده من المرجع :

Introduction

UDL is a rather old way of accessing a database, but it still works and is another way for the beginner to get access to the database that he is using. The samples are for Classic ASP, but the concept of UDL files is the same for .NET data access.

U..D...What?

UDL is a plain text file with a connection string, just like you've been using (assuming that you use DRIVER={DRIVER];DBQ=[DBQ];PQD=[Password] ), and the great part is that it doesn't take much to set it up. I'm just going to go over the basics, but there isn't much more to it really.

موفقين إنشاء الله