Pertama-tama panggil fungsi openSchema di objek adodb.connection, yang akan mendapatkan Recordset, di mana setiap "record" berhubungan dengan tabel di database, dan setiap "field" dari "record" berisi aspek-aspek tertentu dari informasi dari tabel yang sesuai. Bidang TABLE_NAME berisi nama tabel terkait
Fungsi ini dapat ditulis sebagai suatu fungsi. Proses pemrosesan fungsi tersebut dijelaskan sebagai berikut:
Pertama-tama panggil fungsi openSchema di objek adodb.connection, yang akan mendapatkan Recordset, di mana setiap "record" berhubungan dengan tabel di database, dan setiap "field" dari "record" berisi aspek-aspek tertentu dari informasi dari tabel yang sesuai. Bidang TABLE_NAME berisi nama tabel terkait
Kemudian lintasi Recordset. Jika nilai field TABLE_NAME pada "current record" sama dengan nama tabel yang akan dicari, itu membuktikan bahwa tabel yang akan dicari 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 (tabel) dan tampilan (views)" di 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, Anda akan mendapatkan "kumpulan tabel dan tampilan dalam database", yang merupakan data bertipe ADODB.Recordset.
if RecordSet_about_table_and_view_in_DataBase("TABLE_TYPE")="TABLE" mempersempit cakupan pemeriksaan menjadi "tabel".