Проект adp.
Главная форма
frmMain2
Подчин. ф-ма
frmSub2
3 поля на главной форме (критерий запроса).
и куча полей соотв. в подчин. ф-ме для результата запроса.
Кнопка для запуска хранимой процедуры.
Процедура
spSearch :
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
ALTER PROCEDURE spSearchSuperAdvanced
@Fam varchar( 50 ), @Name varchar( 50 ), @Otch varchar( 50 )
As
SET NOCOUNT ON
Declare @WhereCriteria varchar( 1000 )
Declare @FromWhat varchar( 1000 )
Declare @SQLSTRING varchar( 1000 )
--Making WHERE criteria------------------------------------------------------------------------------------------------------------------------
IF @Fam Is NOT NULL
BEGIN
SELECT @WhereCriteria = 'WHERE dbo.ЛИЦО.Fam = ''' + @Fam + ''''
END
IF @Name Is NOT NULL
BEGIN
IF @WhereCriteria Is NOT NULL
BEGIN
SELECT @WhereCriteria = @WhereCriteria + ' ' + 'AND dbo.ЛИЦО.Name = ''' + @Name + ''''
END
ELSE
BEGIN
SELECT @WhereCriteria = 'WHERE dbo.ЛИЦО.Name = ''' + @Name + ''''
END
END
IF @Otch Is NOT NULL
BEGIN
IF @WhereCriteria Is NOT NULL
BEGIN
SELECT @WhereCriteria = @WhereCriteria + ' ' + 'AND dbo.ЛИЦО.Otch = ''' + @Otch + ''''
END
ELSE
BEGIN
SELECT @WhereCriteria = 'WHERE dbo.ЛИЦО.Otch = ''' + @Otch + ''''
END
END
--Making FROM statement------------------------------------------------------------------------------------------------------------------------
IF (SELECT Count(dbo.ЛИЦО_АДРЕС.ID) FROM dbo.АДРЕС INNER JOIN dbo.ЛИЦО_АДРЕС ON dbo.АДРЕС.IdAdr = dbo.ЛИЦО_АДРЕС.IDAdr INNER JOIN dbo.ЛИЦО ON dbo.ЛИЦО_АДРЕС.ID = dbo.ЛИЦО.ID) >= 1
BEGIN
SELECT @FromWhat = ' FROM dbo.АДРЕС INNER JOIN dbo.ЛИЦО_АДРЕС ON dbo.АДРЕС.IdAdr = dbo.ЛИЦО_АДРЕС.IDAdr INNER JOIN dbo.ЛИЦО ON dbo.ЛИЦО_АДРЕС.ID = dbo.ЛИЦО.ID '
END
ELSE
BEGIN
SELECT @Fam = ' '
SELECT @Name = ' '
SELECT @Otch = ' '
GOTO LabelExit
END
IF @Name Is NULL AND @Fam Is NULL AND @Otch Is NULL
BEGIN
SELECT @SQLSTRING = @SQLSTRING
END
ELSE
BEGIN
SELECT @SQLSTRING = 'SELECT dbo.ЛИЦО.Fam, dbo.ЛИЦО.Name, dbo.ЛИЦО.Otch, dbo.ЛИЦО.BDate, dbo.ЛИЦО.BDatePrimerno, dbo.ЛИЦО.DDate, dbo.ЛИЦО.Gender,
dbo.ЛИЦО.Nation, dbo.ЛИЦО.Grajdan, dbo.ЛИЦО.BirthPlace, dbo.ЛИЦО.Klichka, dbo.ЛИЦО.Sudim, dbo.ЛИЦО.Svyazi, dbo.ЛИЦО.Info,
dbo.АДРЕС.Country, dbo.АДРЕС.Oblast, dbo.АДРЕС.NasPunkt, dbo.АДРЕС.Street, dbo.АДРЕС.House, dbo.АДРЕС.Korpus, dbo.АДРЕС.Stroenie,
dbo.АДРЕС.Vladenie, dbo.АДРЕС.Flat, dbo.ЛИЦО_АДРЕС.Type ' + @FromWhat + @WhereCriteria
END
------------------------------------------------------------------------------------------------------------------------------------------------------
EXECUTE(@SQLSTRING)
LabelExit:
Процедура пашет без проблем.
В общем все настраиваю как надо -
Источник записей ,
Входные параметры и
Обработчик нажатия на кнопку :
1.
2.
Private Sub cmdOpenFinal_Click()
DoCmd.Requery ( "subfrmFinal2" )
End Sub
Все сохраняю и открываю форму в режиме формы. Все пашет.
Закрываю форму. Окрываю заново. Появляется мессага: "Сохраненная процедура выполнена успешно, но ни одной записи не возвращено".
Жму ОК. Появляется форма. Вбиваю запрос и нажимаю на кнопку. Ничего не происходит... Фигня какая-то...
Как быть?
