ACCESS FEED: Re: [belajar-access] Re: transferdatabase text

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@yahoo.co.id>
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
>
>
>