Funkcija GUIDFromString

Taikoma
„Access“, skirta „Microsoft 365“ „Access 2024“ Access 2021 Access 2019 Access 2016

Funkcija GUIDFromString konvertuoja eilutę į GUID, kuris yra baito tipo masyvas.

Sintaksė

GUIDFromString(eilutės_reiškinys)

Būtinas eilutės išraiškos argumentas yra eilutės reiškinys, kuris vertina GUID eilutės forma.

Pastabos

"Microsoft Access" duomenų bazės modulis saugo GUID kaip baito tipo masyvus. Tačiau "Access" negali grąžinti baitų duomenų iš formos arba ataskaitos valdiklio. Norėdami grąžinti GUID reikšmę iš valdiklio, turite ją konvertuoti į eilutę. Norėdami konvertuoti GUID į eilutę, naudokite funkciją StringFromGUID . Norėdami konvertuoti eilutę į GUID, naudokite funkciją GUIDFromString .

Užklausos pavyzdys

Išraiška Rezultatai
SELECT userID,GUIDfromString(userGUID) as GUIDCode FROM GUID_Table; Rodo "userID", konvertuoja StringExpression(userGUID) į GUID (baitų masyvas) ir rodo stulpelyje GUIDCode. Šis pavyzdys tinka tik eilutės reiškiniui, kuris gali įvertinti GUID.

VBA pavyzdys

Pastaba

Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Toliau pateiktame pavyzdyje naudojama funkcija GUIDFromString eilutei konvertuoti į GUID. Eilutė yra GUID, saugomas eilutės forma replikuotoje lentelėje Darbuotojai. Laukas s_GUID yra paslėptas laukas, įtraukiamas į kiekvieną replikuotos duomenų bazės lentelę.


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