<<< 返回 access911.net 编程静态资料库索引页 如何获取 GUID 字符串?《API》 作者：朱亦文,爱狐狸,cg1 摘自：access911.net 录入：cg1 时间：2002-11-22 浏览人次：1632
专题地址：http://www.access911.net/index.asp?u1=a&u2=76FAB41E 如果需要更详细的评论或说明，请点击该地址。 简述：如何生成GUID
方法一：
| | Debug.Print CreateObject("Scriptlet.TypeLib").Guid |
|
方法二：
| 编写函数如下：
Public Function GetGUIDString() As String
' 通过 usysGUID 表自动产生 GUID 字符串，并借助事务消除对数据库的操作
' usysGUID 表：GUID 字段为：自动编号 同步复制ID 主键
' GuidStr字段为：char(20)
' 作者：朱亦文 Dim rst As ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = CodeProject.Connection
' 开始数据库的事务
cn.BeginTrans
' 打开一个新的记录集
Set rst = New ADODB.Recordset
With rst
Set .ActiveConnection = cn
' 以键集开放锁打表 GUID 表
.Open "usysGUID", , adOpenKe.....................
........... |
|
|
