Fórum Exemplo de função para execução rápida de código SQL #371795

variável := SQL(´SELECT NOME FROM ALUNOS WHERE CODIGO = 1´, True);

function SQL ( s : String; Retorno : Boolean ) : Variant;
var
     FQuery : TADOQuery;
Begin
     FQuery                  := TADOQuery.Create(Nil);
     FQuery.Connection       := frmPrincipal.ADOConnection1;
     FQuery.Sql.Text         := s;

     try
        If Retorno then
        Begin
           FQuery.Open;
           if Not FQuery.Fields[0].IsNull then
           Begin
              SQL := FQuery.Fields[0].Value;
           end else
           begin
              SQL := ´´;
           end;
           FQuery.Close;
        end else
        Begin
           FQuery.ExecSQL;
        end;
     except
        On E: Exception Do
        Begin
           If Pos(UpperCase(´win32 error 10054´), UpperCase(´e.message´)) > 0 Then
           Begin
              Application.MessageBox(´O Servidor está OFFLINE ou foi reiniciado. ´ + 1310 +
                ´Não será possível continuar com o programa. Ele será encerrado.´,
                ´Atenção! SERVIDOR OFFLINE/REINICIADO!´, MB_OK + MB_ICONSTOP + 
                MB_TOPMOST);
              frmPrincipal.ADOConnection1.Destroy;
              Halt(0);
           End Else If Pos(UpperCase(´FAILED TO ESTABLISH A CONNECTION´), UpperCase(´e.message´)) > 0 Then
           Begin
              Application.MessageBox(´PROBLEMA DE COMUNICAÇÃO NA REDE! ´ + #1310 +
                ´Não foi possível o programa se comunicar pela rede (independente do servidor).´ +
                1310 + ´Verifique se o computador está logado na rede, configurado corretamente e outros detalhes pertinentes.´ + 1310 + ´O programa será encerrado.´,
                ´Atenção! PROBLEMA DE COMUNICAÇÃO NA REDE!´, MB_OK + MB_ICONSTOP +
                MB_TOPMOST);
              frmPrincipal.ADOConnection1.Destroy;
              Halt(0);
           End Else
           Begin
              Application.MessageBox(PChar(´Ocorreu um erro no *core* interno de consultas. Verifique:´
                   + #1310 + ´1) Todos os campos foram digitados?´ + 1310 +
                   ´2) Algum campo foi digitado com valor repetido de outro registro (não outro campo)?´
                   + 1310 +
                   ´3) Você mudou alguma configuração da tela enquanto os dados estavam em edição?´
                   + 13101310 +
                   ´Esses procedimentos, quando aplicados, corrigem esse erro.´ +
                   1310 + 1310 +´A mensagem de erro foi:´ + 1310 + UpperCase(E.Message)), ´Atenção!´, MB_OK + MB_ICONSTOP + MB_TOPMOST);
           End;
        End;
     end;

     FQuery.Destroy;
end;