ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запуск процедуры SQL в VBa ACCESS (adp)
5 сообщений из 5, страница 1 из 1
Запуск процедуры SQL в VBa ACCESS (adp)
    #36593801
Mari-Salt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mari-Salt
Участник
Здравствуйте!
у меня ADP соединенный к SQL2000. Есть процедура в SQL2000. Необходимо по нажатию кнопки запустилась процедура(вставка данных в табл)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub Кнопка_Click() 

Dim Cn As ADODB.Connection 
Dim Cmd As New ADODB.Command 
Dim ll As Integer 
 Set Cn = Application.CurrentProject.Connection 
Cmd.ActiveConnection = Cn 
'Cn.Open 

Cmd.CommandText = "Exec q2  '" & Me.FromDate.Value & "', '" & Me.ToDate.Value & "'" 
Cmd.CommandType = adCmdStoredProc 
Cmd.CommandTimeout =  9000  

 Cmd.Execute 
End Sub
НО эта команда ругается: "Ошибка синтаксиса или нарушние прав доступа" Подскажите пожалуйста, что мне делать?
...
Рейтинг: 0 / 0
23.04.2010, 08:17
| Ответить | Цитировать | Написать  
Запуск процедуры SQL в VBa ACCESS (adp)
    #36593889
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
при таком значении
Код: plaintext
Cmd.CommandType = adCmdStoredProc

нужно просто указать имя ХП

Код: plaintext
Cmd.CommandText = "q2  '" & Me.FromDate.Value & "', '" & Me.ToDate.Value & "'"


вроде так
...
Рейтинг: 0 / 0
23.04.2010, 09:27
| Ответить | Цитировать | Написать  
Запуск процедуры SQL в VBa ACCESS (adp)
    #36593945
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
HandKotвроде так
не так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Dim Cn As ADODB.Connection 
Dim Cmd As New ADODB.Command 
Dim ll As Integer 
Set Cn = Application.CurrentProject.Connection 
Cmd.ActiveConnection = Cn 
'Cn.Open 

Cmd.CommandText = "q2" 
Cmd.CommandType = adCmdStoredProc 
Cmd.CommandTimeout =  9000  
Cmd.Parameters.Refresh
Cmd.Parameters("@MyParm1")=CDate(Me.FromDate.Value)
Cmd.Parameters("@MyParm2")=CDate(Me.ToDate.Value)
Cmd.Execute 

End Sub
...
Рейтинг: 0 / 0
23.04.2010, 09:57
| Ответить | Цитировать | Написать  
Запуск процедуры SQL в VBa ACCESS (adp)
    #36594652
Mari-Salt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mari-Salt
Участник
Shocker.Pro,
Ругается на эту сроку
Код: plaintext
Cmd.Parameters("@MyParm1") = CDate(Me.FromDate.Value)
Говорит "Не удается найти объект в семействе ,соответствующий требуемоему имени и порядковому номеру"
...
Рейтинг: 0 / 0
23.04.2010, 13:35
| Ответить | Цитировать | Написать  
Запуск процедуры SQL в VBa ACCESS (adp)
    #36594665
Mari-Salt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mari-Salt
Участник
Получилось!!!!!! спасибо!
...
Рейтинг: 0 / 0
23.04.2010, 13:39
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Запуск процедуры SQL в VBa ACCESS (adp)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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