Funkce GUIDFromString převede Řetězec na GUID, což je Matice typu Byte.
Syntaxe
GUIDFromString (řetězcový_výraz)
Požadovaný argument řetězcový_výraz je řetězcový výraz, jehož výsledkem je identifikátor GUID v řetězcové formě.
Poznámky
Databázový stroj Microsoft Access ukládá identifikátory GUID jako matice typu Byte. Nemůžete Microsoft Office Access 2007 data o byte z datového Ovládací prvek na Formulář nebo Sestava. Pokud chcete vrátit hodnotu identifikátoru GUID ovládacího prvku, je nutné jej převést na řetězec. Pokud chcete převést identifikátor GUID na řetězec, použijte funkci StringFromGUID. Pokud chcete převést řetězec na identifikátor GUID, použijte funkci GUIDFromString.
Příklad dotazu
|
Výraz |
Výsledky |
|
SELECT userID,GUIDfromString(userGUID) as GUIDCode FROM GUID_Table; |
Zobrazí "userID", převede StringExpression(userGUID) na GUID (pole bajtů) a zobrazí ve sloupci GUIDCode. Tento příklad funguje jenom pro řetězcový výraz, který může být vyhodnocen jako identifikátor GUID. |
Příklad jazyka VBA
Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
V následujícím příkladu se funkce GUIDFromString použije k převodu řetězce na identifikátor GUID. Řetězec je guid uložený v řetězcové podobě v replikované tabulce Employees. Pole, s_GUID je skryté pole přidané do všech replikovaných tabulek v replikované databázi.
Sub CheckGUIDType()
Dim dbsConn As ADODB.Connection
Dim rstEmployees As ADODB.Recordset
' Make a connection to the current database.
Set dbsConn = Application.CurrentProject.Connection
Set rstEmployees = New ADODB.Recordset
rstEmployees.Open "Employees", _
dbsConn, , , adCmdTable
' Print the GUID to the immediate window.
Debug.Print rst!s_GUID
Debug.Print TypeName(rst!s_GUID)
Debug.Print TypeName(GuidFromString(rst!s_GUID))
Set rstEmployees = Nothing
Set dbsConn = Nothing
End Sub
