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 certains aspects des informations du tableau correspondant. Le champ TABLE_NAME contient le nom de la table correspondante
Cette fonction peut être écrite sous forme de fonction, et 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 certains aspects des informations du tableau correspondant. Le champ TABLE_NAME contient le nom de la table correspondante
Parcourez ensuite le 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 (tables) et de vues (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, vous obtiendrez « une collection de tables et de vues dans la base de données », qui sont des données de type ADODB.Recordset.
if RecordSet_about_table_and_view_in_DataBase("TABLE_TYPE")="TABLE" restreint la portée de la vérification à "table".