halo all,
ya jelas ga bisa mas, listing ini khan bukan untuk data banyak(dalam satu
tabel) setahu saya ini untuk data per record aja yang bisa disimpan.
kalo pake listview gini deh.. (sorry ... soalnya saya terbiasa dengan
listview sih !!)
private sub cmdasal_click( )
set rskalut = datakriteria.execute("select
nomor,nama,alamat,telepon,ttl,agama,perguruan_tinggi,fakultas,jurusan,program_studi
from ANGGOTA where asal = '" & cboasal & "'")
end sub
untuk nyimpan di tabel anggota_temp
private sub cmdsimpan()
dim dtasal as new adodb.recordset
for s = 1 to listview.listitem.count
if dtasal.state = 1 then set dtasal = nothing
dtasal.open "select * from Anggota where asal = '" & cboAsal &
"',datakriteria,adOpenDynamic, adLockPessimistic
With dtasal
.addnew
.field(0) = lg.listitems(s).text
.field(1) = lg.listitems(s).subitems(1)
.field(2) = lg.listitems(s).subitems(2)
.
.
.... dst (sebanyak filed yang ada)
.Update
.Requery
.Close
End With
Set dtasal = Nothing
next s
end sub
semoga jelas... tapi kalo belum jelas bisa hubungi saya di alamat ini...
salam,
lukman.
arif ipul <[EMAIL PROTECTED]> wrote:
dear rekan2 dan master vb....
berikut ini adalah kode pencarian saya pada tabel
anggota :
Private Sub cmdAsal_Click( )
DataKriteria. RecordSource = "SELECT Nomor, Nama,
Alamat,Telepon, Ttl, Agama, Perguruan_Tinggi,
Fakultas, Jurusan, Program_Study FROM ANGGOTA WHERE
Asal= '" & CboAsal & "'"
end sub
pertanyaan saya adalah :
1. bagaimana caranya mengcopy semua record hasil
pencarian ke tabel aggota_temp (strukturnya sama
dengan tabel anggota)
Catatan: tabel anggota_temp saya gunakan untuk
menampug data sementara tabel anggota. jadi hasil
copyan akan menimpa data yg lama pada tabel
anggota_temp.
Mohon Bantuannya
--- David JM <[EMAIL PROTECTED]> wrote:
Halo Arif ipul,
Insert into TblTemp SELECT Nomor, Nama,
Alamat,Telepon, Ttl, Agama,
Perguruan_Tinggi, Fakultas, Jurusan, Program_Study
FROM ANGGOTA WHERE
Asal= '" & CboAsal & "'"> Best Regards,
David J M
Advess
ISV and IT Consultant
====================
dear mas David & rekan vb...
aq sudah coba menulis listing yg mas kasi setelah
perintah pencariah, seperti ini :
Private Sub cmdAsal_Click( )
DataKriteria. RecordSource = "SELECT Nomor, Nama,
Alamat,Telepon, Ttl, Agama, Perguruan_Tinggi,
Fakultas, Jurusan, Program_Study FROM ANGGOTA WHERE
Asal= '" & CboAsal & "'"
DataKriteria. RecordSource ="Insert into anggota_temp
SELECT Nomor, Nama, Alamat,Telepon, Ttl, Agama,
Perguruan_Tinggi, Fakultas, Jurusan, Program_Study
FROM ANGGOTA WHERE
Asal= '" & CboAsal & "'"
end sub
ttp setelah aq periksa tabel anggota_temp ternyata
masih kosong. jadi belum berhasil.
mohon pencerahannya kebali... trims...
__________________________________________________________
Need a vacation? Get great deals
to amazing places on Yahoo! Travel.
http://travel.yahoo.com/
---------------------------------
Bergabunglah dengan orang-orang yang berwawasan, di bidang Anda di Yahoo!
Answers
[Non-text portions of this message have been removed]
