Pesan kesalahan pada SQL

Index Konsultasi Delphi || Arsip Pertanyaan

Pesan kesalahan pada SQL [Nanang]

Langsung aja dech, gimana cara menampilkan pesan salah jika kita ketik perintah sql di memo bukan perintah sql? Satu lagi bagaimana apllikasi MIDAS koneksi ke interbase ? Terima kasih.

Jawaban

Untuk itu Anda bisa menggunakan try .... except seperti contoh di bawah ini:

procedure TForm1.Button1Click(Sender: TObject);

begin

     try

        with Query1 do

        begin

             Close;

             SQL.Clear;

             SQL.Add(Memo1.Text);

             Open;

        end;

     except

             MessageBox (Handle, 'Cek lagi SQLnya','Error', 

             MB_ICONERROR);

     end;

end;

Bila terdapat kesalahan pada kode di antara blok try ... except, maka akan ditampilkan pesan kesalahan dengan MessageBox. Dengan pasangantry ... except, Anda dapat menangani baris kode yang berpotensi error sehingga yang muncul adalah pesan kesalahan yang bisa Anda definisikan sendiri. Tentunya user akan lebih mudah memahami pesan kesalahan yang Anda buat dari pada pesan kesalahan "bawaan" Delphi.

-----------------------------------------------------------

WE DO REMOTE PROGRAMMING PROJECT, C/S APPS, TCP/IP,

SERIAL COMM, CONVERTING APPS FROM D1-D6, ETC

PLEASE CONTACT ICQ# 2057150 FOR FURTHER INFO

-----------------------------------------------------------