office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2017-09-04 11:10:00
tmtony8
原創
3188

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


1、設置自動編號

在表設計視圖下,數據類型下拉選擇自動編號即可


2、設置GUID

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

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


3、自定義獲取GUID

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


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

自定義一個函數
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
    分享
    北京十一选五基本走势