Вызов хранимой процедуры с параметров из SQL Server в VBA в ADP проект MS Access

@Rembon · Регистрация: 21.10.2018

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

Доброго времени суток. Такая проблемка, не знаю как исправить... Битый час туплю. Делаю поиск клиентов через процедуру с параметром, передаю ей значения из полей, но ни одна запись не удовлетворяет этим данным.
Вот код кнопки:

Visual Basic

Private Sub Кнопка276_Click()
 Dim objMyConn As ADODB.Connection
    Dim objMyCommand As ADODB.Command
    Dim objMyRecordset As ADODB.Recordset
    
    Set objMyConn = New ADODB.Connection
    Set objMyCommand = New ADODB.Command
    Set objMyRecordset = New ADODB.Recordset
 
    Set objMyConn = CurrentProject.Connection
    
    With objMyCommand
    .ActiveConnection = objMyConn
    .CommandText = "dbo.pr_Poisk"
    .CommandType = adCmdStoredProc
    .Parameters.Append .CreateParameter("@ClientFamily", adChar, adParamInput, 20, Me.ClientF.Value)
    .Parameters.Append .CreateParameter("@ClientName", adChar, adParamInput, 20, Me.ClientN.Value)
    .Parameters.Append .CreateParameter("@ClientPatronymic", adChar, adParamInput, 20, Me.ClientP.Value)
    End With
    Set objMyRecordset = objMyCommand.Execute()
'    If (objMyRecordset.RecordCount > 0) Then
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Clienti"
    stLinkCriteria = "[ClientID]=" & objMyRecordset!ClientF.Value
    DoCmd.OpenForm stDocName, , , stLinkCriteria
'    Else
'    MsgBox "Ничего не найдено по вашему запросу.", vbInformation, "Оповещение"
'    End If
End Sub

Вот код самой процедуры:

SQL

USE [Сервисный центр]
GO
/****** Object:  StoredProcedure [dbo].[pr_Poisk]    Script Date: 12.05.2019 17:31:24 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[pr_Poisk]
@ClientFamily NCHAR(20)=NULL,
@ClientName NCHAR(20)=NULL,
@ClientPatronymic NCHAR(20)=NULL
AS
BEGIN
SELECT * FROM Client 
WHERE ((@ClientFamily IS NULL) OR (ClientF = @ClientFamily))
AND ((@ClientName IS NULL) OR (ClientN = @ClientName))
AND ((@ClientPatronymic IS NULL) OR (ClientP=@ClientPatronymic))
END

Добавлено через 7 минут
В 25 строчке забыл исправить ClientF.Value на ClientID. Тогда он и ругается на stLinkCriteria

Добавлено через 2 часа 41 минуту
Спасибо, разобрался сам, можно закрывать тему.

mobile · 12.05.2019, 17:59

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

Спасибо, разобрался сам, можно закрывать тему.

Плюсик поставил за "разобрался сам", но было бы очень неплохо рассказать сообществу в чем же была загвоздка. Может быть кого-то Ваше сообщение спасет.

@snipe · 12.05.2019, 21:26

вероятнее всего вот тут
dbo.pr_Poisk
в данном случае указана [схема].[таблица]
сколько сталкивался то должно быть
[база].[схема].[таблица]

@Rembon · 13.05.2019, 18:37 **[ТС]**

Проблема была в том, что нужно передавать в переменную не .Value, а Column() в параметрах, ведь это было поле со списком. Вот и решение)

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	12.05.2019, 17:59	2
	Сообщение от Rembon Спасибо, разобрался сам, можно закрывать тему. Плюсик поставил за "разобрался сам", но было бы очень неплохо рассказать сообществу в чем же была загвоздка. Может быть кого-то Ваше сообщение спасет. 1

@snipe 4064 / 1445 / 399 Регистрация: 07.08.2013 Сообщений: 3,617
	12.05.2019, 21:26	3
	вероятнее всего вот тут dbo.pr_Poisk в данном случае указана [схема].[таблица] сколько сталкивался то должно быть [база].[схема].[таблица] 0

@Rembon 7 / 8 / 0 Регистрация: 21.10.2018 Сообщений: 50
	13.05.2019, 18:37 [ТС]	4
	Проблема была в том, что нужно передавать в переменную не .Value, а Column() в параметрах, ведь это было поле со списком. Вот и решение) 1