فيما يلي مجرد مثال بسيط لبرنامج VB الصغير، ولكنه يحتوي على الكلمات الأساسية التالية: VB6.0، ADO، Access
البيئة: Visual Basic 6.0 Enterprise Edition (ليس الإصدار المبسط، وإلا فإنه سيفتقر إلى الضوابط اللازمة)
قاعدة البيانات: قاعدة بيانات Access، قاعدة البيانات هي xs.mbd، الجدول المدمج هو xj
النتيجة: يستخدم VB ADO للاتصال بقاعدة بيانات الوصول، ويستعلم عن كافة البيانات الموجودة في جدول xj، ثم يقوم بإخراج نتائج الاستعلام إلى النافذة في حلقة.
شفرة:
Private Sub Form_Click()Dim db كـ ADODB.Connection جديد، RS كـ ADODB جديد.Recordset 'كائن اتصال ADO ومجموعة التسجيل Dim strSQL As String 'SQL string db.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;مصدر البيانات =" & App.Path & "/xs.mdb" 'اتصال قاعدة البيانات db.Open' فتح قاعدة البيانات strSQL = "select * from xj" 'سلسلة SQL RS.Open strSQL، db، 3، 1 'الاستعلام عن جدول البيانات Do while Not RS.EOF 'تكرار لإخراج نتائج الاستعلام اسم RS! اطبع نتائج الإخراج في النافذة RS.MoveNext 'حرك السجل لأسفل LoopRS.Close' أغلق مجموعة السجلات Set RS = NothingEnd Sub
ما ورد أعلاه هو محتوى هذه المقالة بالكامل، وآمل أن تنال إعجابكم جميعًا.