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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Como saber se a Tabela Existe
Cleverton
PELOTAS
RS - BRASIL
Postada em 12/03/2007 12:05 hs            
Bom dia!
 
alguém sabe se é possível verificar se uma tabela existe em um banco de dados e também se um campo exitem na mesma tabela.
 
Agradeço qualquer ajuda.
     
ghost_jlp
Pontos: 2843 Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 12/03/2007 13:21 hs            
vc pode dar uma adaptada usando esta dica:
 
 
ou tratar o erro usando:
 
ON ERROR GOTO ERRO
 
rs.open "select campo from tabela", conexao
 
ERRO:
 
if err.number <> 0 then msgbox err.description & vbnewline & err.number
 
qq dúvida postae
 
at+
     
Vilmar Brazão
Pontos: 2843
SAO PAULO
SP - BRASIL
Postada em 12/03/2007 18:38 hs         
Veja estas dicas aqui usando SQL apenas:
 
A)
SELECT C.Name, O.Name FROM SYSCOLUMNS C, SYSOBJECTS O
WHERE C.Name = 'OrderID' AND O.Name = 'Orders' AND OBJECTPROPERTY(C.id, N'IsUserTable') = 1
ORDER BY O.Name

 --> Aqui procura descobrir quais tabelas tem determinada coluna.
SELECT C.Name, O.Name FROM SYSCOLUMNS C, SYSOBJECTS O WHERE C.Name LIKE '%Orders%' AND C.ID = O.ID AND OBJECTPROPERTY(c.id, N'IsProcedure') = 1 ORDER BY O.Name
--> Aqui procura por todas tabelas que contenham determinado nome na descrição da mesma.
SELECT O.Name FROM SYSOBJECTS O WHERE O.Name LIKE '%Orders%' AND OBJECTPROPERTY(O.ID, 'IsProcedure') = 1 ORDER BY O.Name
--> Aqui procura por textos dentro de SPs
SELECT SUBSTRING(LTRIM(RTRIM([text])),4,150) FROM SYSCOMMENTS WHERE [text] LIKE '%vw_Mmgr_Usuario%' ORDER BY [text]
------------------------------------------------------------------------------------------------------------------------------------------------------------------------
--> Para saber se objeto é View: -- OBJECTPROPERTY(id, N'IsView') = 1
--> Para saber se objeto é Stored Procedure: -- OBJECTPROPERTY(id, N'IsProcedure') = 1
--> Para saber se objeto é Function: -- xtype in (N'FN', N'IF', N'TF')
--> Para saber se objeto é Primary Key: -- OBJECTPROPERTY(id, N'IsPrimaryKey') = 1
--> Para saber se objeto é Foreign Key: -- OBJECTPROPERTY(id, N'IsPrimaryKey') = 1
--> Para saber se objeto é Trigger: -- OBJECTPROPERTY(id, N'IsTrigger') = 1
 
B)
 Primeiro devemos saber onde buscar as informações...
 -- Esse select retorna todas as tabelas do banco
select * from sysobjects where xtype = 'u'
-- Esse select retorna todas as colunas do banco
select * from syscolumns
-- Agora vamos cruzar as duas tabelas
select name from syscolumns where id = (select id from sysobjects where xtype = 'u' and name = 'tabeladesejada') -- Nome da tabela
 

http://www.vilmarbro.com.br
TÓPICO EDITADO
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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