Access創(chuàng)建自動編號數(shù)據(jù)類型和獲取全球唯一編碼(GUID)的方法

數(shù)據(jù)庫表需要設(shè)置主鍵，主鍵是非重復(fù)的，而Access設(shè)置自動編號，即每當向表中添加一條新記錄時，從1開始，每次遞增 1。自動編號字段不能更新。

1、設(shè)置自動編號

在表設(shè)計視圖下，數(shù)據(jù)類型下拉選擇自動編號即可

2、設(shè)置GUID

GUID即全球唯一識別碼的自動編號：全局唯一標識符（GUID，Globally Unique Identifier）是一種由算法生成的二進制長度為128位的字符串。GUID主要用于在擁有多個節(jié)點、多臺計算機的網(wǎng)絡(luò)或系統(tǒng)中。GUID 的格式為“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx”，其中的 x 是 0-9 或 a-f 范圍內(nèi)的一個32位十六進制數(shù)?，F(xiàn)階段，任何計算機都不可能生成兩個相同的GUID。為了方便今后的分類搜索查詢，確保唯一性。它的每條記錄都是唯一不重復(fù)的值，類似：{9E4038C8-E965-45B1-BDE1-9F06E6B280A3}

在設(shè)計視圖中建立GUID列時，數(shù)據(jù)類型選擇自動編號。同時，在下面常規(guī)選項卡中“字段大小”中選擇了“同步復(fù)制 ID”，索引中選擇了“有(無重復(fù))”。

3、自定義獲取GUID

分享一個自定義的獲取全球唯一識別碼的GUID函數(shù)

Private Type GUID
Data1 As Long
Data2 As Long
Data3 As Long
Data4(8) As Byte
End Type
Private Declare Function CoCreateGuid Lib "ole32.dll" ( _
pguid As GUID) As Long
Private Declare Function StringFromGUID2 Lib "ole32.dll" ( _
rguid As Any, _
ByVal lpstrClsId As Long, _
ByVal cbMax As Long) As Long

自定義一個函數(shù)
Public Function GetNewGuild() As String
Dim g As GUID
Dim b() As Byte
Dim lSize As Long
Dim lR As Long
CoCreateGuid g
lSize = 40
ReDim b(0 To (lSize * 2) - 1) As Byte
lR = StringFromGUID2(g, VarPtr(b(0)), lSize)
GetNewGuild = Left$(b, lR - 1)
End Function