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

kalau pak/mas aksan atau rekan yg lain ada waktu mungkin bisa di bagi ilmunya secara lengkap??
petunjuk sebelunya juga sudah bisa saya gunakan tapi kalo ada yg lebih OK bisa juga dicoba....

terimakasih
rahmat

--- In belajar-access@yahoogroups.com, Aksan Kurdin <aksan.kurdin@...> wrote:
>
> Selain daripada bentuk file teks yang anda kerjakan sekarang, masih
> ada model lain yang pernah saya lihat, terutama dari perusahaan
> ekspedisi (mas taufik nih jagoannya).
> model yang diterapkan adalah setiap baris teks mewakili satu record dari
> tabel tertentu. Tabel yang dirujuk ditentukan dari kode yang diletakkan
> di setiap awal baris.
> contoh pengkodean untu table1_h : t1h dan table1_det : t1d, maka bentuk
> file teksnya adalah:
> "t1h","001","20090801","150000"
> "t1d","001","kode001","5","100","500"
> "t1d","001","kode002","2","100","200"
> "t1d","001","kode003","4","100","400"
>
> dengan cara ini, mestinya kodingnya lebih sederhana.
>
>
> aksan kurdin

>
> select d.notrans, d.kode, d.qty, d.harga, d.total
>
> On 9/27/2010 8:46 PM, rahmat wrote:
> >
> > 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
> > <mailto:belajar-access%40yahoogroups.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
> > <mailto:belajar-access%40yahoogroups.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>
> > > > > <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>
> > > > > <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>
> > > > > > > > <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/