can you please expand adofuncs.prg to the type 'adGuid'?
ADS 12 has the new type Guid as database field.
Example:
function FieldTypeAdoToDbf (nType)
do case
case AScan ({} 8,128,129,130,200,201,202,203,204,205, nType)> 0; return 'C'
->
case AScan ({} 8,72,128,129,130,200,201,202,203,204,205, nType)> 0; return 'C'
case AScan ({7, 133, 135}, nType)> 0; return 'D'
case nType == 11; return 'L'
Case AScan ({2, 3, 4, 5, 6, 14, 16, 17, 18, 19, 20, 21, 131, 139}, nType)> 0; return 'N'
endcase
return ""
function FWAdoFieldStruct (ORS, n)
....
nType: = oField: Type
if nType == adBoolean
cType: = 'L'
nLen: = 1
elseif nType == adGUID <------
cType: = 'C'
nLen: = 36
...
thank you
Manfred
↧