Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Upsizing GUID to UniqueIdentifier
Message
 
 
To
14/09/2005 13:27:13
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Client/server
Miscellaneous
Thread ID:
01049183
Message ID:
01049563
Views:
32
Meanwhile Hi Cetin,
i am using your code at my tables chr(38) and my stored procedure codes like below (your posted before)
*In your database create a new function say GUID():
Function guid()
Local pGUID,rGUID
Declare Integer UuidCreate In 'RPCRT4.dll' String @pguid
Declare Integer StringFromGUID2 In 'Ole32.dll' ;
	string rguid, String @lpsz, Integer cchMax

pGUID=Replicate(Chr(0),16)
rGUID=Replicate(Chr(0),80)

Return Iif(Inlist(UuidCreate(@pGUID),0,1824),;
	Iif(StringFromGUID2(pGUID,@rGUID,40) # 0, ;
	Strconv(Left(rGUID,76),6), ""),"")
Endfunc
*Set your PK default value to GUID() - requires c(38). Original value is a 128bits integer which you might store in c(16). Check fox4um.com.
*Cetin
this codes generates like {BBB04901-9C4E-4F41-AB34-0D7D2D7ADD7C} keys. How is your suggestion
for prevent enlarging the tables sizes. without {} and - chr's or mine ? and if short one how was your another codes for 16 byte ?

TIA
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform