يوضح المثال الموجود في هذه المقالة كيفية استخدام ADODB.Connection للاتصال بقاعدة بيانات الوصول. إصدار نوع برنامج التشغيل هو: Microsoft.Jet.OLEDB.4.0. في عملية قاعدة بيانات VB، يعد الاتصال بقاعدة البيانات هو الخطوة الأولى والأكثر أساسية. يحتوي المثال الموضح في هذه المقالة على قيمة مرجعية جيدة للمبتدئين لمعرفة كيفية الاتصال بقاعدة بيانات Access في VB.
رمز التنفيذ المحدد هو كما يلي:
الإصدار 5.00Begin VB.Form Operation Database Caption = "VB Operation Database" ClientHeight = 3645 ClientLeft = 4905 ClientTop = 4260 ClientWidth = 5895 LinkTopic = "Form1" ScaleHeight = 3645 ScaleWidth = 5895EndAttribute VB_Name = سمة "قاعدة بيانات العملية" VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Expose = FalseOption ExplicitPrivate Sub Form_Load()Dim Database As ObjectSet Database = New ADODB.ConnectionCall Database.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") ' الاتصال بقاعدة البيانات ((database.State) = (adStateOpen)) ثم MsgBox ("تم الاتصال بنجاح!") Else MsgBox ("فشل الاتصال!")End If قاعدة بيانات.CloseSet قاعدة البيانات = NothingEnd Subيقوم هذا المثال بإنشاء كائن ADODB.Connection جديد يسمى "قاعدة البيانات". استخدم هذا الكائن للاتصال بقاعدة البيانات. بعد نجاح الاتصال، ينبثق مربع رسالة لإعلامك بنتيجة الاتصال، في معظم الحالات، بقواعد البيانات اتصالات Access2003 هي في الأساس مثل هذا. يرجى وضع قاعدة البيانات الاختبارية في نفس الدليل حيث يمكن تعديل Data.mdb وفقًا لمسار قاعدة البيانات الفعلي.