まず、adodb.connection オブジェクトの openSchema 関数を呼び出します。これにより、Recordset が取得されます。各「レコード」はデータベース内のテーブルに対応し、「レコード」の各「フィールド」には、データベースの情報の特定の側面が含まれます。対応するテーブル。 TABLE_NAME フィールドには、対応するテーブルの名前が含まれます。
この関数は関数として記述することができ、関数の処理プロセスは次のように記述されます。
まず、adodb.connection オブジェクトの openSchema 関数を呼び出します。これにより、Recordset が取得されます。各「レコード」はデータベース内のテーブルに対応し、「レコード」の各「フィールド」には、データベースの情報の特定の側面が含まれます。対応するテーブル。 TABLE_NAME フィールドには、対応するテーブルの名前が含まれます。
次に、Recordset を調べます。「現在のレコード」の TABLE_NAME フィールドの値が、検索対象のテーブルの名前と同じであれば、検索対象のテーブルが存在することがわかります。
関数は次のようになります。
次のようにコードをコピーします。
関数 check_gived_DataTable_exist_or_not(connect_object,name_of_gived_DataTable)
Do_gived_DataTable_exist=false
Const adSchemaTables=20 'データベース内の「テーブル(table)とビュー(view)のコレクション」を取得したいことを示します
set 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" の場合
if RecordSet_about_table_and_view_in_DataBase("TABLE_NAME")= name_of_gived_DataTable then
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 型のデータである「データベース内のテーブルとビューのコレクション」が取得されます。
RecordSet_about_table_and_view_in_DataBase("TABLE_TYPE")="TABLE" の場合、チェックの範囲が "テーブル" に狭められます。