A função GUIDFromString converte um cadeia num GUID, que é um matriz do tipo Byte.
Sintaxe
GUIDFromString ( stringexpression )
O argumento stringexpression necessário é uma expressão de cadeia que é avaliada como um GUID na forma de cadeia.
Observações
O motor de base de dados do Microsoft Access armazena GUIDs como matrizes do tipo Byte. No entanto, o Access não pode devolver dados de Bytes de um controlo num formulário ou relatório. Para devolver o valor de um GUID de um controlo, tem de convertê-lo numa cadeia. Para converter um GUID numa cadeia, utilize a função StringFromGUID . Para converter uma cadeia num GUID, utilize a função GUIDFromString .
Exemplo de consulta
Expressão |
Resultados |
---|---|
SELECT userID,GUIDfromString(userGUID) como GUIDCode FROM GUID_Table; |
Apresenta o "userID", converte o StringExpression(userGUID) em GUID (matriz de bytes) e é apresentado na coluna GUIDCode. Este exemplo só funciona para uma expressão de cadeia que pode ser avaliada como um GUID. |
Exemplo de VBA
Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.
O exemplo seguinte utiliza a função GUIDFromString para converter uma cadeia num GUID. A cadeia é um GUID armazenado no formulário de cadeia numa tabela Colaboradores replicada. O campo, s_GUID, é um campo oculto adicionado a todas as tabelas replicadas numa base de dados 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