Funkcia GUIDFromString konvertuje reťazec na GUID, čo je pole typu Byte.
Syntax
GUIDFromString ( stringexpression )
Povinný argument stringexpression je reťazcový výraz, ktorý sa vyhodnotí ako identifikátor GUID vo forme reťazca.
Poznámky
Databázový stroj programu Microsoft Access ukladá identifikátory GUID ako polia typu Byte. Access však nemôže vrátiť bajtové údaje z ovládací prvok na formulár alebo zostava. Ak chcete vrátiť hodnotu guid z ovládacieho prvku, musíte ju skonvertovať na reťazec. Ak chcete konvertovať identifikátor GUID na reťazec, použite funkciu StringFromGUID . Ak chcete konvertovať reťazec na identifikátor GUID, použite funkciu GUIDFromString .
Príklad dotazu
Výraz |
Výsledky |
---|---|
SELECT userID,GUIDfromString(userGUID) ako GUIDCode FROM GUID_Table; |
Zobrazí hodnotu userID, konvertuje reťazec StringExpression(userGUID) na identifikátor GUID (pole bajtov) a zobrazí sa v stĺpci GUIDCode. Tento príklad funguje len pre reťazcový výraz, ktorý sa môže vyhodnotiť ako identifikátor GUID. |
Príklad jazyka VBA
Poznámka: Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.
Nasledujúci príklad používa funkciu GUIDFromString na skonvertovanie reťazca na identifikátor GUID. Reťazec je identifikátor GUID uložený vo forme reťazca v replikovanej tabuľke Zamestnanci. Pole s_GUID je skryté pole pridané do každej replikovaných tabuliek v replikovanej databáze.
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