Primeiro chame a função openSchema no objeto adodb.connection, que obterá um Recordset, no qual cada registro corresponde a uma tabela do banco de dados, e cada campo do registro contém algum aspecto da informação da tabela correspondente. O campo TABLE_NAME contém o nome da tabela correspondente. Esta função pode ser escrita como uma função. O processo de processamento da função é descrito a seguir:
Primeiro chame a função openSchema no objeto adodb.connection, que obterá um Recordset, no qual cada registro corresponde a uma tabela do banco de dados, e cada campo do registro contém algum aspecto da informação da tabela correspondente. O campo TABLE_NAME contém o nome da tabela correspondente
Em seguida, percorra este Recordset. Se o valor do campo TABLE_NAME do registro atual for igual ao nome da tabela a ser pesquisada, isso prova que a tabela a ser pesquisada existe.
A função fica assim:
Copie o código do código da seguinte forma:
função check_gived_DataTable_exist_or_not(connect_object,name_of_gived_DataTable)
Do_gived_DataTable_exist=falso
Const adSchemaTables=20 'Indica que você deseja obter a coleção de tabelas e visualizações no banco de dados
definir RecordSet_about_table_and_view_in_DataBase=connect_object.openSchema(adSchemaTables)
Faça até RecordSet_about_table_and_view_in_DataBase.EOF
se RecordSet_about_table_and_view_in_DataBase(TABLE_TYPE)=TABLE então
se RecordSet_about_table_and_view_in_DataBase(TABLE_NAME)= name_of_gived_DataTable então
Do_gived_DataTable_exist=true
sair, faça
terminar se
terminar se
RecordSet_about_table_and_view_in_DataBase.movenext
Laço
check_gived_DataTable_exist_or_not=Do_gived_DataTable_exist
função final
Observação:
Após a execução da função connect_object.openSchema(adSchemaTables), será obtida uma coleção de tabelas e visualizações no banco de dados, que são dados do tipo ADODB.Recordset.
A frase if RecordSet_about_table_and_view_in_DataBase(TABLE_TYPE)=TABLE restringe o escopo da verificação à tabela.