Arsip: cara nyimpan data

 
user image
more 18 years ago

putukaca

saya punya table Tmp dan Jual Tmp isinya hasil scanning barcode sbg contoh hasilnya barcode kode s1 s2 s3 s4 s5 s6 ttl hrg jml 10001 AD001 1 0 0 0 0 0 1 20000 20000 10001 AD001 0 0 1 0 0 0 1 20000 20000 10002 AC001 0 1 0 0 0 0 1 30000 30000 10002 AC001 0 0 0 1 0 0 1 30000 30000 isi tbTmp saya tampilkan di DBgrid dengan menggunakan query(qTmp) dengan sql select barcode,kode,sum(tmp.s1) as s1,sum(tmp.s2) as s2,sum(tmp.s3) as s3, sum(tmp.s4) as s4,sum(tmp.s5) as s5,sum(tmp.s6) as s6, sum(tmp.ttl) as ttl, sum(tmp.jml)as jml, hrg from tmp group by barcode dan hasil sbb (di DBgrid): barcode kode s1 s2 s3 s4 s5 s6 ttl hrg jml 10001 AD001 1 0 1 0 0 0 2 20000 40000 10002 AC001 0 1 0 1 0 0 2 30000 60000 nah saya ingin melakukan penyimpanan data ke table jual dengan isi sama seperti yang di dbgrid jadi data yang tersimpan sudah terkelompok. ada yang bisa bantu caanya gimana? saya pake D7, mysql dan Zeos. thank's b4
user image
more 18 years ago

DelphiExpert

Kalo ngga' salah tangkep nih, setelah select yg pertama, lakukan while not eof dan lakukan insert ke table jual
user image
more 18 years ago

putukaca

mohon diperjelas soalnya baru kali ini nemu masalah ini udah 2 hari mikir nih. melakukan while not eof pada table yang mana? kalo bisa kasikan contohnya. saya melakukan proses penyimpanan data ke table jual pada event onClick dr tombol simpan yg ada di form. mohon pencerahannya
user image
more 18 years ago

masdi2t

klu dah keformat tampilan seperti itu tinggal tiup plus simsalabim dah kelar mas. bisa dicoba eksekusi SQL dibawah ini (dijamin tidak ada programming, while eof sama sekali) insert into jual (barcode, kode, s1, s2, s3, s4, s5, s6, ttl, jml, hrg) select barcode, kode, sum(tmp.s1) as s1, sum(tmp.s2) as s2, sum(tmp.s3) as s3, sum(tmp.s4) as s4, sum(tmp.s5) as s5, sum(tmp.s6) as s6, sum(tmp.ttl) as ttl, sum(tmp.jml) as jml, hrg from tmp group by barcode
user image
more 18 years ago

putukaca

ada masalah lagi di table jual saya tambahkan field nonota shop dan ket jadi di form saya tambah edNoNota, edShop, edKet nah gimana cara nambahin isi dr semua edit tsb ke table jual. dimana tabel jual saya tambah fieldnya shg menjadi: nonota shop barcode kode s1 s2 s3 s4 s5 s6 ttl hrg jml ket nonota merupakan primary key. saat saya pake kode di atas ada error duplicate entry '' for key 1 (karena merupakan primary key). sekarang saya ingin saat data disimpan maka di table jual akan terlihat sbb: nonota shop barcode kode s1 s2 s3 s4 s5 s6 ttl hrg jml ket J00001 SS 10001 AD001 1 0 1 0 0 0 2 20000 40000 penjualan cash J00001 ss 10002 AC001 0 1 0 1 0 0 2 30000 60000 penjualan cash dst... mohon batuannya. thank's b4
user image
more 18 years ago

arieq

@putukaca: nonota shop barcode kode s1 s2 s3 s4 s5 s6 ttl hrg jml ket J00001 SS 10001 AD001 1 0 1 0 0 0 2 20000 40000 penjualan cash J00001 ss 10002 AC001 0 1 0 1 0 0 2 30000 60000 penjualan cash dst... thank's b4
dari contoh di atas jelas nonota tidak bisa dibuat sebagai primary key karena datanya bisa sama yaitu J00001. Pemecahannya : - nonota bukan sebagai primary key - nonota tetap primary key tapi harus dibuat ke tabel baru yang terpisah, tabel baru tersebut kemudian di relationship ke tabel jual
user image
more 18 years ago

putukaca

o gitu ya pantes setelah saya coba hilangkan primary keynya baru mau masuk. nah kalo mau memasukkan isi dari semua Tedit (edNonota,edShop,edKet) yg ada diform tsb ke tabel jual gimana caranya apa pake parameter. sehingga hasilnya mau seperti yg saya tulis sebelumnya. ato gimana? thank's yudi
user image
more 18 years ago

arieq

Untuk memasukkan isi dari TEdit ke tabel, bisa dengan 2 cara : 1. Di tulis langsung dalam command SQLnya, contoh : note : Karena ketiganya berupa string maka harus diperhatikan, untuk tipe data string dalam database yang digunakan apakah menggunakan petik tunggal(') atau petik ganda (") Pada umumnya menggunakan petik tunggal, sehingga harus di tulis menjadi: QuotedStr (string)

SQL.TEXT := 'INSERT into TBJUAL VALUES ('+
                   QuotedStr (edNonota.text) + ', ' +
                   QuotedStr (edShop.text) + ', ' +
                   QuotedStr (edKet.text) + ')';
2. Ditulis dalam bentuk paramater (dalam hal ini tidak perlu QuotedStr) << RECOMENDED

SQL.TEXT := 'INSERT INTO TBJUAL VALUES (:NoNota, :Shop, :Ket)';
SQL.Parameters.ParamValues['NoNota'] := edNonota.text;
SQL.Parameters.ParamValues['Shop'] := edShop.text;
SQL.Parameters.ParamValues['Ket'] := edKet.text;
SQL.ExecSQL;
user image
more 18 years ago

putukaca

thank's mas arieq. nah gimana cara gabungin kedua sql berikut ini (dari arieq) SQL.TEXT := 'INSERT INTO TBJUAL VALUES (:NoNota, :Shop, :Ket)'; SQL.Parameters.ParamValues['NoNota'] := edNonota.text; SQL.Parameters.ParamValues['Shop'] := edShop.text; SQL.Parameters.ParamValues['Ket'] := edKet.text; SQL.ExecSQL; dengan sql ini: insert into jual (barcode, kode, s1, s2, s3, s4, s5, s6, ttl, jml, hrg) select barcode, kode, sum(tmp.s1) as s1, sum(tmp.s2) as s2, sum(tmp.s3) as s3, sum(tmp.s4) as s4, sum(tmp.s5) as s5, sum(tmp.s6) as s6, sum(tmp.ttl) as ttl, sum(tmp.jml) as jml, hrg from tmp group by barcode sehingga hasilnya mau spt posting saya sebelumnya: nonota shop barcode kode s1 s2 s3 s4 s5 s6 ttl hrg jml ket J00001 SS 10001 AD001 1 0 1 0 0 0 2 20000 40000 penjualan cash J00001 ss 10002 AC001 0 1 0 1 0 0 2 30000 60000 penjualan cash dst... thank's yudi
more ...
  • Pages:
  • 1
Share to

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

Random Topic

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