Page 1 of 1

Can you implement ADO type 'adGUID' for ADS 12?

Posted: Tue Jun 07, 2016 7:23 am
by Gross
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

Re: Can you implement ADO type 'adGUID' for ADS 12?

Posted: Wed Jun 08, 2016 1:52 pm
by nageswaragunupudi
Thanks
We implemented your suggestion for the next release.

Re: Can you implement ADO type 'adGUID' for ADS 12?

Posted: Wed Jun 08, 2016 6:59 pm
by Gross
Thanks

Manfred