-Поиск по дневнику

Поиск сообщений в rss_sql_ru_access_programming

 -Подписка по e-mail

 

 -Постоянные читатели

 -Статистика

Статистика LiveInternet.ru: показано количество хитов и посетителей
Создан: 16.03.2006
Записей:
Комментариев:
Написано: 4


Работа с хранимыми процедурами и представлениями в ADP-проекте на VBA

Четверг, 29 Мая 2014 г. 11:50 + в цитатник
Здравствуйте. Возникли некоторые вопросы, надеюсь кто-нибудь поможет.
1) Хранимые процедуры. На серваке лежит процедурка с входящим параметром. В общем-то, это обычная выборка. Так вот, как на VBA вызвать эту процедуру и получить результат? Допустим, она должна возвращать несколько значений из полей таблицы. А эти значения нужно раскидать по текстбоксам. Приведите в качестве примера кусок кода, плиз. Ну, а вот, собственно, процедура (наверное выходные данные надо как-то указать, типа OUT, но я что-то не допер, тыкните плиз носом как правильно составить процедуру):
ALTER PROCEDURE [dbo].[SearchJobless] 
	@PassportSQL nvarchar(255)
        AS
        BEGIN
	SELECT PassportID, PassportDate, PassportPlace, House, Flat, Phone, Birthday, RecordOfService, ReqWage, Experience
	FROM dbo.tblJobless
	WHERE PassportID = @PassportSQL
END

2)Представления. Вопрос тот же: как на VBA работать с лежащим на серваке представлением. Надо как-то передать значение фильтра, а вернуть значения полей и тоже раскидать по текстбоксам, например. Вот пример представления (тоже самое по смыслу как и в процедуре):
SELECT        dbo.tblJobless.PassportID, dbo.tblJobless.House, dbo.tblJobless.Flat, dbo.tblJobless.PassportDate, dbo.tblJobless.PassportPlace, dbo.tblJobless.Birthday, 
              dbo.tblJobless.Phone, dbo.tblJobless.RecordOfService, dbo.tblJobless.Experience, dbo.tblJobless.ReqWage, dbo.tblJobless.NumberOfClasses, 
              dbo.tblJobless.UniversityName, dbo.tblJobless.Workless, dbo.tblJobless.RegistrationDate, dbo.tblCity.CityName, dbo.tblStreet.StreetName, 
              dbo.tblSpecialty.SpecialtyName
FROM       dbo.tblJobless INNER JOIN
              dbo.tblCity ON dbo.tblJobless.CityID = dbo.tblCity.CityID INNER JOIN
              dbo.tblSpecialty ON dbo.tblJobless.SpecialtyID = dbo.tblSpecialty.SpecialtyID INNER JOIN
              dbo.tblStreet ON dbo.tblJobless.StreetID = dbo.tblStreet.StreetID
WHERE        (dbo.tblJobless.PassportID = N'12345678')


Ну, а вот что я сам нагуглил. Это самое адекватное, что удалось найти.
Dim strParam1 As String, lngParam2 As Long
   strParam1 = "Некая строка"
   lngParam2 = 500
   CurrentProject.Connection.Execute "exec [dbo].[ИмяПроцедуры] " & strParam1 & ", " & _
   strParam2, Options:=adCmdText+adExecuteNoRecords 


Но это только вызов, передача параметра. А вот результат не возвращается.
Заранее, спасибо.

http://www.sql.ru/forum/1097475/rabota-s-hranimymi-procedurami-i-predstavleniyami-v-adp-proekte-na-vba


 

Добавить комментарий:
Текст комментария: смайлики

Проверка орфографии: (найти ошибки)

Прикрепить картинку:

 Переводить URL в ссылку
 Подписаться на комментарии
 Подписать картинку