Selamat siang semua,
Saya mau tanya tentang query di vb 6 dengan database access, saya punya data
sbb :
Tabel1
id qty ket cek
1 2 data1 true
2 1 data2 true
3 3 data3 true
Dari data tersebut diatas akan diinsert ke tabel2 masing-masing sebanyak field
qty
pada tabel1 dengan hasil yg diharapakan sbb :
Tabel2
id ket
1 data1
1 data1
2 data2
3 data3
3 data3
3 data3
Saya sudah mencoba menulis koding sbb :
dim rs1 as ADODB.Recordset
dim i as integer
set rs1 = db.executed("select id, qty from tabel1 where cek='true'")
For i = 1 to rs1.Fields("qty")
db.executed("insert into tabel2 (id, ket) " & _
"select '" & rs1!id & "', '" & rs1!ket & "'")
rs1.Movenext
Next i
Tetapi hasilnya tidak sesuai yg diharapkan. Mohon pencerahan dari rekan-rekan
semua.
Atas perhatiannya saya ucapkan terima kasih.
Selalu bersama teman-teman di Yahoo! Messenger. Tambahkan mereka dari
email atau jaringan sosial Anda sekarang! http://id.messenger.yahoo.com/invite/
