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
>
No comments:
Post a Comment