edit  record -- changes arent saved.
lazarus / 16-Databases

----------------------------------------------------------------------
cavaco · 2007-07-28 19:41

SqlQuery1.Close;
  SQLQuery1.Active:=False;
  SQLQuery1.SQL.Clear;
   SqlQuery1.SQL.Text := 'select * from clientes Where ncl =
"'+Teditl.Text+'"';
  SqlQuery1.Open;
                      
  If SqlQuery1.RecordCount>0 then
 
    SqlQuery1.Edit
  Else
    SqlQuery1.Append;
       
----for save                                                         
     if SqlQuery1.State in [dsInsert, dsEdit] then

  begin

        SqlQuery1.Post;
        SqlQuery1.ApplyUpdates; s
        ShowMessage('data saved with sucess!');
  end
    else
    ShowMessage('there isn't any data insered or changed');

----------MYSQL                       

I'm applying this code from delphi2.


i dont understand why i can create a new record but when i edit the
record the changes arent saved.

Can some one help me?

Thanks.

----------------------------------------------------------------------
antonio · 2007-07-28 20:37

This code works fine on Delphi?

----------------------------------------------------------------------
cavaco · 2007-07-31 18:14

sim - funciona bem - mas é em delphi4 e não 2 como por engano disse

mas em neste programa e com mysql5 não consigo fazer com que grave
após editar e alterar o registo -