Maksud dari mas David itu benar tapi implementasinya yang salah, aq
masih bingung DataKriteria itu object apa Datagrid, Recordset atau
listview.
OK gini aja mas saya kasih sedikit code mungkin bisa membantu
ini codenya
Private rs As New ADODB.Recordset
Private Sub Form_Load()
Dim lokasi_db As String
'ganti dengan lokasi database anda
lokasi_db = "D:\Documents\db2.mdb"
'sekarang kita koneksikan database
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& lokasi_db & ";Persist Security Info=False"
cn.Open
'trus Hapus semua data di tabel
cn.BeginTrans
Set rs = cn.Execute("DELETE * FROM anggota_temp")
cn.CommitTrans
'Nah sekarang tabel anggota_temp sudah kosong
'selanjutnya kita masukkan data anggota_temp dari tabel anggota
'catatan: struktur fieldnya harus sama
cn.BeginTrans
Set rs = cn.Execute("INSERT INTO anggota_temp SELECT anggota.* FROM
anggota WHERE Asal= '" & CboAsal & "'")
cn.CommitTrans
End Sub
semoga bisa membantu
--- In [email protected], Achmad lukman <[EMAIL PROTECTED]> wrote:
>
> 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]
>
