Code: Select all
IncludeFile "Cheetah2.pbi"
If xdbUseDLL()
AllFields$ = "ID,N,10,0; CHARACTER,C,20,0; MEMO,M,0,0" ; Create three field, including MEMO-field
xdbCreate("C:\1.dbf", AllFields$)
FileName.s = "C:\1.dbf"
hDB = xdbOpen(FileName, "")
; Add one record
xdbAssignField(hDB, "", 1, "1")
xdbAssignField(hDB, "", 2, "0123456789")
xdbAssignField(hDB, "", 3, "Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World Helo World")
xdbAppendRecord(hDB)
FieldValue.s = xdbFieldValue(hDB, "", 3) ; Read MEMO-field ОК
Debug FieldValue
xdbClose(hDB) ; Close base
FieldValue = ""
FileName = "C:\1.dbf"
hDB = xdbOpen(FileName, "")
xdbMoveFirst(hDB, 0)
FieldValue = xdbFieldValue(hDB, "", 3) ; Read MEMO-field ОК
Debug FieldValue
xdbClose(hDB) ; Close base
xdbFreeDLL()
Else
MessageRequester("Error", "Don't load library 'Cheetah2.dll'", #MB_OK|#MB_ICONERROR)
EndIf