[Resolvido] Função para gerar SQL dinamicamente

[Ted k' 126]

Cansado de fazer tanto SQL no site?

Tentou usar uma função pra isso?

 

Criei uma função para você selecionar um campo de uma tabela, mais com um pouco de estudo e antenção você pode adaptar elea para receber várias informações.

 

Nesse Script você coloca o nome da tabela, o campo que quer fazer o loop e uma mensagem de erro caso não tenha nada no banco, caso você tenha muitos SQL’s no seu site e tem dificuldades de administrar, uma boa solução é essa!

<%
Function AllSelect(Tabela, Campo, Mensagem)
	Dim Rs
	Set Rs = Conexao.Execute("Select "&Campo&" From "&Tabela&"")
		If Rs.Eof Then
			Response.Write(""&Mensagem&"")
		Else
			While Not Rs.Eof
				Response.Write(Rs(""&Campo&"")&"<br><br>")
			Rs.MoveNext : Wend
		End If
	Set Rs = Nothing
End Function
%>

Aqui você coloca onde quer que apareça o conteúdo:

<% Response.Write(AllSelect("Nome_Tabela", "Campo_de_Amostra", "Mensagem_de_Erro")) %>

Qualquer dúvida, é só postar!!!

 

dicas: Ted k' .Blog