Странное поведение хранимой процедуры

Ruff32
Дата: 03.12.2009 08:14:48
Добрый день. Есть форма, соединённая с таблицей через ODBC. в таблице есть поле типа longblob? задачей которого является хранение файлов в БД.
Есть обработчик нажатия кнопки (по идее он обращается к хранимой процедуре на сервере MySQL *zagruz*, задача которой - сохранение содержимого blob-поля на диск C), но работает он странно. Какая бы запись не была выбрана - всё время сохраняет файл, у которого id=1...
Ниже привожу листинги обработчика и хранимки.

Private Sub Кнопка56_Click()
On Error GoTo Err_Кнопка56_Click
    Dim stDocName As String
    Dim rs2 As DAO.Recordset
    Set rs2 = CurrentDb.OpenRecordset("Ur")
    CurrentDb.QueryDefs("ur1").SQL = "Call zagruz(" & Str$(rs2!ID) & ")"
    stDocName = "ur1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
Exit_Кнопка56_Click:
    Exit Sub
Err_Кнопка56_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка56_Click
End Sub


PROCEDURE zagruz(IN p INT)
BEGIN
select cont from UR where id=p into outfile 'c:/_temp_.pdf' FIELDS ESCAPED BY '';
END

[url=]http://pic.ipicture.ru/uploads/091203/RKp4KJdAxN.jpg[/url] <=сама форма
ё
Дата: 03.12.2009 08:27:44
никаких странносте
процедуре в Кнопка56_Click - совершенно наплевать - какая запись выбранна в форме, на которой эта кнопка обитает
процедура (почему-то??) вызывается НЕ для значения АйДи записи рекордсета формы,
а для АйДи записи, неизвестно зачем созданного нового рекордсета
Ruff32
Дата: 03.12.2009 08:50:12
а можно в коде указать не верные строки?.. и как должно выглядеть правильно?
ё
Дата: 03.12.2009 08:57:57
Private Sub Кнопка56_Click()
On Error GoTo Err_Кнопка56_Click
    Dim stDocName As String
'    Dim rs2 As DAO.Recordset
'    Set rs2 = CurrentDb.OpenRecordset("Ur")
'    CurrentDb.QueryDefs("ur1").SQL = "Call zagruz(" & Str$(rs2!ID) & ")"
    CurrentDb.QueryDefs("ur1").SQL = "Call zagruz(" & Me.ID & ")"
    stDocName = "ur1"
    DoCmd.OpenQuery stDocName, acNormal, acEdit ' - это зачем? запрос к серверу - в принципе нередактируемый
Exit_Кнопка56_Click:
    Exit Sub
Err_Кнопка56_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка56_Click
End Sub
Ruff32
Дата: 03.12.2009 09:24:21
ё, спасибо за помощь.