حالت موضوعی | حالت خطی

***CPSD Admin***

ضمن سلام , با هم نگاهی به بخش چهارم آموزش برنامه نویسی ADO میندازیم

يك واقعيت وجود داره كه دلايل استفاده ADO در ديتابيسي كه اصطلاحاًً اون رو تك فايل ميناميم شايد موارد استفاده بسیار محدودي رو در بر بگيره ( برنامه ای که تنها مشتمل بر یک فایل هستش )

قاعدتاً خواستگاه اصلي اين مدل برنامه نويسي , در مدلهاي FrontEnd/BackEnd هستش ( زین پس اون رو به اختصار FEBE می نامیم ) كه در ادامه با تمركز بيشتر بر روي اون به پيش ميريم

متاسفانه اين بخش از وسعت بسيار زيادي برخورداره كه در اين مقاله فرصت زماني به گونه اي هستش كه تنها امكان بررسي برخي روشها وجود داره

در ابتدا با روشي مشابه روش ارائه شده در آموزش بخش سوم , اقدام به معرفي يك متغير ميكنيم كه بتونيم اين آبجكت رو معرفي و در مواقع لزوم بارگذاري و احيا كنيم

تنها در اين نوع اتصال به يك نكته توجه داشته باشيد و اون هم تغييري هستش كه در نوع معارفه به انجام رسونديم

با توجه به اينكه در معماري FEBE و يا به نوعي همون Client/Server ( زین پس اون رو به اختصار CS می نامیم ) ممكنه به صورت همزمان چند اتصال توسط كاربراني متفاوت برقرار بشه ، از اينرو از كليد واژه New استفاده ميكنيم تا به نوعي برنامه رو مجبور به بارگذاري نسخه جديدي از متغير در حافظه سيستم کاربر كنيم

Dim remoteConnection As New ADODB.Connection

در اين مرحله فعاليت اصلي شروع ميشه

در معماري CS و يا FEBE شما نياز داريد به گونه اي يك پل ارتباطي بين بانك اطلاعاتي هدف و برنامه مقصد برقرار كنيد ، اين امر رو به واسطه يك Provider كه به نوعي كار آماده سازی و برقراري ارتباط رو به عهده داره به انجام ميرسه

Provider هاي متفاوت و بسيار گسترده اي در اين بخش قابل اعمال هستن كه در مثال حال حاضر از OLEDB استفاده ميكنيم

يكي از مزاياي اين Provider اينه كه به همراه خود Access نصب ميشه و شما دغدغه اي در خصوص وجود و يا عدم وجود اون بر روی سیستم نهایی کاربر نداريد

پس از تعيين نوع Provider , شما بايد اقدام به معرفي مسير ديتابيس هدف كنيد ، كه اين كار رو بايد به واسطه متد Open به انجام برسونيد ( توجه كنيد در مثال قبلي اين بخش به صورت خودكار به انجام ميرسيد )

نگاهي به مثال زير كنيد و مطالب درج شده فوق رو در داخل اون مورد واكاوي قرار بديد

کد: 

Private Sub cmdConnectToRemoteDB_Click()

On Error GoTo ConnectionError

Dim remoteConnection As New ADODB.Connection

With remoteConnection

.Provider = “Microsoft.Jet.OLEDB.4.0”

.Open “Database Address Here ، For Example : C:\Sample.mdb” 

End With

MsgBox “Remote connection successfully established.”

remoteConnection.Close

Exit Sub

ConnectionError:

MsgBox “There was an error connecting to the database. “ & Chr(13) _

& Err.Number & “, “ & Err.Description

End Sub

در مثال فوق به دیتابیس فرضی Sample.mdb واقع در ریشه درایو C متصل شدیم

دقت كنيد هر اتصال / Connection پس از انجام عمليات مد نظر شما بايد بسته بشه كه اين امر توسط دستور Close به انجام رسيده

از ساختار With/End With به جهت خلاصه سازي دستور استفاده شده

در فرصتی دیگه و بنا به نیاز در خصوص Provider توضيحات بيشتري ارائه خواهد شد

توضیح : در حال حاضر تنها با مسائل تئوریک آشنا میشیم و نیازی به ارائه مثال وجود نداره

موفق باشید

حالت موضوعی \| حالت خطی آموزش ADO , ActiveX Data Objects
نویسنده	پیام