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, Microsoft Office Access 2007 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