USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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+,
 


CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página