قم أولاً باستدعاء وظيفة openSchema في كائن adodb.connection، الذي سيحصل على مجموعة سجلات، حيث يتوافق كل "سجل" مع جدول في قاعدة البيانات، ويحتوي كل "حقل" من "السجل" على جوانب معينة من معلومات الجدول المقابل. يحتوي الحقل TABLE_NAME على اسم الجدول المقابل
يمكن كتابة هذه الوظيفة كدالة، ويتم وصف عملية معالجة الوظيفة على النحو التالي:
قم أولاً باستدعاء وظيفة openSchema في كائن adodb.connection، الذي سيحصل على مجموعة سجلات، حيث يتوافق كل "سجل" مع جدول في قاعدة البيانات، ويحتوي كل "حقل" من "السجل" على جوانب معينة من معلومات الجدول المقابل. يحتوي الحقل TABLE_NAME على اسم الجدول المقابل
ثم قم باجتياز مجموعة السجلات إذا كانت قيمة حقل TABLE_NAME الخاص بـ "السجل الحالي" هي نفس اسم الجدول المطلوب البحث فيه، فهذا يثبت وجود الجدول المطلوب البحث فيه.
تبدو الوظيفة كما يلي:
انسخ رمز الكود كما يلي:
الوظيفة check_gived_DataTable_exist_or_not(connect_object,name_of_gived_DataTable)
Do_gived_DataTable_exist=false
Const adSchemaTables=20 'يشير إلى أنك تريد الحصول على "مجموعة الجداول (الجداول) وطرق العرض (طرق العرض)" في قاعدة البيانات
تعيين RecordSet_about_table_and_view_in_DataBase=connect_object.openSchema(adSchemaTables)
افعل ذلك حتى RecordSet_about_table_and_view_in_DataBase.EOF
إذا RecordSet_about_table_and_view_in_DataBase("TABLE_TYPE")="TABLE" ثم
إذا RecordSet_about_table_and_view_in_DataBase("TABLE_NAME")= name_of_gived_DataTable ثم
Do_gived_DataTable_exist=true
الخروج القيام به
نهاية إذا
نهاية إذا
RecordSet_about_table_and_view_in_DataBase.movenext
حلقة
check_gived_DataTable_exist_or_not=Do_gived_DataTable_exist
وظيفة النهاية
ملحوظة:
بعد تنفيذ وظيفة Connect_object.openSchema(adSchemaTables)، ستحصل على "مجموعة من الجداول وطرق العرض في قاعدة البيانات"، وهي بيانات من نوع ADODB.Recordset.
إذا كان RecordSet_about_table_and_view_in_DataBase("TABLE_TYPE")="TABLE" يضيق نطاق التحقق إلى "جدول".