>*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 >>
Function guid() Local pGUID,rGUID Declare Integer UuidCreate In 'RPCRT4.dll' String @pguid pGUID=Replicate(Chr(0),16) Return Iif(Inlist(UuidCreate(@pGUID),0,1824),pGUID,"") EndfuncI'd use 36 0r 38 bytes version.