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

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

Postby Gross » Tue Jun 07, 2016 7:23 am

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ß
Gross
 
Posts: 41
Joined: Sat Mar 09, 2013 8:17 am
Location: Germany Kassel

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

Postby nageswaragunupudi » Wed Jun 08, 2016 1:52 pm

Thanks
We implemented your suggestion for the next release.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10643
Joined: Sun Nov 19, 2006 5:22 am
Location: India

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

Postby Gross » Wed Jun 08, 2016 6:59 pm

Thanks

Manfred
Manfred Groß
Gross
 
Posts: 41
Joined: Sat Mar 09, 2013 8:17 am
Location: Germany Kassel


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: vilian and 52 guests