Hello , Folder = "c:\data\" Detail = "NamaFile.DBF"
Set Mydb = DBEngine.Workspaces(0).OpenDatabase(Folder, 0, True, "dBase III;") Set rs = Mydb.OpenRecordset(Detail, 1) Biasanya saya baca data dari file dbf pakai cara seperti diatas (readonly) Kadang-2 saya perlu penulisan ke dalam database tersebut, akhirnya saya pakai cara di bawah ini. Tapi saya mendapat masalah, klu filenya sedang dipakai oleh user yang sedang menjalankan applikasi tersebut pakai foxpro, akhirnya timbul debug. Bisa nggak waktu di open di excel, bisa sistem multi user Jadi di excel bisa tulis, dan di applikasi program aslinya foxpro juga bisa dipakai bersama-2 Set Mydb = DBEngine.Workspaces(0).OpenDatabase(Folder, 0, False, "dBase III;") Set rs = Mydb.OpenRecordset(Detail, 1) rs.Edit rs.Fields("id_prt") = "1" rs.update tks -- Best regards, Fansul mailto:[EMAIL PROTECTED] -- www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED] :: Hapus bagian yang tidak perlu (footer, dst) saat reply! :: ## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ## $$ Iklan/promosi : www.itcenter.or.id/sponsorship $$ [@@] Jaket ITCENTER tersedia di http://shop.itcenter.or.id Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/ITCENTER/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/