Здравствуйте. Возникли некоторые вопросы, надеюсь кто-нибудь поможет.
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