Sim vou usar parametros, só digitei rapidamente,
pois nao estava conseguindo encontrar o erro de conexao..
Obrigado, vou olhar o codigo do comp.
Hayalon
________________________________
De: Eduardo Silva dos Santos <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 6 de Novembro de 2008 13:58:44
Assunto: Re: [delphi-br] MYSQL D6 - Urgente
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.QrUsuario s 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] com>
> Eduardo nao abusando da sua boa vontade...
>
> Segue me código, quem sabe estou fazendo algo de errado
>
> DmCartoes.QrUsuario s.Close;
> DmCartoes.QrUsuario s.SQL.Clear;
>
> If lbCod.Caption< >'0' Then
> begin
> With DmCartoes.QrUsuario s.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.QrUsuario s.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.QrUsuario s.ExecSQL;
> DmCartoes.QrUsuario s.SQL.Clear;
> DmCartoes.QrUsuario s.SQL.Add( 'SELECT * FROM Usuarios;');
> DmCartoes.QrUsuario s.Open;
>
>
--
............ ......... ......... ......... ......... .......
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 8842-9489
MSN: eduardo.drd@ gmail.com
Site: http://www.drdsiste mas.com.br/
............ ......... ......... ......... ......... .......
[As partes desta mensagem que não continham texto foram removidas]
Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua
cara @ymail.com ou @rocketmail.com.
http://br.new.mail.yahoo.com/addresses
[As partes desta mensagem que não continham texto foram removidas]
