Kamis, 05 April 2012

[belajar-access] Re: transferdatabase text

 

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
> >
> >
> >
>

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

__,_._,___

Tidak ada komentar:

Posting Komentar