Tratamento de comandos SQL

Sinceramente, eu não gosto muito de utilizar o Objeto ADODB.Command, que faz a mesma coisa, só que de uma melhor maneira.

Mas para aqueles que não são adeptos do objeto command, podem utilizar a função abaixo.

Desenvolvi esta função com o intuito de minimizar o esforço de ficar digitando desta maneira:

sqlCmd = "select * from tb_andre where id= " & request("id") & " and nome like '" & Nome & "'"

Agora fica assim:

sqlCmd = TrataSQL("Select * from tb_andre where id = [request(""id"")] AND nome like '[nome]'")

Ele já vai retornar o comando SQL, pronto para ser executado, ai vai o código:

Public Function TrataSQL(sqlCommand)
sqlCommand = replace(sqlCommand, "[",""" & ")
sqlCommand = replace(sqlCommand,"]"," & """)
sqlCommand = "TrataSQL = """ & sqlCommand & """"
execute( sqlCommand )
End Function

Esta matéria foi postada originalmente no ASP4Developers por André Guergolet (site), que na época era "Desenvolvedor de aplicativos voltados a WEB à 3 anos. Atualmente trabalha com aplicativos de monitoração de redes utilizando .NET e outros recursos.". Hoje, vai saber...