La función GUIDFromString convierte un cadena en un GUID, que es un matriz de tipo Byte.
Sintaxis
GUIDFromString ( expresión_de_cadena )
El argumento expresión_de_cadena necesaria es una expresión de cadena que se evalúa como un GUID en forma de cadena.
Comentarios
El motor de base de datos de Microsoft Access almacena los GUID como matrices de tipo Byte. Sin embargo, Access no puede devolver datos byte de un control en un formulario o informe. Para devolver el valor de un GUID de un control, debe convertirlo en una cadena. Para convertir un GUID en una cadena, use la función StringFromGUID . Para convertir una cadena en un GUID, use la función GUIDFromString .
Ejemplo de consulta
Expression |
Resultados |
---|---|
SELECT userID,GUIDfromString(userGUID) como GUIDCode FROM GUID_Table; |
Muestra el "userID", Convierte stringexpression(userGUID) en GUID (matriz de bytes) y se muestra en la columna GUIDCode. Este ejemplo solo funciona para una expresión de cadena que puede evaluarse como un GUID. |
Ejemplo VBA:
Nota: Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
En el ejemplo siguiente se usa la función GUIDFromString para convertir una cadena en un GUID. La cadena es un GUID almacenado en forma de cadena en una tabla employees replicada. El campo, s_GUID, es un campo oculto agregado a cada tabla replicada en una base de datos replicada.
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