|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: Verificar se a tabela existe em SQL
|
 |
|
|
|
Postada em 2/10/2003 por ^HEAVY-METAL^
Para verificar se a tabela existe e caso ela não existir aqui vai uma dica (VEJA QUE EU USEI UMA BANCO DE DADOS (DATABASE)IDENTIFICATION COMO EXEMPLO VC PODE MUDAR ESTE VALOR
sub abre_identification
strsql = "DRIVER={sql server};NOME DO SERVIDOR;UID=USUARIO;"
strsql=strsql & "pwd=SENHA;database=DATABASE;"
Set conexaosql = Server.CreateObject("ADODB.Connection")
conexaosql.open strsql
end sub
sub fecha_conexao
conexaosql.close
set conexaosql =nothing
end sub
Consultar se a tabela exite
<!--#include file="..\conexao\biblioteca-conexao.asp" -->
(caso as funcões estejam em outra pagina)
<%
Call abre_identification
Set rsClientes = Server.CreateObject("ADODB.Recordset")
i=0
ia=1
do while i=0
tabela="Tb_Virtual_"
tabela=tabela & CStr(ia)
strsql="sp_tables @Table_Name='" & tabela & "'"
set rsClientes = conexaosql.Execute(strsql)
if not rsClientes.eof then
ia=ia+1
else
i=i+1
end if
loop
rsclientes.Close
Set rsclientes = Nothing
Set rsClientes = Server.CreateObject("ADODB.Recordset")
strsql="CREATE TABLE " & tabela & " ( [Nre] [int] NULL , [nome] [nvarchar] (60) COLLATE Latin1_General_CI_AS NULL , [departamento] [nvarchar] (30) COLLATE Latin1_General_CI_AS NULL , [empresa] [char] (50) COLLATE Latin1_General_CI_AS NULL , [tabela] [char] (15) COLLATE Latin1_General_CI_AS NULL , [cc] [char] (20) COLLATE Latin1_General_CI_AS NULL , [nomecc] [char] (60) COLLATE Latin1_General_CI_AS NULL ) ON [PRIMARY]"
response.write strsql
set rsClientes = conexaosql.Execute(strsql)
Set rsclientes = Nothing
call fecha_conexao
obs:a procedure Sp_Table ja existe no sistema SQL
T+,
|
|
|
|
|
