Funkce GUIDFromString převede řetězec na identifikátor GUID, což je pole typu Byte.
Syntaxe
GUIDFromString(řetězcový výraz)
Povinným argumentem řetězcového výrazu je řetězcový výraz, jehož výsledkem je v řetězcovém formátu identifikátor GUID.
Poznámky
Databázový stroj Microsoft Access ukládá identifikátory GUID jako matice typu Byte. Access ale nemůže vrátit bajtová data z ovládacího prvku ve formuláři nebo sestavě. Chcete-li 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 pouze pro řetězcový výraz, který může být vyhodnocen jako 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žívá k převodu řetězce na identifikátor GUID. Jedná se o identifikátor GUID, který je uložený v podobě řetězce v replikované tabulce zaměstnanců. Toto pole (s_GUID) je skryté pole, které se přidá do každé replikované tabulky 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