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

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, "rahmat" <rahmat02@...> wrote:
>
>
> maunya sih dalam satu file csv
> karena akan mempermudah user dalam proses export/impornya
> tq
> rahmat
> --- In belajar-access@yahoogroups.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>, 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 PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___