Minggu, 08 April 2012

Re: [belajar-access] Re: transferdatabase text

 

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