Функция GUIDFromString преобразует строка в GUID, которая является массив типа Byte.
Синтаксис
GUIDFromString ( строковое_выражение )
Обязательный аргумент строковое_выражение является строковым выражением, которое распознается как GUID в строковой форме.
Примечания
Ядро СУБД Microsoft Access хранит идентификаторы GUID в виде массивов типа Byte. Однако Access не может возвращать данные байтов из элемент управления в форма или отчет. Чтобы вернуть значение GUID из элемента управления, необходимо преобразовать его в строку. Чтобы преобразовать GUID в строку, используйте функцию StringFromGUID . Чтобы преобразовать строку в GUID, используйте функцию GUIDFromString .
Пример запроса
Expression |
Результаты |
---|---|
SELECT userID,GUIDfromString(userGUID) в качестве GUIDCode FROM GUID_Table; |
Отображает "userID", преобразует stringExpression(userGUID) в GUID (массив байтов) и отображается в столбце GUIDCode. Этот пример работает только для строкового выражения, которое может вычислить по GUID. |
Пример VBA
Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В приведенном ниже примере функция GUIDFromString используется для преобразования строки в код GUID. Строка является кодом GUID, который хранится в строковой форме в реплицированной таблице Employees. Поле s_GUID является скрытым полем, добавленным в каждую реплицированную таблицу в реплицированной базе данных.
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