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

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/