A GUIDFromString függvény egy karakterláncGUID alakít át, amely egy Bájt típusú tömb.
Szintaxis
GUIDFromString ( stringexpression )
A szükséges sztringexpressziós argumentum egy sztringkifejezés, amely egy GUID-értéket ad vissza sztring formában.
Megjegyzések
A Microsoft Access adatbázismotor bájt típusú tömbökként tárolja a GUID azonosítókat. Az Access azonban nem tud bájtadatokat visszaadni űrlap vagy jelentésvezérlő. Ha egy vezérlő GUID-értékét szeretné visszaadni, sztringgé kell alakítania. A GUID sztringgé alakításához használja a StringFromGUID függvényt . Ha egy sztringet GUID-ra szeretne konvertálni, használja a GUIDFromString függvényt .
Példa lekérdezésre
|
Expression |
Eredmények |
|---|---|
|
SELECT userID,GUIDfromString(userGUID) as GUIDCode FROM GUID_Table; |
Megjeleníti a "userID" azonosítót, a StringExpression(userGUID) karakterláncot GUID-ra (bájtok tömbje) konvertálja, és megjeleníti a GUIDCode oszlopban. Ez a példa csak olyan sztringkifejezések esetében működik, amelyek GUID-ként értékelhetők ki. |
VBA-példa
Megjegyzés: A következő példák egy Visual Basic for Applications (VBA) modulban mutatják be a függvény használatát. A VBA használatáról a Keresés elem mellett található legördülő listából a fejlesztői forrásokat választva, majd egy vagy több keresőszót megadva kaphat további tájékoztatást.
Az alábbi példa a GUIDFromString függvénnyel konvertál egy sztringet GUID-ra. A sztring egy, a replikált Alkalmazottak táblában sztringűrlapon tárolt GUID. A mező (s_GUID) egy rejtett mező, amely egy replikált adatbázis összes replikált táblájában szerepel.
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
