dear idiot....
trimakasih banyak ... masalah aq sudah teratasi dan
ilmu yg mas kasi akan menjadi inspirasi aq dlm
pengembangan programq....
salam arif
--- IdiOot <[EMAIL PROTECTED]> wrote:
> 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]
> >
>
>
>
____________________________________________________________________________________
Boardwalk for $500? In 2007? Ha! Play Monopoly Here and Now (it's updated for
today's economy) at Yahoo! Games.
http://get.games.yahoo.com/proddesc?gamekey=monopolyherenow
