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, "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
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > >
> > > >
> > >
> > >
> >
>
__._,_.___
No comments:
Post a Comment