mas coba buatnya pake ado aja ya, spy lebih powerfull aplikasinya utk
kedepanyaya.
caranya spt ini :
1. dari menu project pilih reference
2. dari listbox ini scroll kebawah, cari Microsoft ActiveX Data Object 2.5
Library
beri tanda centang (kalo bisa pilih yg versinya lbh tinggi misal 2.6 Library)
3. setelah itu buat object koneksi dg cara spt ini:
dim koneksiDB as New Connection
dim Tabel1 as New Recordset
dim Tabel2 as New Recordset
4. pada form yg bersangkutan ketik kode di Event Load contohnya spt ini :
Private Sub Form_Load()
koneksiDB.Provider="Microsoft.Jet.OleDB.4.0"
koneksiDB.CursorLocation=adUseClient
koneksiDB.Open App.Path & "\namaDatabasenya.mdb"
SQL="SELECT * FROM TabelPertama WHERE date = #" & DateTimePicker.Value &
"#"
Tabel1.open SQL,koneksiDB,adOpenDynamic,adLockOptimistic
SQL2="SELECT * FROM TabelKedua"
Tabel1.open SQL2,koneksiDB,adOpenDynamic,adLockOptimistic
End Sub
5. untuk memindahkan datanya spt ini :
Private Sub Command1_Click()
'--ini tambahannya
If MsgBox("Yakin mau ditransfer?", vbQuestion + vbYesNo, "Simpan Data")
= vbYes Then
Table2.AddNew
Table2.Fields("DATE") = Table1.Fields("DATE")
Table2.Fields("STYLE") = Table1.Fields("STYLE")
Table2.Fields("RECEIVING") = Table1.Fields("RECEIVING")
dst
Table2.Update
Table2.Requery
End If
End Sub
sorry ya mas kalo aku anjurin ganti, krn aku ga pernah pake Data1, jadi
takutnya salah sintak
note : jgn lupa tulis subjeknya mas spy ga bingungin orang. :-)
salam
lis
____________________________________________________________________________________
We won't tell. Get more on shows you hate to love
(and love to hate): Yahoo! TV's Guilty Pleasures list.
http://tv.yahoo.com/collections/265
