在 ADP 中获取 GUID 字符串的函数

zhuyiwen

1. Public Function GetGUIDString() As String
   
2. ' 通过 GUID 表自动产生 GUID 字符串，并借助事务消除对数据库的操作
   
3. ' GUID 表：GUID 字段为：uniqueidentifier newid() RowGuid 主键
   
4. '        GuidStr字段为：char(20)
   
5. ' 作者：朱亦文
   
6. 
   
7.     Dim rst As ADODB.Recordset
   
8.     Dim cn As ADODB.Connection
   
9.    
   
10.     Set cn = CurrentProject.Connection
    
11.    
    
12.     ' 开始数据库的事务
    
13.     cn.BeginTrans
    
14.    
    
15.     ' 打开一个新的记录集
    
16.     Set rst = New ADODB.Recordset
    
17.     With rst
    
18.         Set .ActiveConnection = cn
    
19.         
    
20.         ' 以键集开放锁打表 GUID 表
    
21.         .Open "GUID", , adOpenKeyset, adLockOptimistic
    
22.         ' 新增记录
    
23.         .AddNew
    
24.         ' 向表中的 GuidStr 字段写入数据
    
25.         .Fields("GuidStr") = "s"
    
26.         ' 更新，此时在表中产生了一新的唯一的 GUID 值
    
27.         .Update
    
28.         ' 重新获取数据
    
29.         .Requery
    
30.         ' 返回记录中的 GUID 值并转换成字符
    
31.         GetGUIDString = StringFromGUID(.Fields("GUID"))
    
32.     End With
    
33.    
    
34.     ' 关闭记录集，释放 rst 对象
    
35.     Set rst = Nothing
    
36.     ' 结束事务并取消上述对数据库的操作
    
37.     cn.RollbackTrans
    
38.     ' 释放连接对象 cn
    
39.     Set cn = Nothing
    
40.     GetGUIDString = Mid(GetGUIDString, 2, Len(GetGUIDString) - 2)
    
41. End Function

复制代码

未经许可，请勿转载！

[em26]

至于 GUID 有什么用，请各自发挥！

[此贴子已经被zhuyiwen于2002-6-24 18:58:14编辑过]

sdlhlsd

好方法!!