Verificar Se tabela existe em SQL

[dark0]

Verificar Se tabela existe em SQL

Uma vez eu abri um tópico sobre isso.. e então, to colocando aqui, resumido..

Conecta ao Banco:

url_conexao = Server.MapPath("banco.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

Mostra as Tabelas:

adSchemaTables = 20
Set rsTabs = conexao.OpenSchema(adSchemaTables,array(empty, empty, empty, "TABLE"))

Do while not rsTabs.EOF
response.write "TABELA: <b>"& Ucase(rsTabs("TABLE_NAME")) &"</b><br>"
rsTabs.MoveNext 
Loop

abraços