Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вызвать сохранненую процедуру? / 7 сообщений из 7, страница 1 из 1
17.12.2004, 15:30:29
    #32832637
Volf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать сохранненую процедуру?
Как вызвать сохраненную процедуру в 2000 аксесе, если проект подключен к существующим данным SQL Server (.apd)

Делаю так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Public dbs As Database 
Public cn As ADODB.Connection 

Set dbs = CurrentDb()
Set cn = Application.CurrentProject.Connection

Set cn = New ADODB.Connection
cmd.ActiveConnection = cn        '--- Ругается на эту строчку. Говорит 'object required'
cmd.CommandType = adCmdStoredProc
cmd.TimeOut =  10 
cmd.Parameters.Refresh
cmd.CommandText = "ЗанятьДолжность"
cmd.Parametr( 1 ) = СписокРаботников
cmd.Parametr( 2 ) = СписокДолжностей
cmd.Parametr( 3 ) = Ставка
cmd.Execute
...
Рейтинг: 0 / 0
17.12.2004, 15:55:20
    #32832702
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать сохранненую процедуру?
VolfКак вызвать сохраненную процедуру в 2000 аксесе, если проект подключен к существующим данным SQL Server (.apd)

Делаю так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandType = adCmdStoredProc
cmd.TimeOut =  10 
cmd.Parameters.Refresh
cmd.CommandText = "ЗанятьДолжность"
cmd.Parametr( 1 ) = СписокРаботников
cmd.Parametr( 2 ) = СписокДолжностей
cmd.Parametr( 3 ) = Ставка
cmd.Execute
...
Рейтинг: 0 / 0
17.12.2004, 16:10:29
    #32832733
Как вызвать сохранненую процедуру?
VolfДелаю так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Public dbs As Database 
Public cn As ADODB.Connection 

Set dbs = CurrentDb()
Set cn = Application.CurrentProject.Connection

Set cn = New ADODB.Connection
cmd.ActiveConnection = cn        '--- Ругается на эту строчку. Говорит 'object required'


Э-ээ... а кто объект Command создавать будет? Совершенно правильно "ругается", однако.

Код: plaintext
1.
Dim cmd as ADODB.Connection
Set cmd = New ADODB.Connection
...
Рейтинг: 0 / 0
17.12.2004, 17:01:32
    #32832847
Volf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать сохранненую процедуру?
С Command тоже пробывал - все равно на эту строку ругается. Как правильно все таки?
...
Рейтинг: 0 / 0
17.12.2004, 17:12:59
    #32832875
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать сохранненую процедуру?
VolfС Command тоже пробывал - все равно на эту строку ругается. Как правильно все таки?
приведи ,будь добр, реальный код - возможны малозаметные ошибки
...
Рейтинг: 0 / 0
17.12.2004, 17:27:04
    #32832905
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать сохранненую процедуру?
Alexander Popov ответил в аналогичном топикевам еще в прошлом топике ответили что у вас не задан объект cmd

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public cn As ADODB.Connection 
dim cmd as new ADODB.command
Dim prm1 As ADODB.Parameter
Dim prm2 As ADODB.Parameter

Set cn = Application.CurrentProject.Connection
Set cn = New ADODB.Connection

With cmd
.CommandText = "dbo.процедура"
.CommandType = adCmdStoredProc
.ActiveConnection = cn
Set prm1 = cmd.CreateParameter("@1", adInteger, adParamInput,  4 , a)
Set prm2 = cmd.CreateParameter("@2", adInteger, adParamInput,  4 , b)
.Parameters.Append prm1
.Parameters.Append prm2
end with

 cmd.Execute



Копия удалена.

2 Volf
Не нужно создавать одинаковых топиков - продолжайте первый
...
Рейтинг: 0 / 0
17.12.2004, 19:49:20
    #32833081
Alexey Sh
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как вызвать сохранненую процедуру?
set cmd.ActiveConnection = cn
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как вызвать сохранненую процедуру? / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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