ADP
Пишу
Dim lExpenseId As Variant
lExpenseId = Forms("frm5Expense")!fId
With fnADOCommand("sp551ExpenseMaxPos")
.Parameters("@pId") = lExpenseId
.Execute , , adExecuteNoRecords
lPos = .Parameters("@pPos")
End With
а оно мне на .execute
Invalid character value for cast specification
как из гвида строку для скуэль сервера сделать? Такой фак написали про всякие там даты с числами, про которые и так все ясно. Написали б че нибудь про гУИД

Спасибо, счас попробую
fnADOCommand- это хитрая пропертя, которая все че надо делает, так-что сервер попусту не дергается.
А все-ж может у кого есть готовая процедурка, которая из гвида красивую строку делает для динамического SQL. Опять же в факе бы увековечили:-)

Не, не пашет.

Я же написал: пропертя хитрая. Рефреш делается явно и заранее, один раз при старте приложения. Не мучте мою пропертю:-), она хорошая, лучше про гвид расскажите.

>А lExpenseId (который типа гуид) как получаешь
lExpenseId = Forms("frm5Expense")!fId
У нее источник записей -бесхитростная таблица, у которой поле fId-типа uniqueidentifier

>Вроде были какие-то функции StringToGUID, GUIDToString или что-то вроде этого... Попробуй их поискать и помучать.

Дык давно. Параша это. Не делают они ни хрена.

StringFromGuid- та же херня, GuidFromString- ActiveX component can't create object
Где они там эктивикс нашли..

Придется кажися самому из байтиков буковки делать:-)

Дык весь вопрос в том, как их ему скормить. Хотя через таблицу он хавает. Те если я этот свой вариант вставляю в таблицу с полем ГВИД, то он хавает. Это мне чтож, толкать вариант в дурацкую таблицу, а потом процедурой ту таблицу читать? Изврат какой-то.
Попробую ручками строчку эту противную собрать. Хотя как из варианта какие-нибудь осмысленные данные вытянуть, я еще не придумал.

>Parameters("@pId").Size=36
один хрен
За ссылки большое спасибо. У меня тоже про эктивикс, и переменная вариант, когда в отладчике на нее курсор наводишь, восьмью вопросиками изображается. Поди мне чиго то надо из OLe32.dll объявить.

Я похоже решил свой трамблема. Я просто без варианта толкаю значение поля, и она, похоже, это хавает. Вариант с гвидом как-то коряво работает. Но вопрос получения строки из гвида остается актуальным. В смысле есть у меня поле с гвидом внутри, хочу строку с фигурными скобочками и минусиками.

Усе равно не пашет.
С помощью Виктора нашел такой пример:

Option Compare Database
Option Explicit
Private Declare Function CoCreateGuid Lib "OLE32.DLL" _
(pGuid As GUID) As Long
Private Declare Function StringFromGUID2 Lib "OLE32.DLL" _
(pGuid As GUID, ByVal PointerToString As Long, _
ByVal MaxLength As Long) As Long
Private Const GUID_OK As Long = 0
Private myGUID As String
Private Type GUID
Guid1 As Long
Guid2 As Integer
Guid3 As Integer
Guid4(0 To 7) As Byte
End Type

Public Function getGUIDKey() As String
Const MAX_GUID_LENGTH As Long = 38
Dim udtGUID As GUID
Dim strGUID As String
Dim lngRetCode As Long
lngRetCode = CoCreateGuid(udtGUID)
If lngRetCode = GUID_OK Then
strGUID = String(MAX_GUID_LENGTH, 0)
StringFromGUID2 udtGUID, StrPtr(strGUID), _
MAX_GUID_LENGTH + 1
Else
strGUID = ""
End If
getGUIDKey = strGUID
End Function

Он пашет. Но я все равно не могу понять, как мне запихать туда свой вариант. Иначе говоря, как преобразовать вариант с 16 байтами внутри во что-то удобосъедаемое. Как следует из примера strptr- это указатель на переменную(в хелпе не нашел, кстати). А как присвоить указателю переменной чего-нибудь?

Спасибо, но у меня обратная задача. У меня есть гвид внутри варианта, надо затолкать его на сервер. Есть идея использовать для преобразования поле формы.

Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(lpDest As Any, _
lpSource As Any, ByVal cbCopy As Long)

Function test2()
Dim i As Integer
Dim b(1 To 16) As Byte
'{55F02701-77DA-4DF0-9E78-D6DDB1C21134}
CopyMemory b(1), ByVal StrPtr(DLookup("fId", "t5Expense")), 16
For i = 1 To 16
Debug.Print Hex(b(i));
Next
End Function