Russian version
English version
ОБ АЛЬЯНСЕ | НАШИ УСЛУГИ | КАТАЛОГ РЕШЕНИЙ | ИНФОРМАЦИОННЫЙ ЦЕНТР | СТАНЬТЕ СПОНСОРАМИ SILICON TAIGA | ISDEF | КНИГИ И CD | ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ | УПРАВЛЕНИЕ КАЧЕСТВОМ | РОССИЙСКИЕ ТЕХНОЛОГИИ | НАНОТЕХНОЛОГИИ | ЮРИДИЧЕСКАЯ ПОДДЕРЖКА | АНАЛИТИКА | КАРТА САЙТА | КОНТАКТЫ
 
Программное обеспечение
 
Для зарегистрированных пользователей
 
РАССЫЛКИ НОВОСТЕЙ
IT-Новости
Новости компаний
Российские технологии
Новости ВПК
Нанотехнологии
 
Поиск по статьям
 
RSS-лента
Подписаться
Средства разработки

Работа с параметрами хранимой процедуры Firebird в Access

Для передачи и возврата параметров при работе со скалярной хранимой процедурой Firebird (далее ХП) можно использовать вполне стандартный метод:

Public Sub Test()

Dim ws As Workspace Dim cnn As Connection Dim qdf As QueryDef Dim dsn As String

dsn = "ODBC;DSN=FB Gemini;UID=SYSDBA;PWD=masterkey;" Set ws = DBEngine.CreateWorkspace("", "", "", dbUseODBC) Set cnn = ws.OpenConnection("cnn", , , dsn) Set qdf = cnn.CreateQueryDef("", "EXECUTE PROCEDURE SP_TEST ?") qdf.Parameters(0).Direction = dbParamInput qdf.Parameters(0).Value = 100 qdf.Parameters(1).Direction = dbParamOutput qdf.Execute MsgBox qdf.Parameters(0).Value & " x 2 = " & qdf.Parameters(1).Value

End Sub

Здесь в качестве примера использована очень простая ХП, которая возвращает удвоенное значение передаваемого ей аргумента:

SET TERM !! ;

CREATE PROCEDURE SP_TEST (NUM INTEGER) RETURNS (NUM2 INTEGER) AS BEGIN NUM2=NUM * 2; END !!

SET TERM ; !!

Важными в данном случае являются два момента:

  1. Хотя параметров у этой ХП два, в её вызов подставляется только один вопросительный знак, т.е. ровно столько, сколько передаётся в ХП. Количество возвращаемых параметров Access определяет сам.
  2. Не любой ODBC драйвер обеспечивает такую функциональность. Так, например, Gemini InterBase ODBC Driver версии 2.0 годится, а XTG Systems InterBase6 ODBC driver пока может быть использован только для передачи параметров, но не для возврата.


  Рекомендовать страницу   Обсудить материал Написать редактору  
  Распечатать страницу
 
  Дата публикации: 14.06.2006  

ОБ АЛЬЯНСЕ | НАШИ УСЛУГИ | КАТАЛОГ РЕШЕНИЙ | ИНФОРМАЦИОННЫЙ ЦЕНТР | СТАНЬТЕ СПОНСОРАМИ SILICON TAIGA | ISDEF | КНИГИ И CD | ПРОГРАММНОЕ ОБЕСПЕЧЕНИЕ | УПРАВЛЕНИЕ КАЧЕСТВОМ | РОССИЙСКИЕ ТЕХНОЛОГИИ | НАНОТЕХНОЛОГИИ | ЮРИДИЧЕСКАЯ ПОДДЕРЖКА | АНАЛИТИКА | КАРТА САЙТА | КОНТАКТЫ

Дизайн и поддержка: Silicon Taiga   Обратиться по техническим вопросам  
Rambler's Top100 Rambler's Top100