Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Uniqueness of SYS(2015)
Message
De
25/06/2007 19:59:36
Dennis Lim
D-Labs, Inc.
Manila, Philippines
 
 
À
25/06/2007 07:40:37
Carlos Alloatti
Maka
Goya, Argentine
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Re: Uniqueness of SYS(2015)
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01235219
Message ID:
01235510
Vues:
14
Carlos,

Cool! Thanks! =)

Do you use GUIDs in lieu of AUTOINC fields?

Dennis

>
>
>
>Declare Integer CoCreateGuid In Ole32.Dll ;
> STRING @lcGUIDStruc
>
>Declare Integer StringFromGUID2 In Ole32.Dll ;
> STRING cGUIDStruc, ;
> STRING @cGUID, ;
> LONG nSize
>
>Local lcStruc_GUID, ;
> lcGUID, ;
> lnSize
>
>m.lcStruc_GUID = Space(16)
>m.lcGUID = Space(80)
>m.lnSize = 40
>
>If CoCreateGuid(@m.lcStruc_GUID) = 0 And ;
> StringFromGUID2(m.lcStruc_GUID,@m.lcGUID,lnSize) <> 0
> m.lcGUID = Substr( Strconv(Left(m.lcGUID,76),6), 2, 36 )
>Else
> m.lcGUID = .F.
>Endif
>
>?m.lcGUID
>
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform