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

> > "t1h","001","20090801","150000"
> > "t1d","001","kode001","5","100","500"

sederhana saja harusnya,
select case arr(0)
case "t1h" : call procedure_untuk_insert_tabel1h(arr(1),arr(2),arr(3))

case "t1d" : call procedure_untuk_insert_tabel1detail(arr(1),arr(2),arr(3),arr(4),arr(5))

case ...

end select

ayo di coba mas rahmat, pasti sudah nemulah idenya.....

aksan kurdin

--- In belajar-access@yahoogroups.com, "rahmat" <rahmat02@...> wrote:
>
> 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/