Re: [belajar-access] Re: transferdatabase text

 

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

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (18)

Recent Activity:

• New Members 13

Visit Your Group

SPAM IS PROHIBITED

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___