Appelez d'abord la fonction openSchema dans l'objet adodb.connection, qui obtiendra un Recordset, dans lequel chaque enregistrement correspond à une table de la base de données, et chaque champ de l'enregistrement contient un certain aspect des informations de la table correspondante. Le champ TABLE_NAME contient le nom de la table correspondante. Cette fonction peut être écrite sous forme de fonction. Le processus de traitement de la fonction est décrit comme suit :
Appelez d'abord la fonction openSchema dans l'objet adodb.connection, qui obtiendra un Recordset, dans lequel chaque enregistrement correspond à une table de la base de données, et chaque champ de l'enregistrement contient un certain aspect des informations de la table correspondante. Le champ TABLE_NAME contient le nom de la table correspondante
Parcourez ensuite ce Recordset. Si la valeur du champ TABLE_NAME de l'enregistrement actuel est la même que le nom de la table à rechercher, cela prouve que la table à rechercher existe.
La fonction ressemble à ceci :
Copiez le code comme suit :
fonction check_gived_DataTable_exist_or_not(connect_object,name_of_gived_DataTable)
Do_gived_DataTable_exist=false
Const adSchemaTables=20 'Indique que vous souhaitez obtenir la collection de tables et de vues dans la base de données
définir RecordSet_about_table_and_view_in_DataBase=connect_object.openSchema(adSchemaTables)
Faire jusqu'à ce que RecordSet_about_table_and_view_in_DataBase.EOF
si RecordSet_about_table_and_view_in_DataBase(TABLE_TYPE)=TABLE alors
si RecordSet_about_table_and_view_in_DataBase(TABLE_NAME)= name_of_gived_DataTable alors
Do_gived_DataTable_exist=true
sortir faire
finir si
finir si
RecordSet_about_table_and_view_in_DataBase.movenext
Boucle
check_gived_DataTable_exist_or_not=Do_gived_DataTable_exist
fonction de fin
Note:
Une fois la fonction connect_object.openSchema(adSchemaTables) exécutée, une collection de tables et de vues dans la base de données sera obtenue, qui sont des données de type ADODB.Recordset.
La phrase if RecordSet_about_table_and_view_in_DataBase(TABLE_TYPE)=TABLE restreint la portée de la vérification à la table.