Funkcija „GUIDFromString“

Primenjuje se na
Access za Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Funkcija GUIDFromString konvertuje nisku u GUID, koji predstavlja niz tipa bajt.

Sintaksa

GUIDFromString(stringexpression)

Neophodni argument stringexpression je izraz niske koji kao rezultat daje GUID u obliku niske.

Napomene

Mašina Microsoft Access baze podataka skladišti GUID-ove kao nizove tipa bajt. Međutim, Access ne može da vrati podatke u bajtovima iz kontrole u obrascu ili izveštaju. Da biste dobili vrednost GUID-a iz kontrole, morate je konvertovati u nisku. Da biste konvertovali GUID u nisku, koristite funkciju StringFromGUID . Da biste konvertovali nisku u GUID, koristite funkciju GUIDFromString .

Query example

Izraz Rezultati
SELECT userID,GUIDfromString(userGUID) as GUIDCode FROM GUID_Table; Prikazuje "userID", konvertuje StringExpression (userGUID) u GUID (niz bajtova) i prikazuje u koloni GUIDCode. Ovaj primer funkcioniše samo za izraz niske koji može da daje GUID.

VBA primer

Napomena

Primeri koji slede pokazuju upotrebu ove funkcije u Visual Basic for Applications (VBA) modulu. Za više informacija o radu sa VBA modulom izaberite stavku Referenca razvojnog programera sa padajuće liste pored stavke Pretraga i unesite termine u polje za pretragu.

Sledeći primer koristi funkciju GUIDFromString za konvertovanje niske u GUID. Niska predstavlja GUID uskladišten u obliku niske u repliciranoj tabeli "Zaposleni". Polje, s_GUID, je skriveno polje dodato svakoj repliciranoj tabeli u repliciranoj bazi podataka.


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