powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Передача параметра в SQL-сервер
11 сообщений из 36, страница 2 из 2
Передача параметра в SQL-сервер
    #32248492
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1)а ты пробовал создать новый запрос с исходным текстом?
2) нет ли у тебя полей названных по русски или служебными словами?
3) покажи текст sp_tabel_zaneseni



у меня были случаи когда ломались запросы
...
Рейтинг: 0 / 0
Передача параметра в SQL-сервер
    #32248503
Glory
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вообще говоря на этот случай есть волшебные слова SET NOCOUNT OFF

Скорее всего SET NOCOUNT ON. Особенно если в процедуре имеются запросы INSERT/UPDATE/DELETE
...
Рейтинг: 0 / 0
Передача параметра в SQL-сервер
    #32248514
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
товарищ упорно не показывает текст процедуры, поэтому остаётся только одно-правильно избрать способ гадания
...
Рейтинг: 0 / 0
Передача параметра в SQL-сервер
    #32248523
grival
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я с помощью программки (см. ниже) создаю запрос к серверу для того, чтобы использовать переменные из формы ( [Forms]![Tabel].[Ksp1]). Это числовое поле, а еще есть поле даты, но я его пока опускаю.

Dim db As Database, qdf As QueryDef
Set db = CurrentDb
Set qdf = db.QueryDefs("Diagr")
qdf.Connect = "ODBC;DRIVER=SQL Server;SERVER=(local);UID=administrator;Trusted_Connection=Yes"
qdf.SQL = " "
qdf.SQL = qdf.SQL & " declare @kspM smallint" & Chr(13) & Chr(10)
qdf.SQL = qdf.SQL & " set @kspM = " & [Forms]![Tabel].[Ksp1] & Chr(13) & Chr(10)
qdf.SQL = qdf.SQL & "exec sp_tabel_zaneseni @kspM" & Chr(13) & Chr(10)
qdf.Execute
qdf.Close
Set qdf = Nothing

А процедура простейшая:

CREATE PROCEDURE [sp_tabel_zaneseni]
(@kspM smallint)
AS
SELECT Nsp, Ksp
FROM dbo.Infor
WHERE ksp=@kspM
...
Рейтинг: 0 / 0
Передача параметра в SQL-сервер
    #32248529
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Скорее всего SET NOCOUNT ON
Позор на мою седую голову
Всего в нескольких буквах ашипся - а так стыдно
grival, прислушайся к словам Glory
...
Рейтинг: 0 / 0
Передача параметра в SQL-сервер
    #32248535
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я ведь в самом начале говорил
В этом случае нужно или генерить строку с подстановкой параметра
или использовать Query.Parameters


Вариант 1:
...
qdf.SQL = "exec sp_tabel_zaneseni " & str([Forms]![Tabel].[Ksp1])
...
Вариант 2:
Использование QueryDefs.Parameters (см. справку)
...
Рейтинг: 0 / 0
Передача параметра в SQL-сервер
    #32248538
grival
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Заработало! С Set Nocount on заработало. Огромное спасибо всем. Извините за затраченное на меня время
...
Рейтинг: 0 / 0
Передача параметра в SQL-сервер
    #32248550
Фотография TatianaT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот с этого и надо было начинать

сомневаюсь что ты таким образом(через SP) в А97 получишь результат селекта
переделай так:
Dim db As Database, qdf As QueryDef
Set db = CurrentDb
Set qdf = db.QueryDefs("Diagr")
qdf.Connect = "ODBC;DRIVER=SQL Server;SERVER=(local);UID=administrator;Trusted_Connection=Yes"
qdf.SQL = " "
qdf.SQL = qdf.SQL & " SELECT Nsp, Ksp FROM dbo.Infor WHERE ksp= " & [Forms]![Tabel].[Ksp1]
Qdf.ReturnsRecords = True
qdf.Execute
qdf.Close
Set qdf = Nothing

и ещё чуть-чуть дёгтя- результат этого селекта будет не редактируемый
...
Рейтинг: 0 / 0
Передача параметра в SQL-сервер
    #32248557
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 Татьяна
Получит. Еще как получит. Все равно непонятно зачем именно так. Ну да и хрен бы с ним. Колхоз - дело добровольное.
...
Рейтинг: 0 / 0
Передача параметра в SQL-сервер
    #32248565
Glory
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Лох Позорный
Ну дык - Как вы яхту назовете, так она и поплывет
...
Рейтинг: 0 / 0
Передача параметра в SQL-сервер
    #32248573
grival
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А как я могу по-другому выполнить процедуру с параметром из формы?
...
Рейтинг: 0 / 0
11 сообщений из 36, страница 2 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Передача параметра в SQL-сервер
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]