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/
