Arsip: Atasi gagal koneksi dengan ADOConnection


by EkoIndri in Articles more 14 years ago 2120
Tips untuk mengatasi gagal ADOConnection yang gagal melakukan koneksi ketika anda mencoba konek ke database server

Saya yakin buat temen2 yang baru saja mengenal delphi atau bahkan sudah lama kenal delphi tapi belum bisa menemukan cara untuk menangkap error ketika kita sedang gagal koneksi dengan menggunakan ADOConnection.

Memang seringkali kita takut dengan hal ini, ketika program aplikasi yang kita buat dioperasikan oleh orang awam yang tidak mengetahui solusi ketika server databasenya sedang tidak aktif.

Namun, sekarang temen-temen tidak usah khawatir dengan hal tersebut, karena disini saya akan memberikan tips untuk menangkap error yang diakibatkan oleh ADOConnection yang gagal ketika melakukan koneksi ke database server.

Silahkan temen2 ikuti langkah-langkah berikut ini :

1. Tambahkan library ComObj didalam uses dari program anda.
unit Unit1;
interface
uses
ComObj, Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
private
...
Syntax Highlighted with https://pascal-id.org/syntax


2. setelah itu, silahkan anda mencoba konek ke database server, dengan catatan connectionstring dari ADOConnection sudah anda tentukan.
contoh koneksi ke database server
with ADOConnection1 do
Try
Connected := True;
except
on EOleException do
begin
MessageDlg('Koneksi gagal, silahkan anda ulangi sekali lagi',MtInformation,[mbOK],0);
end;
end;
Syntax Highlighted with https://pascal-id.org/syntax


Catatan :
Ketika anda tidak menambahkan library ComObj pada uses, maka anda tidak dapat memanggil exception EOleExceptionOleh karena itu, jangan sampai lupa untuk menambahkan library ComObj pada uses.

semoga teknik ini bisa membantu temen-temen yang ingin belajar database dengan menggunakan Delphi
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com