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

Post Reply
Gross
Posts: 41
Joined: Sat Mar 09, 2013 8:17 am
Location: Germany Kassel
Contact:

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

Post 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
Manfred Groß
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

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

Post by nageswaragunupudi »

Thanks
We implemented your suggestion for the next release.
Regards

G. N. Rao.
Hyderabad, India
Gross
Posts: 41
Joined: Sat Mar 09, 2013 8:17 am
Location: Germany Kassel
Contact:

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

Post by Gross »

Thanks

Manfred
Manfred Groß
Post Reply