*------------------------------------------------
* Open Database & table dbf
* used =opendbc("c:\datadbc\esoft.dbc")
*------------------------------------------------
FUNCTION opendbc
PARAMETERS cdbc
OPEN DATABASE &cdbc
local laTABLES[1], lnTABLES, lnI
lnTABLES = adbobjects(laTABLES, 'Table')
for lnI = 1 to lnTABLES
use (laTABLES[lnI]) in 0
next lnI
return .T.
Langganan:
Posting Komentar (Atom)
Mengenai Saya
- eSoft Software
- Bekasi, Jawa Barat, Indonesia
- eSoft Software product : - Dental Clinic system - General Ledger (Accounting System) - Manufacturing System - Trading system
Tidak ada komentar:
Posting Komentar