檢查access資料庫中是否存在某個名字的表的asp代碼

可以把本功能寫成一個函數，函數的處理流程說明如下：

首先調用adodb.connection對象中的openSchema函數，這樣會得到一個Recordset，其中每一條“紀錄”對應著資料庫中的一張表，“紀錄”的每個“欄位”包含了對應表的某方面資訊。其中TABLE_NAME欄位包含了對應表的名稱
然後遍曆這個Recordset，如果“當前紀錄”的TABLE_NAME欄位的值和要尋找的表的名字一樣，證明要尋找的表存在。
函數如下所示:

複製代碼 代碼如下:function 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)
Do Until RecordSet_about_table_and_view_in_DataBase.EOF
if RecordSet_about_table_and_view_in_DataBase("TABLE_TYPE")="TABLE" then
if RecordSet_about_table_and_view_in_DataBase("TABLE_NAME")= name_of_gived_DataTable then
Do_gived_DataTable_exist=true
exit do
end if
end if
RecordSet_about_table_and_view_in_DataBase.movenext
Loop

check_gived_DataTable_exist_or_not=Do_gived_DataTable_exist
end function

注釋:

connect_object.openSchema(adSchemaTables)這個函數執行後，會得到“資料庫中表（table）和視圖（view）的集合”，這是一個ADODB.Recordset類型的資料。
if RecordSet_about_table_and_view_in_DataBase("TABLE_TYPE")="TABLE"這句話把檢查範圍縮小為“表（table）”。