[Resolvido] Função bastante útil

[André Silveira 0]

Salve salve pessoal.

 

Pra quem gosta de organização no banco e facilidade na programação como eu

Fiz umas funções aqui que me ajudam bastante e gostaria de compartilhar com vocês.

 

'Função que verifica se a coluna informada no Parametro existe no banco
function CheckColuna(tabela, coluna)
tabela = LimpaLixo(lcase(tabela))
coluna = LimpaLixo(lcase(coluna))
ColSQL = "select column_name from information_schema.columns WHERE table_schema = 'public' and table_name = '"&tabela&"' and column_name = '"&coluna&"'"
set check = banco.execute(ColSQL)
if not check.eof then
	CheckColuna = true
else
	CheckColuna = false
end if
set check = nothing
end function


'Pega o comentário da coluna em uma tabela especifica
'Parametros: tabela, coluna
'Dependencia: CheckColuna
'Retorno: string
function DescricaoColuna(tabela, coluna)
if CheckColuna(tabela, coluna) then 'Checa se a coluna existe na tabela
	SQL = "select d.description from pg_class c inner join pg_namespace n on n.oid = c.relnamespace inner join pg_attribute a on a.attrelid = c.oid left  join pg_description d  on d.objoid   = a.attrelid and d.objsubid = a.attnum where n.nspname = 'public' and c.relname = '"&tabela&"' AND a.attname = '"&coluna&"' and c.relkind = 'r' and a.attnum  > 0;"
	set ib = banco.execute(SQL)
	if not ib.eof then
		DescricaoColuna = ib("description")
	else
		DescricaoColuna = " - "
	end if
	set ib = nothing
end if
end function

 

Uma forma simples de como uso as funções

if CheckColuna("publicacoes", coluna) then 'Verifica se a coluna informada existe na tabela
  response.write("Oba a coluna" & coluna & " existe realmente no banco")
end if

 

Pra quem tem SGBDS gigantescos como eu!!! ajuda bastante!

 

Forte abraço!