Передача параметров из Access в ХП SQL Server

@rvg · Регистрация: 24.08.2014

Author24 — интернет-сервис помощи студентам

Привет всем,
подскажите как правильно передать параметры в хранимую процедуру при ее вызове из Access?
На сервере создал ХП:

T-SQL

USE [ASDF]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[z_Server_Ambzab] 
@D1 datetime = null 
,@D2 datetime = null 
AS
BEGIN
    SET NOCOUNT ON;
SELECT *
FROM dbo.Ambzab;
END

В Access имеются пользовательские функции D1() и D2() (краткий формат дата и время)
Из Access вызываю ХП:

Visual Basic

1	exec z_server_ambzab

Как передать в ХП значение интервала дат Between D1() And D2() ?

@rvg · 07.05.2017, 17:10 **[ТС]**

texnik-san, спасибо, заработало, казалось бы ерунда, а три дня промучался

Добавлено через 44 минуты
Подведу итоги, может кому пригодится.
Вариант передачи параметров хранимой процедуре.
Требуется присвоить значения переменным @DT1 и @DT2, чтобы произвести выборку данных из таблицы. Результат получить в виде запроса в Access для последующей с ним работы.
На сервере (хранимая процедура):

T-SQL

USE [ASDF]
GO
/****** Object:  StoredProcedure [dbo].[z_server_ambzab]    Script Date: 07.05.2017 7:39:58 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[z_server_ambzab] 
    -- Add the parameters for the stored procedure here
    @DT1 datetime, 
    @DT2 datetime
AS
BEGIN
 
    SET NOCOUNT ON;
 
SELECT Ambzab.IDZAB, Ambzab.RegDataZ, Ambzab.KDR, Ambzab.KK, Ambzab.PRIMZ, Ambzab.REPEATEDZ, Ambzab.UMOZ, Ambzab.KZ, Ambzab.SLUCHTRUDZ, Ambzab.DNITRUDZ, Ambzab.KONSZ
FROM Ambzab
WHERE (((Ambzab.RegDataZ) Between @DT1 And @DT2));
END

В Access создаем т.н. "запрос к серверу" в котором пишем код:

Visual Basic

1
2
3

EXEC z_server_ambzab @DT1 = '20170101', @DT2 = '20170131'
' или в таком виде:
EXEC z_server_ambzab @DT1 = ' ', @DT2 = ' '

где '20170101' и '20170131' даты в немецком формате без разделителей (2017.01.01 и 2017.01.31), любые, которые есть в таблице, главное чтобы параметры передавались и запрос срабатывал в таком виде.
Далее на событие нажатия кнопки в форме, в которой используется результат запроса к серверу или результат нескольких взаимосвязанных запросов в которых участвует запрос к серверу, вешаем процедуру texnik-san, открываем результирующий запрос:

Visual Basic

Private Sub Кнопка13_Click()
Dim str As String
str = "EXEC z_server_ambzab @DT1 = '" & Format(d1(), "YYYYMMDD") & "', @DT2 = '" & Format(d2(), "YYYYMMDD") & "'"
CurrentDb.QueryDefs("z_Server_Ambzab").SQL = str
DoCmd.OpenQuery "z_server_ambzab"
End Sub

ну и далее как положено, радуемся

Добавлено через 30 минут
*) d1() и d2() функции дата и время, задаваемые пользователем

@texnik-san · 07.05.2017, 21:27

Позволю себе еще два примечания:

1)

Сообщение от rvg

даты в немецком формате без разделителей (2017.01.01 и 2017.01.31), любые, которые есть в таблице

Выделенное жирным - совершенно необязательно.

2)

Сообщение от rvg

(((Ambzab.RegDataZ) Between @DT1 And @DT2))

А вот тут может быть подводный камень, если поле Ambzab.RegDataZ может содержать не только дату, но и время.

Допустим, DT2 равно '20161212'. Вы будете очень удивлены, но 12.12.2016 15:15 не попадет в выборку. Потому что 12.12.2016 15:15 > 12.12.2016 00:00.

Я бы рекомендовала заменить условие на

SQL

1	(Ambzab.RegDataZ >= @DT1) AND (Ambzab.RegDataZ < (@DT2+1))

@texnik-san · 07.05.2017, 21:30

Позволю себе еще два примечания:

1)

Сообщение от rvg

даты в немецком формате без разделителей (2017.01.01 и 2017.01.31), любые, которые есть в таблице

Выделенное жирным - совершенно необязательно.

2)

Сообщение от rvg

(((Ambzab.RegDataZ) Between @DT1 And @DT2))

А вот тут может быть подводный камень, если поле Ambzab.RegDataZ может содержать не только дату, но и время.

Допустим, DT2 равно '20161212'. Вы будете очень удивлены, но 12.12.2016 15:15 не попадет в выборку. Потому что 12.12.2016 15:15 > 12.12.2016 00:00.

Я бы рекомендовала заменить условие на

SQL

1	(Ambzab.RegDataZ >= @DT1) AND (Ambzab.RegDataZ < (@DT2+1))

Добавлено через 3 минуты
Да и переменные @DT1, @DT2 описала бы как date, а не datetime - если только не подразумевается передача точного значения времени (но тогда и рекомендация о замене Between на >= AND < неверна)

@rvg · 07.05.2017, 22:20 **[ТС]**

поле RegDataZ получило свойство datetime автоматически при импорте таблиц и поскольку в исходных таблицах оно имеет краткий формат даты, то часы:мин везде имеют значение 00:00, но Ваше замечание в любом случае я учту ))

@rvg 150 / 28 / 3 Регистрация: 24.08.2014 Сообщений: 485
	07.05.2017, 22:20 [ТС]	24
	поле RegDataZ получило свойство datetime автоматически при импорте таблиц и поскольку в исходных таблицах оно имеет краткий формат даты, то часы:мин везде имеют значение 00:00, но Ваше замечание в любом случае я учту )) 0