Arsip: AdoConnection dan ProgressBar

more 17 years ago
myzendcafe
Halo semua,
bantuin dong aku buat scrip koneksi ke mysql dengan AdoConnection trus tak kasih indikator pakai TProgressBar Kok ProgressBarnya gak mau jalan ya.. scriptnya salahnya dimana:
var
hitung:integer;
Procedure TfrmMain.onTimer1Timer(Sender:Tobject);
begin
Application.ProcessMessages;
if hitung>100 then
hitung:=1
else
inc(hitung)
ProgressBar1.position:=Hitung;
ProgressBar1.StepIt;
endl
Procedure TfrmMain.onbtnConnectClick(Sender:TObject);
begin
Hitung:=1;
ProgressBar1.Max:=100;
AdoConnection.Connected:=true;
Application.ProcessMessages;
Timer1.Enabled:=true;
end;
Mohon Bantuan:
Terimakasih

more 17 years ago
belajaraja
Salam
Coba seperti ini
procedure Tfrmadddataexcel.btnaddClick(Sender: TObject);
var
i : Integer;
begin
gauge.MinValue := 0;
gauge.MaxValue:= ........
begin
i := 0;
(kode yang akan di jalankan)
inc(i);
gauge.Progress:= i;
end;
gauge.Progress := 0;
end;

more 17 years ago
zieborg
@myzendcafe:
Kodemu kok aneh seh! Kalo kamu pengen melihat progress koneksi-nya ADO pake progressbar ya ga bisa!

more 17 years ago
myzendcafe
Om belajarraja:
Aku pernah coba script yang seperti itu untuk backup data dah jalan bagus(Backup data dan restore data), tapi kalau untuk mengaktifkan koneksi apa gak salah itu... karena adoConnection.Connected:=true kan juma dijalankan sekali saja...

more 17 years ago
belajaraja
terus, guna progress bar nya buat apanya ?
kalo cuman buat menandakan masih konek apa ngga, kenapa harus pake progress bar ??
oh ya, aku belum om*, aku masih anak sd.... :lol:

more 17 years ago
DelphiExpert
pernah instal windows XP atau CodeGear Delphi 2007?
progress yang tidak dapat diprediksi selesainya karena suatu hal, dapat diganti menggunakan 'infinity progress' bar,
alias sebuah animasi yg 'bisa' menyerupai progress bar, animasi ini akan selalu visible & berjalan selama progres itu belum selesai.
sama seperti kasus anda, menunggu state ADOConnection start sampai estabilished tidak dimungkinkan karena tidak ada event yg di triger dari TADOConnection. Tahunya koneksi bisa terjalin atau tidak. itu saja...

more 17 years ago
myzendcafe
DelphiExpert:
Nah mau aku seperti itu..., jadi selama proses koneksi berjalan, bisa tidak diberi animasi seperti saat instal windows XP atau CodeGear Delphi 2007.
Kalau ada kodenya posting sini dong..
Thanks

more 17 years ago
mas_kofa
khan dah dijawab ama @DE
sama seperti kasus anda, menunggu state ADOConnection start sampai estabilished tidak dimungkinkan karena tidak ada event yg di triger dari TADOConnection. Tahunya koneksi bisa terjalin atau tidak. itu saja...
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- conect 2 pc melalui Akses Point
by umarbakri in Hal umum tentang Pascal Indonesia more 19 years ago - filter network
by delphi_tikuzz in Network, Files, I/O & System more 17 years ago - Memperkecil ukuran file exe
by mynick in Tutorial & Community Project more 15 years ago - ngambil image otomatis dari camera digital
by dinox in Multimedia & Graphic Enhancement more 17 years ago - save file path ???(please urgent)
by bastian in Tip n Trik Pemrograman more 18 years ago - nanya syntaks open file
by maelov in Network, Files, I/O & System more 18 years ago - Lanjut Rumah Sakit
by khairulfahmi in FireBird more 18 years ago - Cara generate isi table ke script
by Random in MsSQL more 17 years ago - Tanya Tentang Code Realtime???
by cyber2000 in Tip n Trik Pemrograman more 15 years ago - Row cannot be located for updating
by AndyK in Tip n Trik Pemrograman more 17 years ago