Pertama-tama panggil fungsi openSchema di objek adodb.connection, yang akan mendapatkan Recordset, di mana setiap record berhubungan dengan tabel dalam database, dan setiap field dari record berisi beberapa aspek informasi dari tabel terkait. Bidang TABLE_NAME berisi nama tabel terkait. Fungsi ini dapat ditulis sebagai fungsi. Proses pemrosesan fungsi dijelaskan sebagai berikut:
Pertama-tama panggil fungsi openSchema di objek adodb.connection, yang akan mendapatkan Recordset, di mana setiap record berhubungan dengan tabel dalam database, dan setiap field dari record berisi beberapa aspek informasi dari tabel terkait. Bidang TABLE_NAME berisi nama tabel terkait
Kemudian lintasi Recordset ini. Jika nilai field TABLE_NAME pada record saat ini sama dengan nama tabel yang akan dicari, itu membuktikan bahwa tabel yang akan dicari itu ada.
Fungsinya terlihat seperti ini:
Copy kode kodenya sebagai berikut:
fungsi check_gived_DataTable_exist_or_not(menghubungkan_objek,nama_of_gived_DataTable)
Do_gived_DataTable_exist=salah
Const adSchemaTables=20 'Menunjukkan bahwa Anda ingin mendapatkan kumpulan tabel dan tampilan dalam database
atur RecordSet_about_table_and_view_in_DataBase=connect_object.openSchema(adSchemaTables)
Lakukan Hingga RecordSet_about_table_and_view_in_DataBase.EOF
jika RecordSet_about_table_and_view_in_DataBase(TABLE_TYPE)=TABEL maka
jika RecordSet_about_table_and_view_in_DataBase(TABLE_NAME)= nama_of_gived_DataTable maka
Do_gived_DataTable_exist=benar
keluar lakukan
berakhir jika
berakhir jika
RecordSet_about_table_and_view_in_DataBase.movenext
Lingkaran
check_gived_DataTable_exist_or_not=Lakukan_gived_DataTable_exist
fungsi akhir
Catatan:
Setelah fungsi connect_object.openSchema(adSchemaTables) dijalankan maka akan diperoleh kumpulan tabel dan tampilan pada database yang merupakan data bertipe ADODB.Recordset.
Kalimat if RecordSet_about_table_and_view_in_DataBase(TABLE_TYPE)=TABLE mempersempit cakupan pemeriksaan ke tabel.