Senin, 16 April 2012

[belajar-access] Re: transferdatabase text

 

masih belum terpecahkan...

--- In belajar-access@yahoogroups.com, "hadis0678" <hadis0678@...> wrote:
>
> dear mas sofyan..
> walah.. malah jadi berlanjut dan bersambung nih mas..
> formula dengan dao tersebut telah saya pratekkan dan berhasil untuk satu file. nah permasalahannya saya nanti ada 34 file yang harus di dieksport menjadi txt. untuk itu saya mencoba formula tersebut saya jadikan fungsi, sehingga nanti harapan saya di event clicknya tombolnya hanya menjalankan fungsi-fungsinya saja.
> formula dao yang saya rubah menjadi fungsi sehingga menjadi :
> Function cobahadi()
> '& Forms![F_pilih_area]![CBRT] &
> Dim db As DAO.Database
> Dim rs As DAO.Recordset
> If IsNull(Forms![form1]![Text0]) Then
> MsgBox "Isi dahulu alamat text file nya."
> Forms![form1]![Text0].SetFocus
> End If
> Set db = CurrentDb()
> Set rs = db.OpenRecordset("Table1", dbReadOnly)
> Open [Forms]![form1]![Text0] & "Table1.txt" For Output As #1
> Print #1, """ID"";""Field1"""
> Do While Not rs.EOF
> Print #1, rs![Id] & ";""" & rs![Field1] & """"
> rs.MoveNext
> Loop
> Close #1
> CloseMe:
> rs.Close
> Set rs = Nothing
> db.Close
> Set db = Nothing
> MsgBox "Proses sudah selesai."
>
> End Function
>
> selanjutnya saya bikin tombol dengan event untuk menjalankan fungsi tersebut
>
> Private Sub Command12_Click()
> DoCmd.OpenFunction cobahadi()
> End Sub
>
> permasalahan yang timbul adalah :
>
> proses berhasil, ada hasil berupa file txt
> tetapi kok muncul komentar
> "Run-time error "2495":
> The action or method requires a Table argument
>
> kira-kira yang salah saya dimana ya mas, tengkyu
>
> best regards
>
> must hdi s
>
> --- In belajar-access@yahoogroups.com, "hadis0678" <hadis0678@> wrote:
> >
> > dear mas sofyan..
> >
> > bravo.... well done..
> >
> > matur tengkyu setengkyu tengkyunya..
> >
> > best regards
> >
> > must hdi s
> >
> > --- In belajar-access@yahoogroups.com, Sofyan Efendi <sofyanefendi@> wrote:
> > >
> > > Dear Mas Hadis, maap saya kurang titik komanya sama judul fieldnya.
> > >
> > > Private Sub Command11_Click()
> > > Dim db As DAO.Database
> > > Dim rs As DAO.Recordset
> > > If IsNull(Me![Text0]) Then
> > > MsgBox "Isi dahulu alamat text file nya."
> > > [Text0].SetFocus
> > > Exit Sub
> > > End If
> > > Set db = CurrentDb()
> > > Set rs = db.OpenRecordset("Table1", dbReadOnly)
> > > Open Me![Text0] & "Table1.txt" For Output As #1
> > > Print #1, """ID"";""Field1"""
> > > Do While Not rs.EOF
> > > Print #1, rs![Id] & ";""" & rs![Field1] & """"
> > > rs.MoveNext
> > > Loop
> > > Close #1
> > > CloseMe:
> > > rs.Close
> > > Set rs = Nothing
> > > db.Close
> > > Set db = Nothing
> > > MsgBox "Proses sudah selesai."
> > > End Sub
> > >
> > > Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > Sofyan Efendi
> > > http://imopi.wordpress.com/
> > > ----- Original Message -----
> > > From: "Sofyan Efendi" <SofyanEfendi@>
> > > To: <belajar-access@yahoogroups.com>
> > > Sent: Monday, April 09, 2012 1:34 PM
> > > Subject: Re: [belajar-access] Re: transferdatabase text
> > >
> > >
> > > > Dear Mas Hadis...
> > > >
> > > > Mantap, kasus baru, buat bahan belajar nih Mas...
> > > > Sepertinya ini harus dimodif lagi kodenya Mas Hadis, misal dengan looping:
> > > >
> > > > Do While Not rs.EOF
> > > > Print #1, rs![ID] & ";" & rs![Field1]
> > > > rs.MoveNext
> > > > Loop
> > > >
> > > > Kita teruskan... inginnya:
> > > >
> > > > 1;AAA
> > > > 2;BBB
> > > > 3;CCC
> > > >
> > > > Maka itu titik koma kudu buat manual di kodenya, saya coba buatkan
> > > > prosedurnya, di command buttonnya fiel Mas Hadis yg sudah saya download:
> > > >
> > > > Private Sub Command11_Click()
> > > > Dim db As DAO.Database
> > > > Dim rs As DAO.Recordset
> > > > If IsNull(Me![Text0]) Then
> > > > MsgBox "Isi dahulu alamat text file nya."
> > > > [Text0].SetFocus
> > > > Exit Sub
> > > > End If
> > > > Set db = CurrentDb()
> > > > Set rs = db.OpenRecordset("Table1", dbReadOnly)
> > > > Open Me![Text0] & "\Table1.txt" For Output As #1
> > > > Do While Not rs.EOF
> > > > Print #1, rs![Id] & ";" & rs![Field1]
> > > > rs.MoveNext
> > > > Loop
> > > > Close #1
> > > > CloseMe:
> > > > rs.Close
> > > > Set rs = Nothing
> > > > db.Close
> > > > Set db = Nothing
> > > > MsgBox "Proses sudah selesai."
> > > > End Sub
> > > >
> > > > Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > > Sofyan Efendi
> > > > http://imopi.wordpress.com/
> > > > ----- Original Message -----
> > > > From: "hadis0678" <hadis0678@>
> > > > To: <belajar-access@yahoogroups.com>
> > > > Sent: Monday, April 09, 2012 1:13 PM
> > > > Subject: [belajar-access] Re: transferdatabase text
> > > >
> > > >
> > > > tengkyu mas sofyan..
> > > > output text yang diinginkan adalah :
> > > > "ID";"Field1"
> > > > 1;"AAA"
> > > > 2;"BBB"
> > > > 3;"CCC"
> > > >
> > > > sedangkan kalau dicoba dengan metode output to text, maka akan
> > > > menghasilkan :
> > > > -----------------------------------------
> > > > | ID | Field1 |
> > > > -----------------------------------------
> > > > | 1 | AAA |
> > > > -----------------------------------------
> > > > | 2 | BBB |
> > > > -----------------------------------------
> > > > | 3 | CCC |
> > > > -----------------------------------------
> > > >
> > > > apabila dengan metode output maka saya kesulitan untuk mengimport kembali
> > > > karena adanya garis garis batas tersebut.
> > > >
> > > > best regards
> > > >
> > > > must hdi s
> > > >
> > > > --- In belajar-access@yahoogroups.com, Sofyan Efendi <sofyanefendi@>
> > > > wrote:
> > > >>
> > > >> Dear Mas Hadis, file accessnya sudah saya terima, tapi tolong dikirimkan
> > > >> contoh output txt nya juga (yg diinginkannya), biar sekalian yah.
> > > >>
> > > >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > >> Sofyan Efendi
> > > >> http://imopi.wordpress.com/
> > > >> ----- Original Message -----
> > > >> From: "hadis0678" <hadis0678@>
> > > >> To: <belajar-access@yahoogroups.com>
> > > >> Sent: Saturday, April 07, 2012 1:08 PM
> > > >> Subject: Bls: [belajar-access] Re: transferdatabase text
> > > >>
> > > >>
> > > >> dear mas nyong arif..
> > > >> terimakasih atas bantuannya dengan metode output to. permasalahan yang
> > > >> timbul selanjutnya adalah ketika harus mengimport file tersebut untuk
> > > >> ditambahkan dalam database yang baru. mengingat untuk dengan metode
> > > >> output
> > > >> to nanti juga terdapat garis-garis sebagai pembatas antara field maupun
> > > >> garis horisontal sebagai pembatas antar record. hal tersebut masih belum
> > > >> saya pahami bagaimana caranya mengimport file tersebut sehingga ketika
> > > >> masuk
> > > >> tabel hanya isi record saja dan tidak termasuk garis vertikal dan
> > > >> horisontalnya. terima kasih
> > > >>
> > > >> best regards
> > > >>
> > > >> must hdi s
> > > >>
> > > >> --- In belajar-access@yahoogroups.com, Nyong Arif <nyong_arif@> wrote:
> > > >> >
> > > >> > Ini Saya coba sertakan contoh export untuk .txt dengan penentuan Folder
> > > >> > dan Nama File untuk Penyimpanannya...
> > > >> >
> > > >> > Btw dalam exprot Format TXT ini saya gunakan Docdm.OutputTo.....
> > > >> > Kalo Mas Hadi Ingin Pake Prosedur lain silahkan ganti Di Line
> > > >> > Docmd.outputTo nya....dengan prosedur yang sudah mas hadi buat...
> > > >> >
> > > >> >
> > > >> > Semoga Membantu
> > > >> >
> > > >> > Â
> > > >> >
> > > >> > Terima Kasih
> > > >> >
> > > >> > Salam,
> > > >> > Syarief Nyong
> > > >> >
> > > >> >
> > > >> >
> > > >> > ________________________________
> > > >> > Dari: hadis0678 <hadis0678@>
> > > >> > Kepada: belajar-access@yahoogroups.com
> > > >> > Dikirim: Jumat, 6 April 2012 9:56
> > > >> > Judul: [belajar-access] Re: transferdatabase text
> > > >> >
> > > >> >
> > > >> > Â
> > > >> > kepada bang sofyan
> > > >> >
> > > >> > mohon maaf bang, ini saya sertakan file mdb.nya. algoritma yang
> > > >> > diinginkan
> > > >> > adalah :
> > > >> > 1. menentukan folder tempat untuk menyimpan
> > > >> > 2. transfer text tabel1
> > > >> > 3. simpan hasil transfer ke folder yang telah ditentukan pada langkah 1
> > > >> > file yang saya sertakan adalah DBExporthadi.zip
> > > >> >
> > > >> > best regards
> > > >> >
> > > >> > must hdi s
> > > >> >
> > > >> > --- In belajar-access@yahoogroups.com, "hadis0678" <hadis0678@> wrote:
> > > >> > >
> > > >> > > dear bang sofyan..
> > > >> > > sory selalu ngrepotin.. untuk metode dengan ekspor data tersebut
> > > >> > > sudah
> > > >> > > saya lakukan dan sudah berhasil. hanya masih pada masalah awal bahwa
> > > >> > > tujuan eksport telah ditentukan terlebih dahulu dalam savedekspor
> > > >> > > tersebut. kalau dimungkinkan kepengin seperti yang diberikan mas
> > > >> > > nyong
> > > >> > > arif dan berjalan pada acces 2003, dimana kita tentukan dulu lokasi
> > > >> > > penyimpanan atau buat folder langsung dan selanjutnya baru kita
> > > >> > > lakukan
> > > >> > > eksport data dan kita simpan dalam folder tersebut.
> > > >> > > terima kasih
> > > >> > >
> > > >> > > hormat saya
> > > >> > >
> > > >> > > must hdis
> > > >> > >
> > > >> > > --- In belajar-access@yahoogroups.com, Sofyan Efendi <sofyanefendi@>
> > > >> > > wrote:
> > > >> > > >
> > > >> > > > Dear Mas Hadis,
> > > >> > > > Kalo sdh coba masih ada error, kirimin zip nya yah... :)
> > > >> > > >
> > > >> > > > Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > >> > > > Sofyan Efendi
> > > >> > > > http://imopi.wordpress.com/
> > > >> > > > ----- Original Message -----
> > > >> > > > From: "hadis0678" <hadis0678@>
> > > >> > > > To: <belajar-access@yahoogroups.com>
> > > >> > > > Sent: Thursday, April 05, 2012 1:35 PM
> > > >> > > > Subject: [belajar-access] Re: transferdatabase text
> > > >> > > >
> > > >> > > >
> > > >> > > > > oo.. gitu ya mas..
> > > >> > > > > jadi kita lakukan ekspor dengan fungsi begitu.. ok langsung ke
> > > >> > > > > tkp
> > > >> > > > > mas.
> > > >> > > > > terima kasih
> > > >> > > > >
> > > >> > > > > best regards
> > > >> > > > >
> > > >> > > > > must hdis
> > > >> > > > >
> > > >> > > > > --- In belajar-access@yahoogroups.com, Sofyan Efendi
> > > >> > > > > <sofyanefendi@>
> > > >> > > > > wrote:
> > > >> > > > >>
> > > >> > > > >> Hmm... Bagaimana bila seluruh procedure diganti menjadi:
> > > >> > > > >>
> > > >> > > > >> Function test()
> > > >> > > > >> DoCmd.OpenTable "NamaTable"
> > > >> > > > >> DoCmd.RunCommand acCmdExportText
> > > >> > > > >> DoCmd.Close acTable, "NamaTable"
> > > >> > > > >> End Function
> > > >> > > > >>
> > > >> > > > >> Nama Table boleh diganti menjadi Nama Query ....
> > > >> > > > >> Cara ini lebih mudah, atau teman2 ada yg hendak menambahkan,
> > > >> > > > >> dipersilahkan
> > > >> > > > >> ya...
> > > >> > > > >>
> > > >> > > > >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > >> > > > >> Sofyan Efendi
> > > >> > > > >> http://imopi.wordpress.com/
> > > >> > > > >> ----- Original Message -----
> > > >> > > > >> From: "hadis0678" <hadis0678@>
> > > >> > > > >> To: <belajar-access@yahoogroups.com>
> > > >> > > > >> Sent: Thursday, April 05, 2012 11:24 AM
> > > >> > > > >> Subject: [belajar-access] Re: transferdatabase text
> > > >> > > > >>
> > > >> > > > >>
> > > >> > > > >> > mohon maaf mas, sudah saya coba. jadi saya membuat
> > > >> > > > >> > savedeksportnya ke
> > > >> > > > >> > mydocument. sedangkan diinginkan nantinya bisa menentukan
> > > >> > > > >> > dimana
> > > >> > > > >> > lokasi
> > > >> > > > >> > data tersebut dieksport.
> > > >> > > > >> > sehingga saya ada dua event,yaitu event untuk menentukan
> > > >> > > > >> > lokasi
> > > >> > > > >> > penyimpanan yaitu :
> > > >> > > > >> > Dim result As Integer
> > > >> > > > >> > Dim sFolder As String
> > > >> > > > >> > With Application.FileDialog(msoFileDialogFolderPicker)
> > > >> > > > >> > .Title = "Pilih Folder to Export"
> > > >> > > > >> > .AllowMultiSelect = False
> > > >> > > > >> > .InitialFileName = CurrentProject.Path
> > > >> > > > >> > result = .Show
> > > >> > > > >> >
> > > >> > > > >> > selanjutnya saya buat event untuk proses eksportdatanya.
> > > >> > > > >> > eksport data yang saya buat mengarah ke mydocument
> > > >> > > > >> > On Error GoTo Err_Command45_Click
> > > >> > > > >> >
> > > >> > > > >> >
> > > >> > > > >> > MsgBox "Data disimpan dalam folder " & Text0,
> > > >> > > > >> > vbInformation,
> > > >> > > > >> > "SIMAKSI
> > > >> > > > >> > 2012"
> > > >> > > > >> > DoCmd.RunSavedImportExport
> > > >> > > > >> > "Export-TransferdataSYSDB_PNS889"
> > > >> > > > >> > MsgBox "Ekspor Data Selesai dan disimpan dalam folder " &
> > > >> > > > >> > Text0,
> > > >> > > > >> > vbInformation, "SIMAKSI 2012"
> > > >> > > > >> >
> > > >> > > > >> > Exit_Command45_Click:
> > > >> > > > >> > Exit Sub
> > > >> > > > >> >
> > > >> > > > >> > Err_Command45_Click:
> > > >> > > > >> > MsgBox Err.Description
> > > >> > > > >> > Resume Exit_Command45_Click
> > > >> > > > >> >
> > > >> > > > >> > yang diinginkan adalah hasil savedeksport itu dapat masuk ke
> > > >> > > > >> > lokasi
> > > >> > > > >> > yang
> > > >> > > > >> > telah ditentukan dalam event pertama.
> > > >> > > > >> > mohon maaf mas sofyan, kalau ngrepotin. terima kasih atas
> > > >> > > > >> > bantuannya
> > > >> > > > >> >
> > > >> > > > >> > best regards
> > > >> > > > >> >
> > > >> > > > >> > must hdi s
> > > >> > > > >> > --- In belajar-access@yahoogroups.com, Sofyan Efendi
> > > >> > > > >> > <sofyanefendi@>
> > > >> > > > >> > wrote:
> > > >> > > > >> >>
> > > >> > > > >> >> Dear Mas Hadis,
> > > >> > > > >> >>
> > > >> > > > >> >> Iya Mas, silahkan dicoba DoCmd.RunSavedImportExport "Nama
> > > >> > > > >> >> Saved
> > > >> > > > >> >> export
> > > >> > > > >> >> nya"
> > > >> > > > >> >>
> > > >> > > > >> >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > >> > > > >> >> Sofyan Efendi
> > > >> > > > >> >> http://imopi.wordpress.com/
> > > >> > > > >> >> ----- Original Message -----
> > > >> > > > >> >> From: "hadis0678" <hadis0678@>
> > > >> > > > >> >> To: <belajar-access@yahoogroups.com>
> > > >> > > > >> >> Sent: Thursday, April 05, 2012 9:30 AM
> > > >> > > > >> >> Subject: [belajar-access] Re: transferdatabase text
> > > >> > > > >> >>
> > > >> > > > >> >>
> > > >> > > > >> >> > bang sofyan, mohon maaf maaf kalau untuk menggunakan yang
> > > >> > > > >> >> > schema
> > > >> > > > >> >> > masih
> > > >> > > > >> >> > bermasalah dalam pemahaman hehehe...
> > > >> > > > >> >> > mungkin untuk saat ini fokus dulu ke transfertext
> > > >> > > > >> >> > untuk acces 07 ketika saya menggunakan macro untuk eksport
> > > >> > > > >> >> > text
> > > >> > > > >> >> > muncul
> > > >> > > > >> >> > pesan kesalahan delimiter text
> > > >> > > > >> >> > kemudian saya menggunakan cara ekspor dengan menu eksport
> > > >> > > > >> >> > data
> > > >> > > > >> >> > pada
> > > >> > > > >> >> > ms
> > > >> > > > >> >> > acces 2007 dan proses eksportnya saya simpan.
> > > >> > > > >> >> > kemudian saya masuk macro dan saya masukkan proses eksport
> > > >> > > > >> >> > tersebut
> > > >> > > > >> >> > dan
> > > >> > > > >> >> > ini berhasil dilakukan bang. kalau bisa lihat proses
> > > >> > > > >> >> > eksportnya itu
> > > >> > > > >> >> > ada
> > > >> > > > >> >> > dimana ya bang, biar saya ambil syntaknya kemudian saya
> > > >> > > > >> >> > tuliskan
> > > >> > > > >> >> > saja
> > > >> > > > >> >> > di
> > > >> > > > >> >> > event. sehingga nanti bisa saya kombinasikan dengan syntak
> > > >> > > > >> >> > dari mas
> > > >> > > > >> >> > nyong
> > > >> > > > >> >> > arif.
> > > >> > > > >> >> > begitu bang, mohon penjelasan
> > > >> > > > >> >> >
> > > >> > > > >> >> > best regards
> > > >> > > > >> >> >
> > > >> > > > >> >> > must hdi s
> > > >> > > > >> >> > --- In belajar-access@yahoogroups.com, Sofyan Efendi
> > > >> > > > >> >> > <sofyanefendi@>
> > > >> > > > >> >> > wrote:
> > > >> > > > >> >> >>
> > > >> > > > >> >> >> :) Wah Kang, kita belajar bersama saja dimilis ini, tapi
> > > >> > > > >> >> >> bila
> > > >> > > > >> >> >> hendak
> > > >> > > > >> >> >> silaturahmi, silahkan, rumah saya insya Allah terbuka bagi
> > > >> > > > >> >> >> sahabat2
> > > >> > > > >> >> >> yang
> > > >> > > > >> >> >> hendak silaturahmi.
> > > >> > > > >> >> >> Belajar harus sedikit2, dari yg termudah, yg sederhana...
> > > >> > > > >> >> >> tidak
> > > >> > > > >> >> >> bisa
> > > >> > > > >> >> >> langsung main ke VBA, dimulai dari table, query, pelajari
> > > >> > > > >> >> >> dengan
> > > >> > > > >> >> >> perlahan-lahan, jangan tergesa-gesa... Pahami setiap kode,
> > > >> > > > >> >> >> kenapa
> > > >> > > > >> >> >> harus
> > > >> > > > >> >> >> pakai kode ini, apa manfaatnya, dll... Nanti lama2 insya
> > > >> > > > >> >> >> Allah akan
> > > >> > > > >> >> >> hapal,
> > > >> > > > >> >> >> setiap ada kasus, akan terpikir bagaimana solusinya...
> > > >> > > > >> >> >> Subhanallah
> > > >> > > > >> >> >> wal
> > > >> > > > >> >> >> hamdulillah....
> > > >> > > > >> >> >>
> > > >> > > > >> >> >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > >> > > > >> >> >> Sofyan Efendi
> > > >> > > > >> >> >> http://imopi.wordpress.com/
> > > >> > > > >> >> >> ----- Original Message -----
> > > >> > > > >> >> >> From: "hadis0678" <hadis0678@>
> > > >> > > > >> >> >> To: <belajar-access@yahoogroups.com>
> > > >> > > > >> >> >> Sent: Wednesday, April 04, 2012 5:07 PM
> > > >> > > > >> >> >> Subject: [belajar-access] Re: transferdatabase text
> > > >> > > > >> >> >>
> > > >> > > > >> >> >>
> > > >> > > > >> >> >> > ok bang sofyan..
> > > >> > > > >> >> >> > ini perlu belajar lebih keras lagi, ni atau perlu
> > > >> > > > >> >> >> > langsung
> > > >> > > > >> >> >> > ketemu
> > > >> > > > >> >> >> > dengan
> > > >> > > > >> >> >> > suhunya ya hehehe..
> > > >> > > > >> >> >> > ada program pelatihan di rumah acces indonesia untuk
> > > >> > > > >> >> >> > program ini
> > > >> > > > >> >> >> > bang
> > > >> > > > >> >> >> > sofyan? perlu belajar langsung nih ..
> > > >> > > > >> >> >> >
> > > >> > > > >> >> >> > terima kasih
> > > >> > > > >> >> >> > best regards
> > > >> > > > >> >> >> > must hdis
> > > >> > > > >> >> >> >
> > > >> > > > >> >> >> > --- In belajar-access@yahoogroups.com, Sofyan Efendi
> > > >> > > > >> >> >> > <sofyanefendi@>
> > > >> > > > >> >> >> > wrote:
> > > >> > > > >> >> >> >>
> > > >> > > > >> >> >> >> Ya Kang Hadis, satu kali centang maka file tersebut
> > > >> > > > >> >> >> >> sudah
> > > >> > > > >> >> >> >> terkait
> > > >> > > > >> >> >> >> ke
> > > >> > > > >> >> >> >> ADO
> > > >> > > > >> >> >> >> untuk selamanya, jadi nanti tidak perlu maen
> > > >> > > > >> >> >> >> centang-centangan
> > > >> > > > >> >> >> >> lagi
> > > >> > > > >> >> >> >> di
> > > >> > > > >> >> >> >> unit-unit kerja di wilayah kabupaten klaten.... Saya
> > > >> > > > >> >> >> >> melakukan
> > > >> > > > >> >> >> >> proses
> > > >> > > > >> >> >> >> import
> > > >> > > > >> >> >> >> export dengan beberapa cara,... ada yg pakai
> > > >> > > > >> >> >> >> schema.ini,
> > > >> > > > >> >> >> >> dao,
> > > >> > > > >> >> >> >> ado,
> > > >> > > > >> >> >> >> transfer
> > > >> > > > >> >> >> >> database. Tapi saya suka yg pakai schema.ini, tapi yg
> > > >> > > > >> >> >> >> dao
> > > >> > > > >> >> >> >> suka
> > > >> > > > >> >> >> >> juga
> > > >> > > > >> >> >> >> sih,
> > > >> > > > >> >> >> >> soalnya kalo "dao" dibalik jadi "doa", biar inget ama
> > > >> > > > >> >> >> >> Tuhan ....
> > > >> > > > >> >> >> >> :-))
> > > >> > > > >> >> >> >>
> > > >> > > > >> >> >> >> Kalau Kang Hadis mau, pake schema.ini aja Kang. Saya
> > > >> > > > >> >> >> >> dulu
> > > >> > > > >> >> >> >> pernah
> > > >> > > > >> >> >> >> buat
> > > >> > > > >> >> >> >> contoh
> > > >> > > > >> >> >> >> nya, ini saya kirim ulang yah...
> > > >> > > > >> >> >> >>
> > > >> > > > >> >> >> >> Petunjuk: Harap diextract seluruh file yg saya kirimkan
> > > >> > > > >> >> >> >> ini
> > > >> > > > >> >> >> >> dalam
> > > >> > > > >> >> >> >> satu
> > > >> > > > >> >> >> >> folder yang sama. Dalam mengimport table harus
> > > >> > > > >> >> >> >> disiapkan
> > > >> > > > >> >> >> >> dahulu
> > > >> > > > >> >> >> >> file
> > > >> > > > >> >> >> >> Schema.ini dalam folder tsb. Saya sudah sertakan file
> > > >> > > > >> >> >> >> dan
> > > >> > > > >> >> >> >> teorinya
> > > >> > > > >> >> >> >> pada
> > > >> > > > >> >> >> >> contoh ini. Silahkan dipelajari ya file
> > > >> > > > >> >> >> >> ImportDanExportTextFile.mdb...
> > > >> > > > >> >> >> >>
> > > >> > > > >> >> >> >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > >> > > > >> >> >> >> Sofyan Efendi
> > > >> > > > >> >> >> >> http://imopi.wordpress.com/
> > > >> > > > >> >> >> >> ----- Original Message -----
> > > >> > > > >> >> >> >> From: "hadis0678" <hadis0678@>
> > > >> > > > >> >> >> >> To: <belajar-access@yahoogroups.com>
> > > >> > > > >> >> >> >> Sent: Wednesday, April 04, 2012 4:15 PM
> > > >> > > > >> >> >> >> Subject: [belajar-access] Re: transferdatabase text
> > > >> > > > >> >> >> >>
> > > >> > > > >> >> >> >>
> > > >> > > > >> >> >> >> > tengkyu bang sofyan
> > > >> > > > >> >> >> >> > kalau begitu mungkin nanti timbul masalah lagi bang.
> > > >> > > > >> >> >> >> > aplikasi ini akan disebar di unit-unit kerja di
> > > >> > > > >> >> >> >> > wilayah
> > > >> > > > >> >> >> >> > kabupaten
> > > >> > > > >> >> >> >> > klaten
> > > >> > > > >> >> >> >> > jika harus mengecek apakah sudah diaktifkan, mungkin
> > > >> > > > >> >> >> >> > nanti
> > > >> > > > >> >> >> >> > malah
> > > >> > > > >> >> >> >> > tidak
> > > >> > > > >> >> >> >> > efektif ya bang, karena sumber daya manusia di unit
> > > >> > > > >> >> >> >> > unit
> > > >> > > > >> >> >> >> > kerja
> > > >> > > > >> >> >> >> > kan
> > > >> > > > >> >> >> >> > tidak
> > > >> > > > >> >> >> >> > sama dan tidak mungkin malah membingungkan hehehe...
> > > >> > > > >> >> >> >> > ada saran bang, kalau menggunakan transfertext itu
> > > >> > > > >> >> >> >> > kelihatannya
> > > >> > > > >> >> >> >> > lebih
> > > >> > > > >> >> >> >> > sederhana tapi mungkin masalah di delimiter itu ya...
> > > >> > > > >> >> >> >> > terima kasih
> > > >> > > > >> >> >> >> >
> > > >> > > > >> >> >> >> > best regards
> > > >> > > > >> >> >> >> >
> > > >> > > > >> >> >> >> > must hdi s
> > > >> > > > >> >> >> >> >
> > > >> > > > >> >> >> >> > --- In belajar-access@yahoogroups.com, Sofyan Efendi
> > > >> > > > >> >> >> >> > <sofyanefendi@>
> > > >> > > > >> >> >> >> > wrote:
> > > >> > > > >> >> >> >> >>
> > > >> > > > >> >> >> >> >> Dear Mas Hadis,
> > > >> > > > >> >> >> >> >>
> > > >> > > > >> >> >> >> >> Tolong dicek dulu di reference VBA nya, apakah sudah
> > > >> > > > >> >> >> >> >> ditambahkan
> > > >> > > > >> >> >> >> >> Active X
> > > >> > > > >> >> >> >> >> ADO : Microsoft ActiveX Data Objects
> > > >> > > > >> >> >> >> >>
> > > >> > > > >> >> >> >> >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > >> > > > >> >> >> >> >> Sofyan Efendi
> > > >> > > > >> >> >> >> >> http://imopi.wordpress.com/
> > > >> > > > >> >> >> >> >> ----- Original Message -----
> > > >> > > > >> >> >> >> >> From: "hadis0678" <hadis0678@>
> > > >> > > > >> >> >> >> >> To: <belajar-access@yahoogroups.com>
> > > >> > > > >> >> >> >> >> Sent: Wednesday, April 04, 2012 3:51 PM
> > > >> > > > >> >> >> >> >> Subject: [belajar-access] Re: transferdatabase text
> > > >> > > > >> >> >> >> >>
> > > >> > > > >> >> >> >> >>
> > > >> > > > >> >> >> >> >> > dear Bang Haer,
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> > saya mencoba menggunakan transfer text, dan ada
> > > >> > > > >> >> >> >> >> > masalah
> > > >> > > > >> >> >> >> >> > apabila
> > > >> > > > >> >> >> >> >> > menggunakan windows7, untuk itu saya coba dengan
> > > >> > > > >> >> >> >> >> > metode
> > > >> > > > >> >> >> >> >> > ADO.
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> > saya mencoba menggunakan ADO sehingga menjadi :
> > > >> > > > >> >> >> >> >> > Private Sub Command64_Click()
> > > >> > > > >> >> >> >> >> > MsgBox "Data disimpan dalam folder " & Text0,
> > > >> > > > >> >> >> >> >> > vbInformation,
> > > >> > > > >> >> >> >> >> > "SIMAKSI
> > > >> > > > >> >> >> >> >> > 2012"
> > > >> > > > >> >> >> >> >> > DoCmd.RunMacro
> > > >> > > > >> >> >> >> >> > "macrobikintabelesksporsydbpnsdetail"
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> > Dim str As String
> > > >> > > > >> >> >> >> >> > Dim sql As String
> > > >> > > > >> >> >> >> >> > Dim cn As New ADODB.Connection
> > > >> > > > >> >> >> >> >> > Dim rs As New ADODB.Recordset
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> > set cn as currentproject.connection ----->>> error
> > > >> > > > >> >> >> >> >> > menjadi
> > > >> > > > >> >> >> >> >> > merah
> > > >> > > > >> >> >> >> >> > sql = "SELECT * FROM TransferdataSYSDB_PNS"
> > > >> > > > >> >> >> >> >> > rs.Open sql, cn, adOpenKeyset, adLockOptimistic
> > > >> > > > >> >> >> >> >> > Open CurrentProject.Path & "\" &
> > > >> > > > >> >> >> >> >> > TransferdataSYSDB_PNS &
> > > >> > > > >> >> >> >> >> > ".TXT"
> > > >> > > > >> >> >> >> >> > For
> > > >> > > > >> >> >> >> >> > Input
> > > >> > > > >> >> >> >> >> > As #1
> > > >> > > > >> >> >> >> >> > While Not EOF(1)
> > > >> > > > >> >> >> >> >> > Line Input #1, str
> > > >> > > > >> >> >> >> >> > rs.AddNew
> > > >> > > > >> >> >> >> >> > rs!Field1= ----------->>>> error menjadi merah
> > > >> > > > >> >> >> >> >> > rs.Update
> > > >> > > > >> >> >> >> >> > Wend
> > > >> > > > >> >> >> >> >> > rs.Close
> > > >> > > > >> >> >> >> >> > Close #1
> > > >> > > > >> >> >> >> >> > End Sub
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> > dari syntak diatas terdapat dua error bang,
> > > >> > > > >> >> >> >> >> > kira-kira
> > > >> > > > >> >> >> >> >> > apa
> > > >> > > > >> >> >> >> >> > ya
> > > >> > > > >> >> >> >> >> > yang
> > > >> > > > >> >> >> >> >> > kurang/salah dari syintak saya.. terima kasih
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> > best regards
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> > must hdi s
> > > >> > > > >> >> >> >> >> > --- In belajar-access@yahoogroups.com, "Sofyan
> > > >> > > > >> >> >> >> >> > Efendi"
> > > >> > > > >> >> >> >> >> > <sofyanefendi@>
> > > >> > > > >> >> >> >> >> > wrote:
> > > >> > > > >> >> >> >> >> >>
> > > >> > > > >> >> >> >> >> >> Dear Mas Hadis,
> > > >> > > > >> >> >> >> >> >>
> > > >> > > > >> >> >> >> >> >> Umumnya, error karena masalah regional settings.
> > > >> > > > >> >> >> >> >> >> Cobalah
> > > >> > > > >> >> >> >> >> >> diubah
> > > >> > > > >> >> >> >> >> >> dari
> > > >> > > > >> >> >> >> >> >> Indonesia ke English, atau sebaliknya. Atau
> > > >> > > > >> >> >> >> >> >> alternatif
> > > >> > > > >> >> >> >> >> >> lainnya,
> > > >> > > > >> >> >> >> >> >> bisa
> > > >> > > > >> >> >> >> >> >> menggunakan metode import text filenya ADO dan
> > > >> > > > >> >> >> >> >> >> DAO,
> > > >> > > > >> >> >> >> >> >> misal:
> > > >> > > > >> >> >> >> >> >>
> > > >> > > > >> >> >> >> >> >> Contoh Menggunakan ADO:
> > > >> > > > >> >> >> >> >> >>
> > > >> > > > >> >> >> >> >> >> Private Sub Command0_Click
> > > >> > > > >> >> >> >> >> >> Dim str as string
> > > >> > > > >> >> >> >> >> >> Dim sql as string
> > > >> > > > >> >> >> >> >> >> Dim cn as New ADODB.Connection
> > > >> > > > >> >> >> >> >> >> Dim rs as New ADODB.Recordset
> > > >> > > > >> >> >> >> >> >>
> > > >> > > > >> >> >> >> >> >> set cn as currentproject.connection
> > > >> > > > >> >> >> >> >> >> sql = "SELECT * FROM TABLE1"
> > > >> > > > >> >> >> >> >> >> rs.open sql,cn,adopenkeyset,adlockoptimistic
> > > >> > > > >> >> >> >> >> >> Open CurrentProject.Path & "\" & NamaFileTxt &
> > > >> > > > >> >> >> >> >> >> ".TXT" For
> > > >> > > > >> >> >> >> >> >> Input
> > > >> > > > >> >> >> >> >> >> As
> > > >> > > > >> >> >> >> >> >> #1
> > > >> > > > >> >> >> >> >> >> While not EOF(1)
> > > >> > > > >> >> >> >> >> >> Line Input #1, str
> > > >> > > > >> >> >> >> >> >> rs.AddNew
> > > >> > > > >> >> >> >> >> >> rs!Field1=
> > > >> > > > >> >> >> >> >> >> rs.Update
> > > >> > > > >> >> >> >> >> >> Wend
> > > >> > > > >> >> >> >> >> >> rs.close
> > > >> > > > >> >> >> >> >> >> Close #1
> > > >> > > > >> >> >> >> >> >> End Sub
> > > >> > > > >> >> >> >> >> >>
> > > >> > > > >> >> >> >> >> >> Contoh Menggunakan DAO:
> > > >> > > > >> >> >> >> >> >>
> > > >> > > > >> >> >> >> >> >> Private Sub Command0_Click
> > > >> > > > >> >> >> >> >> >> Dim str as string
> > > >> > > > >> >> >> >> >> >> Dim sql as string
> > > >> > > > >> >> >> >> >> >> Dim db as DAO.Database
> > > >> > > > >> >> >> >> >> >> Dim rs as DAO.Recordset
> > > >> > > > >> >> >> >> >> >>
> > > >> > > > >> >> >> >> >> >> set db = currentdb()
> > > >> > > > >> >> >> >> >> >> sql = "SELECT * FROM TABLE1"
> > > >> > > > >> >> >> >> >> >> set rs = db.openrecordset(sql,dbopendynaset)
> > > >> > > > >> >> >> >> >> >> Open CurrentProject.Path & "\" & NamaFileTxt &
> > > >> > > > >> >> >> >> >> >> ".TXT" For
> > > >> > > > >> >> >> >> >> >> Input
> > > >> > > > >> >> >> >> >> >> As
> > > >> > > > >> >> >> >> >> >> #1
> > > >> > > > >> >> >> >> >> >> While not EOF(1)
> > > >> > > > >> >> >> >> >> >> Line Input #1, str
> > > >> > > > >> >> >> >> >> >> rs.AddNew
> > > >> > > > >> >> >> >> >> >> rs!Field1=
> > > >> > > > >> >> >> >> >> >> rs.Update
> > > >> > > > >> >> >> >> >> >> Wend
> > > >> > > > >> >> >> >> >> >> set rs=nothing
> > > >> > > > >> >> >> >> >> >> Close #1
> > > >> > > > >> >> >> >> >> >> End Sub
> > > >> > > > >> >> >> >> >> >>
> > > >> > > > >> >> >> >> >> >> Kedua contoh diatas adalah import data dari txt
> > > >> > > > >> >> >> >> >> >> file
> > > >> > > > >> >> >> >> >> >> ke
> > > >> > > > >> >> >> >> >> >> Table
> > > >> > > > >> >> >> >> >> >> di
> > > >> > > > >> >> >> >> >> >> Ms
> > > >> > > > >> >> >> >> >> >> Access.
> > > >> > > > >> >> >> >> >> >>
> > > >> > > > >> >> >> >> >> >> Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > >> > > > >> >> >> >> >> >> Sofyan Efendi
> > > >> > > > >> >> >> >> >> >>
> > > >> > > > >> >> >> >> >> >> --- In belajar-access@yahoogroups.com,
> > > >> > > > >> >> >> >> >> >> "hadis0678"
> > > >> > > > >> >> >> >> >> >> <hadis0678@>
> > > >> > > > >> >> >> >> >> >> wrote:
> > > >> > > > >> >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> >> > mohon bantuan para suhu semua mengenai tranfer
> > > >> > > > >> >> >> >> >> >> > database
> > > >> > > > >> >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> >> > saya sedang membangun aplikasi dengan acces
> > > >> > > > >> >> >> >> >> >> > 2003
> > > >> > > > >> >> >> >> >> >> > dan
> > > >> > > > >> >> >> >> >> >> > untuk
> > > >> > > > >> >> >> >> >> >> > transferdatabase menggunakan yang
> > > >> > > > >> >> >> >> >> >> > transferdatabase
> > > >> > > > >> >> >> >> >> >> > text
> > > >> > > > >> >> >> >> >> >> > yang
> > > >> > > > >> >> >> >> >> >> > dibuat
> > > >> > > > >> >> >> >> >> >> > dengan makro. makro tersebut bisa berjalan
> > > >> > > > >> >> >> >> >> >> > dengan
> > > >> > > > >> >> >> >> >> >> > baik
> > > >> > > > >> >> >> >> >> >> > pada
> > > >> > > > >> >> >> >> >> >> > acces
> > > >> > > > >> >> >> >> >> >> > 2003.
> > > >> > > > >> >> >> >> >> >> > yang menjadi masalah adalah ketika dijalankan
> > > >> > > > >> >> >> >> >> >> > dengan
> > > >> > > > >> >> >> >> >> >> > acces
> > > >> > > > >> >> >> >> >> >> > 2007,
> > > >> > > > >> >> >> >> >> >> > makro
> > > >> > > > >> >> >> >> >> >> > tersebut tidak berjalan. komentar yang muncul
> > > >> > > > >> >> >> >> >> >> > adalah
> > > >> > > > >> >> >> >> >> >> > text
> > > >> > > > >> >> >> >> >> >> > file
> > > >> > > > >> >> >> >> >> >> > specification field separator matches decimal
> > > >> > > > >> >> >> >> >> >> > separator
> > > >> > > > >> >> >> >> >> >> > or
> > > >> > > > >> >> >> >> >> >> > text
> > > >> > > > >> >> >> >> >> >> > delimiter.
> > > >> > > > >> >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> >> > mohon bantuan
> > > >> > > > >> >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> >> > best regards
> > > >> > > > >> >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> >> > hdi s
> > > >> > > > >> >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> >>
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> > ------------------------------------
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> > SPAM IS PROHIBITEDYahoo! Groups Links
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >> >
> > > >> > > > >> >> >> >> >>
> > > >> > > > >> >> >> >> >
> > > >> > > > >> >> >> >> >
> > > >> > > > >> >> >> >> >
> > > >> > > > >> >> >> >> >
> > > >> > > > >> >> >> >> > ------------------------------------
> > > >> > > > >> >> >> >> >
> > > >> > > > >> >> >> >> > SPAM IS PROHIBITEDYahoo! Groups Links
> > > >> > > > >> >> >> >> >
> > > >> > > > >> >> >> >> >
> > > >> > > > >> >> >> >> >
> > > >> > > > >> >> >> >>
> > > >> > > > >> >> >> >
> > > >> > > > >> >> >> >
> > > >> > > > >> >> >> >
> > > >> > > > >> >> >> >
> > > >> > > > >> >> >> > ------------------------------------
> > > >> > > > >> >> >> >
> > > >> > > > >> >> >> > SPAM IS PROHIBITEDYahoo! Groups Links
> > > >> > > > >> >> >> >
> > > >> > > > >> >> >> >
> > > >> > > > >> >> >> >
> > > >> > > > >> >> >>
> > > >> > > > >> >> >
> > > >> > > > >> >> >
> > > >> > > > >> >> >
> > > >> > > > >> >> >
> > > >> > > > >> >> > ------------------------------------
> > > >> > > > >> >> >
> > > >> > > > >> >> > SPAM IS PROHIBITEDYahoo! Groups Links
> > > >> > > > >> >> >
> > > >> > > > >> >> >
> > > >> > > > >> >> >
> > > >> > > > >> >>
> > > >> > > > >> >
> > > >> > > > >> >
> > > >> > > > >> >
> > > >> > > > >> >
> > > >> > > > >> > ------------------------------------
> > > >> > > > >> >
> > > >> > > > >> > SPAM IS PROHIBITEDYahoo! Groups Links
> > > >> > > > >> >
> > > >> > > > >> >
> > > >> > > > >> >
> > > >> > > > >>
> > > >> > > > >
> > > >> > > > >
> > > >> > > > >
> > > >> > > > >
> > > >> > > > > ------------------------------------
> > > >> > > > >
> > > >> > > > > SPAM IS PROHIBITEDYahoo! Groups Links
> > > >> > > > >
> > > >> > > > >
> > > >> > > > >
> > > >> > > >
> > > >> > >
> > > >> >
> > > >>
> > > >>
> > > >>
> > > >>
> > > >> ------------------------------------
> > > >>
> > > >> SPAM IS PROHIBITEDYahoo! Groups Links
> > > >>
> > > >
> > > >
> > > >
> > > >
> > > > ------------------------------------
> > > >
> > > > SPAM IS PROHIBITEDYahoo! Groups Links
> > > >
> > > >
> > > >
> > >
> >
>

__._,_.___
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar