[Resolvido] erro na inserção

[Marcos Barbosa 1]

Tô fazendo uma rotina para verificar se um remetente existe, não existindo, faço a inserção, se existir ñ faz nada. Na hora de inserir acontence o erro:

"servidor atual não oferece suporte para retornar vários conjuntos de registro numa única execução"

 

o código é:

dm.QRY_TelePrincipal.Close;
            dm.QRY_TelePrincipal.SQL.Clear;
            dm.QRY_TelePrincipal.SQL.Add('SELECT * FROM tele_principal WHERE remetente = '+ QuotedStr(campo2)+'');
            dm.QRY_TelePrincipal.open;
            dm.QRY_TelePrincipal.ExecSQL;

            if dm.QRY_TelePrincipal.IsEmpty then
              begin
                dm.QRY_TelePrincipal.Close;
                dm.QRY_TelePrincipal.SQL.Clear;
                dm.QRY_TelePrincipal.SQL.add('INSERT INTO tele_principal (remetente) VALUES ('+ QuotedStr(campo2) +')');
                dm.QRY_TelePrincipal.open;
                dm.QRY_TelePrincipal.ExecSQL;
// exatamente aki acontece o erro
              end
            else
              begin
                ShowMessage('Cheio');
                exit;
              end;

[Marcos Barbosa 1]

resolvido...

Tirei essa linha

dm.QRY_TelePrincipal.open;