Arsip: pesan gagal koneksi lewat ado

 
user image
more 14 years ago

e_soep

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 "
user image
more 14 years ago

cyber_hecker

diriku nyoba pake yang kayak gini, dan berhasil :
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    ADOConnection1.ConnectionString :=
      'Provider=SQLOLEDB.1;Password= ;Persist Security Info=True;User ID=' +
      ' ;Initial Catalog=SIMBADATEMPx;Data Source=LEONARDO';
    ADOConnection1.Connected := True;
    MessageDlg('Koneksi Berhasil', mtInformation,[mbOK],0);
  except
    on e: exception do begin
      MessageDlg('Koneksi Gagal',mtError,[mbOK],0);
    end;
  end;
end;
note: dijalankan exe nya. bukan lewat IDE (F9) nya delphi
user image
more 14 years ago

danieljun

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);
user image
more 14 years ago

cyber_hecker

@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.
user image
more 14 years ago

e_soep

@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....
user image
more 14 years ago

mas_kofa

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...............
user image
more 14 years ago

danieljun

wuih ... kaga ngarti noh bisa begonoh. Sorry kaga bisa bantu.
user image
more 14 years ago

e_soep

@ mas_kofa n CH... makasih ya...sudah bisa... makasih semuanya ya...
user image
more 14 years ago

ekosch

yah...barusan mau ngebantu kok udah ketemu salahnya ... yo udah deh...
user image
more 14 years ago

julius

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;
more ...
  • Pages:
  • 1
  • 2
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com