Halo rekan2,
Di bawah ini kode delphi/kylix, saya mau insert ke table dari query table
tapi jika error, saya ingin ada
Error handling tapi errornya tidak perlu di proses.
Kalau di java caranya begini
try {
// kode
} catch (Exception e) {} // <- kurung kurawal buka dan tutup yg di
dalamnya tidak ada statement.
Saya coba di delphi error syntax saya, jadi saya harus buat handle yg
ditampilkan, Gimana ya? ada yg tahu
while not(dm.qry_temp.Eof)
begin
try
dm.cmd_squery.Params.ParamByName("usrid").Value := 0;
dm.cmd_squery.Params.ParamByName("custid").Value :=
dm.qry_temp.FieldValues('Cust_ID');
dm.cmd_squery.Params.ParamByName("locid").Value :=
dm.qry_temp.FieldValues('Location_ID');
dm.cmd_squery.Params.ParamByName("picid").Value :=
dm.qry_temp.FieldValues('Pic_ID');
dm.cmd_squery.Params.ParamByName("number").Value :=
dm.qry_temp.FieldValues('Number');
dm.cmd_squery.Params.ParamByName("cust").Value :=
dm.qry_temp.FieldValues('Customer');
dm.cmd_squery.Params.ParamByName("lokasi").Value :=
dm.qry_temp.FieldValues('Location')
dm.cmd_squery.Params.ParamByName("pic").Value :=
dm.qry_temp.FieldValues('Pic')
dm.cmd_squery.Params.ParamByName("jabatan").Value :=
dm.qry_temp.FieldValues('Title')
except
on esql : EDatabaseError do
showmessage(esql.Message);
else
showmessage('Unknown error');
end;
dm.qry_temp.Next;
end;
Ahmad Juniar
--
Berhenti langganan: [EMAIL PROTECTED]
Arsip dan info: http://linux.or.id/milis.php
