Função Que Cria Sql De Acordo Com As Característic

[jissa]

Cara isto facilita a Vida Pacas.... acho que to postando em local errado... mas sei lá o Moderador Muda... :)

<%

'--------------------------------------------------------------------

' criaConsultaSQL

' Criado por Rafael Martins de Ascenção

' Email: iamaz@ig.com.br - ICQ: 118036283

' --------------------------------------------

' strOri = palavra procurada

' campos = campos da tabela a serem selecionados pela consulta

' tabela = tabela onde será feita a consulta

' condicoes = filtro para o registros selecionados

' tipoBusca = E, OU, EXATA

' camposPesquisa = campos onde será feita a busca

' ordem = campos a classificar os registros

'--------------------------------------------------------------------

function criaConsultaSQL(strOri,campos,tabela,condicoes,tipoBusca,camposPesquisa,ordem)

dim str,sql,cmpPsq

str = preparaPalavra(strOri)

sql = "SELECT " & campos & " FROM " & tabela & " where "

cmpPsq = split(camposPesquisa,",")

if tipobusca = "EXATA" then

sql = sql & " ("

for i=0 to ubound(cmpPsq)

if i <> 0 then

sql = sql & " or "

end if

sql = sql & cmpPsq(i) & " like '%" & str & "%'"

next

sql = sql & ")"

else

if tipobusca = "E" then

expr = " and "

else

expr = " or "

end if

strvet = split(str," ")

sql = sql & " (("

for i=0 to ubound(cmpPsq)

if i <> 0 then

sql = sql & ") or ("

end if

for j=0 to ubound(strvet)

if j <> 0 then

sql = sql & expr

end if

sql = sql & cmpPsq(i) & " like '%" & strvet(j) & "%'"

next

next

sql = sql & "))"

end if

if condicoes <> "" then

sql = sql & " and " & condicoes

end if

sql = sql & " order by " & ordem

criaConsultaSQL = sql

end function

'E para utilizá-la:

pegaReg.Open criaConsultaSQL(frase, "campo1,campo2,campo3,campo4", "tabela", "campo=1", "E", "campo1,campo2", "campo1,campo2"), conex

%>

[Thuran]

muito bom esse cód!

...só q isso é vb, não é??? :huh:

[jissa]

é que gosto do Forum JavaScript.. o pessoal é mais leal.. :) mesmo se fosse em Fortran / Pascal eu postaria aqui..

heheheh