Formatador de SQL online
08/03/2010 Deixe um comentário
O jeito mais fácil de se criar uma SQL no VBA, é copiar a sentença SQL de uma consulta e colar no editor do Visual Basic.
O problema é que a cópia vem toda “torta” e é necessário arrumá-la para que a sentença fique compreensível para o Access. Normalmente eu faço isso indo para o final da primeira parte dela e deletando o espaço que vem na sequência (e assim sucessivamente) até obter a frase completa. Qual o resultado ? Uma frase quilométrica !!!
Há um site que faz a formatação dessa frase e :
Transforma isto :
SELECT [URLs].[SecuClass], [URLp].[PrinId], [URLs].[SecuId], [URLs].[SecuTituOrig], [URLs].[SecuTituPort]
FROM URLp INNER JOIN URLs ON [URLp].[PrinId]=[URLs].[SecuIdPrin]
WHERE ((([URLs].[SecuClass])=Formulários!URLprincipal!URLprincipalSub.Formulário!SecuClass) And (([URLp].[PrinId])=Formulários!URLprincipal!PrinId));
Nisto:
SQL = “”
SQL = SQL & “SELECT [URLs].[SecuClass] , ”
SQL = SQL & ” [URLp].[PrinId] , ”
SQL = SQL & ” [URLs].[SecuId] , ”
SQL = SQL & ” [URLs].[SecuTituOrig], ”
SQL = SQL & ” [URLs].[SecuTituPort] ”
SQL = SQL & “FROM URLp ”
SQL = SQL & ” INNER JOIN URLs ”
SQL = SQL & ” ON [URLp].[PrinId]=[URLs].[SecuIdPrin] ”
SQL = SQL & “WHERE ( ”
SQL = SQL & ” ( ”
SQL = SQL & ” ( ”
SQL = SQL & ” [URLs].[SecuClass] ”
SQL = SQL & ” ) ”
SQL = SQL & ” =Formulários!URLprincipal!URLprincipalSub.Formulário!SecuClass ”
SQL = SQL & ” ) ”
SQL = SQL & ” AND ”
SQL = SQL & ” ( ”
SQL = SQL & ” ( ”
SQL = SQL & ” [URLp].[PrinId] ”
SQL = SQL & ” ) ”
SQL = SQL & ” =Formulários!URLprincipal!PrinId ”
SQL = SQL & ” ) ”
SQL = SQL & ” );”
Dica 1 : Em Input SQL selecione : MSAccess e em Output SQL : VB string(1)
Dica 2 : Se for o caso, depois de colar no editor do VB não esqueça de corrigir “Formulários” para “Forms” e “Formulário” para “Form”.
Comentários