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

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