teman2 delphier...aq mohon pencerahannya ya... aq mau bikin coneksi ke server menggunakan adoconnection, server menggunakan Ms-sql200, yang aq tanyakan bagaimana menangkap pesan gagal koneksi yang disampaikan Mssql200 ke delphi....aq search di posting, ada sih postingnya mas ekoIndri, http://pascal-id.org/dpr/index.php?name=PNphpBB2&file=viewtopic&t=1669&highlight=try+except sudah saya coba praktekkan n pada librarynya sudah aq tambah ComObj, tp belum bisa, aq bikinnya sperti ini nih... [vb:1:f85c19ce3a]procedure TForm1.FormCreate(Sender: TObject); begin providerpath:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Database;Data Source=192.168.0.13'; adoconnection1.ConnectionString:=providerpath; try adoconnection1.Connected:=true; except on EOleException do showmessage('Koneksi gagal, silahkan anda ulangi sekali lagi'); end; end; end.[/vb:1:f85c19ce3a] trus aq tunggu lama yg muncul pesannya gini " Project Project1.exe raised exception class EOleexception with message '[DBNETLIB][ConnectionOpen(Connect()).]SQL Server does not exist or access denied'.Proses stoped. Use stepor run to continue "

passwordnya noh salah. coba bikin connection string yang benar dulu.

// pastikan ada uses AdoDb 
uses AdoDb;
/// lalu di sourcenya pakai ini buat ambil  ConnectionString yang benar 
providerPath := Adodb.PromptDataSource(Self.Handle, AdoConnection1.ConnectionString);

@danieljun: passwordnya noh salah. coba bikin connection string yang benar dulu.

wekekeke... :D, namanya aja biar muncul error, ngisinya ya sembarangan aja. kalo koneksi udah bener gak bakal muncul errornya dunk.

@danieljun... sory...n makasih...connectionnya g' pake password... @CH...blum bisaaaa...

procedure TForm1.Button1Click(Sender: TObject);
begin
try
   providerpath:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Database01;Data Source=192.168.1.11';
   adoconnection1.ConnectionString:=providerpath;
   adoconnection1.Connected:=true;
   MessageDlg('Koneksi Berhasil', mtInformation,[mbOK],0);
except
on e: exception do begin
MessageDlg('Koneksi Gagal',mtError,[mbOK],0);
end;
end;
end;

misal untuk catalog=database1...datasource=192.168.1.11 sudah konek sih...bisa tampil messageDlg nya...tapi klo pas catalog=database1...datasource=192.168.1.11 nya putus...alias jaringannya putus...MessageDlg yang gagal tidak bisa tampil... trus...knapa jangan pake F9...trus gimana caranya?.... makasih ya.... nb : aq sudah isi librarynya ComObj...sesuai postingnya mas EkoIndry....

coba pake cara ini siapa tau bisa (untung2 an) : buka menu tools -> debugger option. pilih tab exception language lalu unchek pada checkbox stop on delphi exception...............

wuih ... kaga ngarti noh bisa begonoh. Sorry kaga bisa bantu.

@ mas_kofa n CH... makasih ya...sudah bisa... makasih semuanya ya...

yah...barusan mau ngebantu kok udah ketemu salahnya ... yo udah deh...

Wah terlambat . ggk apa apa deh sekedar nambahin :

//tambahan 
except
    on e: exception do begin
      MessageDlg('Koneksi Gagal'+#13+E.Message,mtError,[mbOK],0);
    end;
 end;