[belajar-access] Re: export import data table transaksi

Berhasil
setelah saya coba dengan sedikit perubahan proses export/importnya berhasil sesuai dengan yg saya harapkan, perubahan terutama pada perintah:
-export yaitu saya tambahkan rs.movenext sebelum loop dan menghilangkan perintah Print #1
-proses Import menjadi:
open "c:\import\contoh.txt" for input as #1
line input #1, strLine 'dianggap baris pertama selalu berisi "{Table1_h}"
line input #1, strLine
do while strLine<> "{Table1_det}"
arrLine = split(strLine, ",")
docmd.runsql ("INSERT INTO Table1_h (notrans, tanggal, total) VALUES('"& arrLine(0)& "', #"& arrLine(1)& "#, "& arrLine(2)& ")")
line input #1, strLine
loop

karena kalau tidak saya rubah maka text {Table1_det} akan dianggap sebagai data

MAS/PAK AKSAN TERIMAKASIH ATAS BANTUANNYA. SEMOGA TIDAK BOSAN MEMBANTU ORANG-ORANG YANG BARU BELAJAR SEPERTI SAYA
RAHMAT

--- In belajar-access@yahoogroups.com, "rahmat" <rahmat02@...> wrote:
>
>
> mas/pak aksan terimakasih atas bantuannya
> ini sanagat berguna bagi saya..akan saya coba dulu
> rahmat
> --- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@> wrote:
> >
> > kita mulai dengan cara klasik
> >
> > untuk menulis ke suatu file teks, bisa dengan cara berikut:
> >
> > open "c:\export\contoh.txt" for output as #1
> > print #1, "ini akan ditulis di file contoh.txt"
> > print #1, "ini juga di baris kedua"
> > close #1
> >
> >
> >
> > Dari contoh di atas anda bisa kembangkan untuk menulis dari suatu recordset:
> >
> > set rs = currentdb.openrecordset("select notrans, tanggal, total from table1_h where tanggal = #"& tglTransaksi& #")
> > 'tglTransaksi adalah parameter
> > print #1, "{Table1_H}"
> > rs.movefirst
> > do while not rs.eof
> > print #1, rs(0)& ","& rs(1)& ","& rs(2)
> > loop
> > print #1
> >
> > set rs = currentdb.openrecordset("select d.notrans, d.kode, d.qty, d.harga, d.total from table1_det as d inner join table1_h as h on d.notrans=h.notrans where h.tanggal = #"& tglTransaksi& #")
> > 'tglTransaksi adalah parameter
> > print #1, "{Table1_det}"
> > rs.movefirst
> > do while not rs.eof
> > print #1, rs(0)& ","& rs(1)& ","& rs(2)& ","& rs(3)& ","& rs(4)
> > loop
> > print #1
> >
> > ....
> >
> >
> > Nah setelah file text terbentuk, maka sekarang bisa dikirim ke cabang
> > yang dimaksud. Nanti proses importnya menggunakan operasi baca file,
> > dengan contoh seperti :
> >
> >
> > dim strLine as string, arrLine
> > open "c:\import\contoh.txt" for input as #1
> > line input #1, strLine 'dianggap baris pertama selalu berisi "{Table1_h}"
> > do while strLine<> "{Table1_det}"
> > line input #1, strLine
> > arrLine = split(strLine, ",")
> > docmd.runsql ("INSERT INTO Table1_h (notrans, tanggal, total) VALUES('"& arrLine(0)& "', #"& arrLine(1)& "#, "& arrLine(2)& ")")
> > loop
> >
> > do while strLine<> "{Table2_h}"
> > line input #1, strLine
> > arrLine = split(strLine, ",")
> > docmd.runsql ("INSERT INTO Table1_det (notrans, kode, qty, harga, total) VALUES('"& arrLine(0)& "', '"& arrLine(1)& "', "& arrLine(2)& ","& arrLine(3)& ","& arrLine(4)& ")")
> > loop
> >
> > do while strLine<> "{Table2_det}"
> > line input #1, strLine
> > arrLine = split(strLine, ",")
> > docmd.runsql ("INSERT INTO Table2_h (notrans, tanggal, total) VALUES('"& arrLine(0)& "', #"& arrLine(1)& "#, "& arrLine(2)& ")")
> > loop
> >
> > do while not eof(1) 'ambil sisanya sampai end of file
> > line input #1, strLine
> > arrLine = split(strLine, ",")
> > docmd.runsql ("INSERT INTO Table2_det (notrans, kode, qty, harga, total) VALUES('"& arrLine(0)& "', '"& arrLine(1)& "', "& arrLine(2)& ","& arrLine(3)& ","& arrLine(4)& ")")
> > loop
> >
> > close #1
> >
> >
> >
> > catatan: kode belum saya coba, tetapi bisa di trace sendiri. yang
> > penting operasi klasik tulis baca txt filenya seperti demikian.
> > silakan di improve ..., hasilnya jangan lupa di share kembali ke milis .....
> >
> > aksan kurdin
> >
> >
> >
> > On 9/21/2010 2:20 PM, rahmat wrote:
> > >
> > > adakah yang bisa membantu atau memberikan refrensi???
> > > rahmat
> > >
> > > --- In belajar-access@yahoogroups.com
> > > <mailto:belajar-access%40yahoogroups.com>, "rahmat" <rahmat02@> wrote:
> > > >
> > > >
> > > > maunya sih dalam satu file csv
> > > > karena akan mempermudah user dalam proses export/impornya
> > > > tq
> > > > rahmat
> > > > --- In belajar-access@yahoogroups.com
> > > <mailto:belajar-access%40yahoogroups.com>, Aksan Kurdin
> > > <aksan.kurdin@> wrote:
> > > > >
> > > > > mau cara ribet atau cara gampang ?
> > > > > cara gampang, jangan di simpan dalam satu tabel csv ke empat tabel
> > > itu,
> > > > > tapi pecah jadi empat file csv
> > > > > cara ribet, dengan vba, buka file dengan operasi read, dan parsing
> > > baris
> > > > > per baris. (Duh ... kalau yang ini, nunggu waktu senggang-nya baru
> > > bisa
> > > > > ngebantuin.)
> > > > >
> > > > > aksan kurdin
> > > > >
> > > > >
> > > > > On 9/16/2010 1:48 PM, rahmat wrote:
> > > > > >
> > > > > > rekan Aksan
> > > > > > lokasi A dan B mempunyai nomer transaksi yg berbeda,
> > > > > > dan pada waktu proses import user akan memenetukan tangall
> > > transaksi
> > > > > > yang akan diimport sehingga data yg sudah diimport tidak akan
> > > diimport
> > > > > > lagi
> > > > > >
> > > > > > mohon bantuannya
> > > > > > terima kasih
> > > > > > rahmat
> > > > > > --- In belajar-access@yahoogroups.com
> > > <mailto:belajar-access%40yahoogroups.com>
> > > > > > <mailto:belajar-access%40yahoogroups.com>, Aksan Kurdin
> > > > > > <aksan.kurdin@> wrote:
> > > > > > >
> > > > > > > Selama ini yang menjadi problem klasik adalah sinkronisasi
> > > offline.
> > > > > > > mana data yang sudah di upload, mana data yang harus di tumpuk.
> > > > > > > Pertimbangkan menggunakan remote sistem untuk kasus seperti
> > > ini, atau
> > > > > > > manfaatkan tools yang ada di server 2008 seperti replika dsb-nya.
> > > > > > >
> > > > > > > Apakah A dan B melakukan transaksi yang sama ? Bisakah di
> > > setiap field
> > > > > > > header transaksi yang dilakukan di setiap tempat diberikan
> > > kode khusus
> > > > > > > yang mewakili tempat transaksi dilakukan ? semisal penomoran
> > > dokumen
> > > > > > > mungkin bisa sama, tetapi ada field cabang yang membedakan,
> > > sehingga
> > > > > > > proses upload yang dilakukan tidak akan override antara A dan B.
> > > > > > >
> > > > > > > aksan kurdin
> > > > > > >
> > > > > > > On 9/13/2010 8:17 AM, rahmat wrote:
> > > > > > > >
> > > > > > > > dear para master dan rekan semua
> > > > > > > > mohon bantuannya:
> > > > > > > > saya baru saja belajar membuat project dengan access 2007 (ADP)
> > > > > > dengan
> > > > > > > > database mssql sever 2008,
> > > > > > > > program yg saya buat dijalankan di dua tempat yang berbeda, saya
> > > > > > > > bermaksud untuk menggabungkan data ke dua tempat tersebut
> > > > > > > > dengan proses sebagai berikut:
> > > > > > > > 1. tempat A melakukan proses Export data transaksi:
> > > > > > > > 2. tempat B melakukan pross Import data transaksi dari tempat A
> > > > > > > > dan sebaliknya
> > > > > > > >
> > > > > > > > yang ingin saya tanyakan adalah:
> > > > > > > > 1. bagaimana cara me Export data dari table taransaksi ke
> > > dalam 1
> > > > > > file
> > > > > > > > CSV (ada 4 table)
> > > > > > > >
> > > > > > > > Table1_H (NoTrans,Tanggal,Total)
> > > > > > > > Table1_Det (Notrans,Kode,qty,Harga,Total)
> > > > > > > >
> > > > > > > > Table2_H (NoTrans,Tanggal,Total)
> > > > > > > > Table2_Det (Notrans,Kode, qty,Harga,Total)
> > > > > > > >
> > > > > > > > 2 bagimana cara Import file CSV hasil dari Proses Export (yg
> > > berisi 4
> > > > > > > > table taransaksi)
> > > > > > > >
> > > > > > > > sebagai gambaran mungkin seperti ini hasil yang dihasilkan
> > > proses
> > > > > > export
> > > > > > > >
> > > > > > > > {Table1_H}
> > > > > > > > "NoTrans","Tanggal","Total"
> > > > > > > > "A1","2010-1-30","1000"
> > > > > > > > {Table1_Det}
> > > > > > > > "Notrans", "Kode","qty","Harga","Total"
> > > > > > > > "A1","001","3","5000","15000"
> > > > > > > > "A1","002","1","1000","1000"
> > > > > > > >
> > > > > > > > {Table2_H}
> > > > > > > > "NoTrans","Tanggal","Total"
> > > > > > > > "A11","2010-1-30","1000"
> > > > > > > > {Table2_Det}
> > > > > > > > "Notrans", "Kode","qty","Harga","Total"
> > > > > > > > "A11","005","1","5000","5000"
> > > > > > > > "A11","004","1","1000","1000"
> > > > > > > >
> > > > > > > > terimakasih atas bantuannya
> > > > > > > >
> > > > > > > > rahmat
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > >
> > >
> > >
> >
>

------------------------------------

SPAM IS PROHIBITEDYahoo! Groups Links

<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/belajar-access/

<*> Your email settings:
Individual Email | Traditional

<*> To change settings online go to:
http://groups.yahoo.com/group/belajar-access/join
(Yahoo! ID required)

<*> To change settings via email:
belajar-access-digest@yahoogroups.com
belajar-access-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
belajar-access-unsubscribe@yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/