Сначала вызовите функцию 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=истина
выйти, сделать
конец, если
конец, если
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 сужает область проверки до таблицы.