Arsip: ?? Bikin Program delphi sama dgn Query analyzer SQL

 
user image
more 14 years ago

kacungdelphi24

-- Para Delphier senior beserta admin maaf kalo repost. tapi karna uda mentok banget nih. uda ubek2 uncle google juga gak dapet2 info neh. jadi posting disini nih. :D masalahnya gini nih. kalo aku mao tampilin pesan kaya gini The command(s) completed successfully. Setelah g jalanin script di sql itu gimana yah? mohon pencerahannya :D
user image
more 14 years ago

dels

pake tipe koneksi apa? ADO? DBExpress? pada dasarnya bisa pake try except

try
//blah......
//jalanin query....
//pesen klo sukses pake MessageBox, MessageDlg, Memo.Lines.Add, etc...
except
//tampilin pesen error pake MessageBox, MessageDlg, Memo.Lines.Add, etc...
end;
user image
more 14 years ago

bagussb

kalo dicoba gini jalan ngga yah.. :mrgreen:

try
  ADOQuery.SQL.Text := sScript;
  ADOQuery.ExecSQL;
finally
  MessageDlg('The command(s) completed successfully.');
end;
user image
more 14 years ago

heerrr

Kalo perintah menampilkan message dialognya di finally, biar sql scriptnya gagal, tetep keluar message boxnya.
user image
more 14 years ago

ImanD

@heerrr: Kalo perintah menampilkan message dialognya di finally, biar sql scriptnya gagal, tetep keluar message boxnya.
aku coba ubah dikit dari bro @bagussb

try
  ADOQuery.SQL.Text:=sScript;
  ADOQuery.ExecSQL;
  MessageDlg('The command(s) completed successfully.');
except
  MessageDlg('Error in SQL Syntax.');
end;
user image
more 14 years ago

kacungdelphi24

makasih banyak atas respond dari para delphier :D - tapi sepertinya ada kesalahpahaman disini. maksud saya sebenarnya justru saya ingin mengcapture message info yang ada di query analyzer setiap kali kita menjalankan perintah sql disana dengan menekan tombol F5 baik itu berhasil atau tidak?! kemudian mau saya tampilkan di program delphi saya. bukannya saya siapkan melalui messagedlg seperti yang di perlihatkan mas @ImanD :D
user image
more 14 years ago

herux

bisa tuh tangkap exception atau messagenya db, cuma saya lupa ... modelnya sepertinya ini kayaknya try ... except on ex:EZSqlexception do // kalo pake zeos loh ...!! ini kalo terjadi exception Memo1.Text := ex.Message; end; persisnya lupa, ...
user image
more 14 years ago

kacungdelphi24

weew kalo pake zeos bisa yah bro @Herux? hmmm bukannya itu terjadi kalao ada kesalahan / exception kan baru bisa muncul message nya bukan kalao berhasil bener gak tuh bro?
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com