with Query1 do begin SQL.Clear; SQL.Add('select from absen where nidn='+QuotedStr(FlatEdit1.Text)+' and tgl='+QuotedStr(FlatEdit8.Text)); open; if Query1.RecordCount<>0 then SQL.Clear; SQL.Add('update absen set nidn=:nidn,jk=:jk,tgl=:tgl where nidn=:nidn'); ParamByName('nik').AsString:=FlatEdit1.Text; ParamByName('jk').AsTime:=StrToTime(FlatEdit9.Text); ParamByName('tgl').AsString:=(FlatEdit8.Text); ShowMessage('Jam Pulang Belll'); ExecSQL; SQL.Clear; SQL.Add('select from absen'); open; script diatas saya gunakan untuk mencari 2 field dalam satu tabel, jika ketemu datanya inginnya langsung di update sesuai dgn data hasil pencarian, misal ada record nik 001jam :01:01:01 tgl 12/12/2007 dan nik 001 jam 00:00:00 tgl 15/12/2007, data yg saya cari misal nik 001 jam 00:00:00 tgl 12/12/2007 ketemu ingin update jam dan tgl tersebut menjadi 11:11:11 dan 13/12/2007 tetapi malah semua record yang nik nya 001 terupdate tanggalnya, nah gimana donk caranya biar updatenya sesuai yg kita cari !!! pleaas help me yach......

peraturan delphi-id : 06. Mohon mengisi kolom "SUBJECT", sesuai isi thread. Jangan mengisi hanya dengan kata-kata "mohon informasi" atau "tanya dong..." atau hal-hal lain yang tidak menjelaskan isi email anda. Dan tentu saja tempatkan pada topik yang sesuai. kalo begini gimana ?

with Query1 do begin
  SQL.Clear;
  SQL.Add('update absen set nidn=:nidn,jk=:jk,tgl=:tgl');
  SQL.Append('WHERE nidn=' + QuotedStr(FlatEdit1.Text) + ' and tgl=' + QuotedStr(FlatEdit8.Text)); 
  ParamByName('nik').AsString:=FlatEdit1.Text;
  ParamByName('jk').AsTime:=StrToTime(FlatEdit9.Text);
  ParamByName('tgl').AsString:=(FlatEdit8.Text);
  ShowMessage('Jam Pulang Belll');
  ExecSQL;
end;

apa bedanya?