Мелкие вопросы по SQL и Access / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Мелкие вопросы по SQL и Access

9 сообщений из 9, страница 1 из 1

Мелкие вопросы по SQL и Access

#39402799

accsqlnew

Гость

У меня есть процедура с именем: sproc_select_currentorganization

Код: vbnet

EXEC proc_select_currentorganization @idorganization=%

@idorganization int

В коде пишу:

Код: vbnet

1.
2.

      qdf.SQL = "EXEC proc_select_currentorganization @idorganization=" & Forms![organization_sia]![organization_sia_subform].Form![id_organization]
      Me.RecordSource = "sproc_select_currentorganization"

Высказывает ошибка, что не может конвертировать nvarchar в int
Но у меня это числовой параметр и я никак не могу найти в интернете информацию чем заменить %.
Где-то было об этом (

...

Рейтинг:

0 / 0

11.02.2017, 21:37

| Ответить | Цитировать | Написать

Мелкие вопросы по SQL и Access

#39402805

accsqlnew

Гость

Run-time error ‘3146’ODBC – call failed
[Microsoft][ODBC SQL Server Driver][SQL Server]
Error converting data type nvarchar to int. (#8114)

...

Рейтинг:

0 / 0

11.02.2017, 21:49

| Ответить | Цитировать | Написать

Мелкие вопросы по SQL и Access

#39402842

accsqlnew

Гость

Код: vbnet

1.
2.
3.

Private Sub cmd_edit_Click()
        DoCmd.OpenForm "organization_newedit",,, "id_organization=" & Me.id_organization
End Sub

Вышеуказанный код я хочу заменить на следующий. Понимаю, что-то не то делаю, может кто объяснит мне, в чем дело?

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Private Sub cmd_edit_Click()
    Call DaoOdbcIn
        qdf.SQL = "EXEC proc_select_currentorganization @idorganization=" & Me.id_organization
        qdf.ReturnsRecords = True
        Set rstReport = qdf.OpenRecordset()
        rstReport.MoveFirst
        DoCmd.OpenForm "organization_newedit"
                    Forms![organization_newedit].RecordSource = "sproc_select_currentorganization @idorganization=" & Me.id_organization
      Call DaoOdbcOut
End Sub

В хранимой процедуре:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

Procedure [dbo].[proc_select_currentorganization]
	@idorganization int 
AS
SELECT		id_organization,
		organization,
		address
FROM		organization
WHERE		id_organization=@idorganization

Код: vbnet

EXEC proc_select_currentorganization @idorganization=%

...

Рейтинг:

0 / 0

11.02.2017, 23:47

| Ответить | Цитировать | Написать

Мелкие вопросы по SQL и Access

#39402886

proc_select_currentorganization

Гость

так сделай

В хранимой процедуре:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

Procedure [dbo].[proc_select_currentorganization]
	@idorganization int 
AS
SELECT		id_organization,
		organization,
		address
FROM		organization
WHERE		id_organization=@idorganization or @idorganization=0

Код: vbnet

EXEC proc_select_currentorganization @idorganization=0

...

Рейтинг:

0 / 0

12.02.2017, 08:44

| Ответить | Цитировать | Написать

Мелкие вопросы по SQL и Access

#39402914

а так?

Гость

Код: vbnet

qdf.SQL = "EXEC proc_select_currentorganization " & Me.id_organization

...

Рейтинг:

0 / 0

12.02.2017, 12:11

| Ответить | Цитировать | Написать

Мелкие вопросы по SQL и Access

#39402935

accsqlnew

Гость

Сейчас выскакивает такая ошибка.
авторRun-time error ‘2580’:
The record source ‘sproc_select_currentorganization @idorganization=42’ specified on this form or report does not exist.

Форма organization_newedit имеет пустой источник изначально. Получается, он не успевает присвоить с конкретным источником.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Private Sub cmd_edit_Click()
    Call DaoOdbcIn
        qdf.SQL = "EXEC proc_select_currentorganization @idorganization=" & Me.id_organization
        qdf.ReturnsRecords = True
        Set rstReport = qdf.OpenRecordset()
        rstReport.MoveFirst
        DoCmd.OpenForm "organization_newedit"
                    Forms![organization_newedit].RecordSource = "sproc_select_currentorganization @idorganization=" & Me.id_organization
      Call DaoOdbcOut
End Sub

...

Рейтинг:

0 / 0

12.02.2017, 13:14

| Ответить | Цитировать | Написать

Мелкие вопросы по SQL и Access

#39403608

пв

Гость

Код: vbnet

DoCmd.OpenForm "organization_newedit"

В organization_newedit на Open

Код: vbnet

1.
2.

me.recordsource="exec proc_select_currentorganization @idorganization=" _
& Forms("organization_sia").controls("organization_sia_subform").Form.recordset.fields("id_organization")

зы. если id_organization - поле источника данных

?

...

Рейтинг:

0 / 0

13.02.2017, 16:29

| Ответить | Цитировать | Написать

Мелкие вопросы по SQL и Access

#39404945

studieren

Участник

Откуда: Tashkent, Uzbekistan

Сообщения: 2 850

Рейтинг: 0 / 0

accsqlnew,

Если я правильно понял, то Вам нужны записи только по одной, указанной или по всем организациям?
Тогда переделайте хранимую процедуру вот так.

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Procedure [dbo].[proc_select_currentorganization]
	@idorganization int = Null
AS
SET NOCOUNT ON; -- На всякий случай.

SELECT		id_organization,
		organization,
		address
FROM		organization
WHERE		id_organization=@idorganization OR @idorganization Is Null

Ну и в VBA слегка переделайте свой код примерно так:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

Dim ID_Organization As String
ID_Organization = Forms![organization_sia]![organization_sia_subform].Form![id_organization] & ""
Select Case ID_Organization
Case "", "%"
    qdf.SQL = "EXEC proc_select_currentorganization"
Case Else
    qdf.SQL = "EXEC proc_select_currentorganization @idorganization=" & ID_Organization
End Select

...

Рейтинг:

0 / 0

15.02.2017, 14:33

| Ответить | Цитировать | Написать

Мелкие вопросы по SQL и Access

#39405080

accsqlnew

Гость

studieren,

Наконец получилось вызвать на форме нужную запись, осталось разобраться с тем, как на форме получить новую запись.

Спасибо за помощь.

...

Рейтинг:

0 / 0

15.02.2017, 16:23

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Мелкие вопросы по SQL и Access

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39403608&tid=1612722]:	0ms
get settings:	8ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	38ms
get topic data:	9ms
get forum data:	2ms
get page messages:	44ms
get tp. blocked users:	1ms
others:	344ms

total:	463ms