saya buat program dengan function function ExecSQLComm(coEntry:TADOCommand;sql_stmt: widestring; strError:String):_RecordSet; var F:Textfile; begin try coEntry.CommandText := sql_stmt; coEntry.Execute; except on E:Exception do begin assignFile(f,'ErrorLog.txt'); append(F); writeln(F,StrError); CloseFile(F); end; end; end; ketika ada kesalahan dalam database maka function itu akan nulis ke ErrorLOG.text nah klo misalkan saya pengen nulisnya itu ke MEMO gmana yach ? mohon bantuan'ya !

klo ini fungsi dibuat sendiri, pasti tau deh gmn caranya alihkan error messagenya ke dalam memo...hayoo, coba cari lagi...ekplor...ekplor...

nah justru itu, itu fungsi bukan buatan saya tapi saya tau bahwa itu nulisnnya ke errorlog.text itu,, klo bleh tau kita mu buat fungsi data turorial'ya tau da yang tau sitenya dimana ?

@jajang : walaupun fungsi itu bukan buatan sendiri, coba deh liat dgn baik2...keliatannya gak sulit untuk dipelajari fungsi tersebut...

xixixixixiii... gitu aja kok bingung... konsentrasi aja di sini :

assignFile(f,'ErrorLog.txt');
append(F);
writeln(F,StrError);
CloseFile(F); 

weeeee.. gak ngasih solusi, malah nambah mikir.. :mrgreen:

@jajang napa gak sekalian minta ama anak nya yg ngasih itu koding...gmn cara nyimpen error nya di memo...

yup trus tambahin memo save to file, jadi deh Log Eror nya .. banyak guna memo yah.. :)