[Resolvido] Função bastante útil

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!