قم أولاً باستدعاء وظيفة 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.
الجملة if RecordSet_about_table_and_view_in_DataBase(TABLE_TYPE)=TABLE تضيق نطاق التحقق إلى الجدول.