Cannot read MEMO field from DBF tables (use CHEETAH2.DLL)
Posted: Wed May 05, 2010 7:20 am
If create the table DBF using CHEETAH2.DLL, MEMO field well are read.
From other tables DBF MEMO field do not be read. Why?
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