Tak henti-hentinya saya mau minta tolong pada teman-teman sekalian buat sharing solusi dari masalah yang saya hadapi sekarang ini. :oops: saya punya tabel database misalnya tbl_P. nah, pada tabel P ini terdapat field kode_batch dan nama_produk. Dan untuk data pada kode batch ini saya masukkan ke dalam list combo box serta untuk nama_produk saya tampilkan pada label caption. Permasalahannya adalah saya ingin ketika saya memilih salah satu items pada combo box maka label caption juga ikut berubah sesuai kategori yang dipilih pada combo box tadi. Berikut tampilannya: Saya sudah coba buat Codingnya seperti ini:

procedure TFormMain.sCbprodukSelect(Sender: TObject); var produk: boolean; begin with DataModuleMain.QProduk do begin close; sql.Clear; produk := locate('kode_batch', sCbproduk.Items, ); open; if produk then begin sLbproduk.Caption := VarToStr(FieldValues['nm_produk']); sLbproduk.Visible := true; end; end; end;

tetapi ketika saya klik salah satu item pada combo box nya keluar message error Cannot perform this operation in closed dataset. Kira2 apa yah yang salah dari coding itu? Mohon bantuannya semua. Terima kasih. :( [/quote]

@natan_stmp: Tak henti-hentinya saya mau minta tolong pada teman-teman sekalian buat sharing solusi dari masalah yang saya hadapi sekarang ini. :oops: saya punya tabel database misalnya tbl_P. nah, pada tabel P ini terdapat field kode_batch dan nama_produk. Dan untuk data pada kode batch ini saya masukkan ke dalam list combo box serta untuk nama_produk saya tampilkan pada label caption. Permasalahannya adalah saya ingin ketika saya memilih salah satu items pada combo box maka label caption juga ikut berubah sesuai kategori yang dipilih pada combo box tadi. Berikut tampilannya: Saya sudah coba buat Codingnya seperti ini:

procedure TFormMain.sCbprodukSelect(Sender: TObject); var produk: boolean; begin with DataModuleMain.QProduk do begin close; sql.Clear; produk := locate('kode_batch', sCbproduk.Items, ); open; if produk then begin sLbproduk.Caption := VarToStr(FieldValues['nm_produk']); sLbproduk.Visible := true; end; end; end;

tetapi ketika saya klik salah satu item pada combo box nya keluar message error Cannot perform this operation in closed dataset. Kira2 apa yah yang salah dari coding itu? Mohon bantuannya semua. Terima kasih. :(

[/quote] itu krna saat km melakukan "open" setelah ini gan. produk := locate('kode_batch', sCbproduk.Items, ); gan gnti z jadi gini procedure TFormMain.sCbprodukSelect(Sender: TObject); var produk: boolean; begin with DataModuleMain.QProduk do begin sql.Clear; produk := locate('kode_batch', sCbproduk.Items, ); close; open; if produk then begin sLbproduk.Caption := VarToStr(FieldValues['nm_produk']); sLbproduk.Visible := true; end; end; end;

Tetep masih sama bos, tak bisa jalan kalau kode nya gt. Masih tetep errornya sama 'cannot do operation on closed dataset.

@natan_stmp: Tetep masih sama bos, tak bisa jalan kalau kode nya gt. Masih tetep errornya sama 'cannot do operation on closed dataset.

di bagian atas coba di open dulu gan databasenya coz untuk mengeksekusi perintah ini produk := locate('kode_batch', sCbproduk.Items, ); baru ntar dibuka lgi. procedure TFormMain.sCbprodukSelect(Sender: TObject); var produk: boolean; begin DataModuleMain.QProduk.open; {disini mas baru lnjutin ke bawah} with DataModuleMain.QProduk do begin sql.Clear; produk := locate('kode_batch', sCbproduk.Items, ); close; open; if produk then begin sLbproduk.Caption := VarToStr(FieldValues['nm_produk']); sLbproduk.Visible := true; end; end; end;

Hasilnya masih sama saja ik. Duh, gimana yah.. :roll:

@natan_stmp: Hasilnya masih sama saja ik. Duh, gimana yah.. :roll:

coba tmbahkn 1 query lgi gan. trus atur" deh koneksi dan sgalanya. trus codingnya gnti jdi di event combobox change. procedure TFormMain.sCbprodukChange(Sender: TObject); begin with query1 do begin sql.clear; sql.text:= 'select * from nm_tabel'; close; open; end; if query1.locate('kode_batch',sCbproduk.Text,) then sLbproduk.Caption:= query1.fieldbyname('nm_produk').asstring; end;