Arsip: AQ3: Cannot Perform this operation an a closed dataset

more 8 years ago
ade_jm
bantu donk . . ku masih newbie di delphi, and ku lagi bikin program pi ada pesan error AQ3: Cannot Perform this operation an a closed dataset AQ3 itu adoQuery mohon para master, carana gimana ya wat benerin errornya?
procedure TFrmHargaBarang.E2Enter(Sender: TObject);
begin
if AQ3.Locate('Kd_Brg',E1.Text,) then
begin
E2.Text:= AQ3['Hrg_Sat'];
if (AQ2.Locate('Kd_Brg',E1.Text,)) AND (B3.Caption = '&Simpan') then
begin
E4.Text:= AQ2['Hrg_Brg'];
MessageDlg('Harga Barang Ini Telah Tersimpan!',mtInformation,[MBOK],0);
TKosong(Sender);
end
else
if (AQ2.Locate('Kd_Brg',E1.Text,)) AND (B3.Caption = 'Up &Date') then
begin
E4.Text:= AQ2['Hrg_Brg'];
end
else
if (AQ2.Locate('Kd_Brg',E1.Text,)) AND (B3.Caption = '&SimUp') then
E4.Text:= AQ2['Hrg_Brg'];
end;
if Length(Trim(E2.Text)) <> 0 then
begin
hrgbeli:= StrToFloat(E2.Text);
hrgjual:= hrgbeli * 10 / 100;
E3.Text:= FloatToStr(hrgjual);
E4.Text:= FloatToStr(hrgbeli + hrgjual);
end;
end;
tanda merahnya ada di if AQ3.Locate('Kd_Brg',E1.Text,) then
mohon bantuannya
and thanks before . .

more 8 years ago
hendrang67
@ade_jm: bantu donk . . ku masih newbie di delphi, and ku lagi bikin program pi ada pesan error AQ3: Cannot Perform this operation an a closed dataset AQ3 itu adoQuery mohon para master, carana gimana ya wat benerin errornya? procedure TFrmHargaBarang.E2Enter(Sender: TObject); begin if AQ3.Locate('Kd_Brg',E1.Text,) then begin E2.Text:= AQ3['Hrg_Sat']; if (AQ2.Locate('Kd_Brg',E1.Text,)) AND (B3.Caption = '&Simpan') then begin E4.Text:= AQ2['Hrg_Brg']; MessageDlg('Harga Barang Ini Telah Tersimpan!',mtInformation,[MBOK],0); TKosong(Sender); end else if (AQ2.Locate('Kd_Brg',E1.Text,)) AND (B3.Caption = 'Up &Date') then begin E4.Text:= AQ2['Hrg_Brg']; end else if (AQ2.Locate('Kd_Brg',E1.Text,)) AND (B3.Caption = '&SimUp') then E4.Text:= AQ2['Hrg_Brg']; end; if Length(Trim(E2.Text)) <> 0 then begin hrgbeli:= StrToFloat(E2.Text); hrgjual:= hrgbeli 10 / 100; E3.Text:= FloatToStr(hrgjual); E4.Text:= FloatToStr(hrgbeli + hrgjual); end; end; tanda merahnya ada di if AQ3.Locate('Kd_Brg',E1.Text,) then mohon bantuannya and thanks before . .error AQ3: Cannot Perform this operation an a closed dataset AQ3, terjadi karena AQ3 belum di Open. procedure TFrmHargaBarang.E2Enter(Sender: TObject); begin AQ3.Open; //<--- Open query AQ3 if AQ3.Locate('Kd_Brg',E1.Text,) then begin E2.Text:= AQ3['Hrg_Sat']; if (AQ2.Locate('Kd_Brg',E1.Text,)) AND (B3.Caption = '&Simpan') then begin E4.Text:= AQ2['Hrg_Brg']; MessageDlg('Harga Barang Ini Telah Tersimpan!',mtInformation,[MBOK],0); TKosong(Sender); end else if (AQ2.Locate('Kd_Brg',E1.Text,)) AND (B3.Caption = 'Up &Date') then begin E4.Text:= AQ2['Hrg_Brg']; end else if (AQ2.Locate('Kd_Brg',E1.Text,)) AND (B3.Caption = '&SimUp') then E4.Text:= AQ2['Hrg_Brg']; end; if Length(Trim(E2.Text)) <> 0 then begin hrgbeli:= StrToFloat(E2.Text); hrgjual:= hrgbeli 10 / 100; E3.Text:= FloatToStr(hrgjual); E4.Text:= FloatToStr(hrgbeli + hrgjual); end; end;

more 8 years ago
ade_jm
[Warning] FHBarang.pas(7): Unit 'FileCtrl' is specific to a platform
kalo ini error napa ya kk?
and yang tadi malah keluar pesan error lagi tapi beda
is not valid integer value . .

more 8 years ago
hendrang67
@ade_jm: [Warning] FHBarang.pas(7): Unit 'FileCtrl' is specific to a platform kalo ini error napa ya kk? and yang tadi malah keluar pesan error lagi tapi beda is not valid integer value . .untuk [warning] FHBarang.pas(7): Unit 'FileCtrl' is specific to a platform Apa Anda pakai OS bukan Windows ? kalau program nya proses dgn benar warning ini bisa diabaikan. is not valid integer value . . Apa muncul di AQ3.OPEN ? Kalau muncul di open coba cek di syntax SQL apa ada perintah StrToInt, kalau ada berarti ada nilai String yg tdk bisa di convert ke Integer. Misal nya nilai yg ada desimal nya. Contoh Kalau string StrToInt('20.34') akan muncul error spt itu.

more 8 years ago
tomxpatra
Cannot Perform this operation an a closed dataset biasanya tabelnya tidak aktif.
kalau table berarti belum menjalankan perintah OPEN.
kalau FileCtrl' is specific to a platform
kan cuman warning, bukan berarti error. mungkin yah uses FileCtrl hanya bisa jalan dispesifik sistem operasi
misalnya hanya bisa jalan di windows saja.
mudah2an membantu
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- nanya delphi lite, turbo delphi, & turbo explorer
by delphiku in Hal umum tentang Pascal Indonesia more 13 years ago - Select ... like ....
by asepolin in Hal umum tentang Pascal Indonesia more 11 years ago - Pilih yg mana ? (Delphi 7 / Delphi 2007 / Delphi 2010)
by itoru in Lain-lain more 9 years ago - Kirim Email
by ahmad in Hal umum tentang Pascal Indonesia more 13 years ago - Tipe data Auto increment di Postgres
by onsir in Lain-lain more 12 years ago - Ask: Get List Access / mySQL Table From Database
by cyber_hecker in MySQL more 15 years ago - kode Plus 1 next ....
by flamade in MySQL more 13 years ago - Buat Downloader
by mas_kofa in Network, Files, I/O & System more 13 years ago - Buat Protocol Handler seperti Yahoo Messenger
by ardie_b in Bedah Kasus more 13 years ago - kriptografi
by tara in Tip n Trik Pemrograman more 11 years ago