Aparentemente nao tem nada de errado nao.. só de dou uma dica.. se eu fosse
você usaria parâmetros.. fica mais claro e facil de dar manutenção.
exemplo:
with DmCartoes.QrUsuarios do begin
SQL.Clear;
SQL.Add( 'UPDATE Usuarios SET ' );
SQL.Add( 'LOG_USU=:LOG_USU, ' );
SQL.Add( 'NOM_USU=:NOM_USU ' );
SQL.Add( 'WHERE' );
SQL.Add( 'COD_USU =:COD_USU' );
ParamByName( 'LOG_USU' ).AsString := Edit1.Text;
ParamByName( 'NOM_USU' ).AsString := Edit2.Text;
ParamByName( 'NOM_USU' ).AsInteger := 1;
ExecSQL;
end;
2008/11/6 Hayalon A. de Oliveira <[EMAIL PROTECTED]>
> Eduardo nao abusando da sua boa vontade...
>
> Segue me código, quem sabe estou fazendo algo de errado
>
> DmCartoes.QrUsuarios.Close;
> DmCartoes.QrUsuarios.SQL.Clear;
>
> If lbCod.Caption<>'0' Then
> begin
> With DmCartoes.QrUsuarios.SQL Do
> Begin
> Add('UPDATE Usuarios SET LOG_USU="'+edLogin.Text+'", ');
> Add('NOM_USU="'+edNome.Text+'", ');
> Add('PAS_USU="'+edSenha.Text+'", ');
> Add('ACS_USU='+IntToStr(cbAcesso.ItemIndex)+', ');
> Add('MAIL_USU="'+edMail.Text+'", ');
> Add('FIL_USU="'+cbFilial.Text+'" ');
> Add('WHERE COD_USU='+lbCod.Caption+';');
> End;
> end
> Else
> Begin
> With DmCartoes.QrUsuarios.SQL Do
> Begin
> Str:='INSERT INTO Usuarios (LOG_USU, NOM_USU, PAS_USU, ACS_USU, MAIL_USU,
> FIL_USU) '+
> 'VALUES
> ("'+edLogin.Text+'","'+edNome.Text+'","'+edSenha.Text+'",'+IntToStr(cbAcesso.ItemIndex)+',"'+edMail.Text+'","'+cbFilial.Text+'")';
> Add(STR);
> end;
> End;
> DmCartoes.QrUsuarios.ExecSQL;
> DmCartoes.QrUsuarios.SQL.Clear;
> DmCartoes.QrUsuarios.SQL.Add('SELECT * FROM Usuarios;');
> DmCartoes.QrUsuarios.Open;
>
>
--
.......................................................
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
.......................................................
[As partes desta mensagem que não continham texto foram removidas]
