ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Очень простой вопрос для знающих AD&
23 сообщений из 23, страница 1 из 1
Очень простой вопрос для знающих AD&
    #32222617
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
Как из ADP запустить хранимую процедуру (уже сущ.) с передаваемыми и возвращаемыми параметрами?
...
Рейтинг: 0 / 0
30.07.2003, 16:19
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32222622
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
Из VBA естественно.
...
Рейтинг: 0 / 0
30.07.2003, 16:21
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32222632
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
Сорри за дебильный вопрос, уже нашел.


Dim cmnd As New ADODB.Command

Set cmnd.ActiveConnection = MYconnection
cmnd.CommandText = " СТРОКА Нa SQL в том числе exec XP "
cmnd.Execute
...
Рейтинг: 0 / 0
30.07.2003, 16:26
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32222637
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim cmd As New ADODB.Command
Dim retparam As ADODB.Parameter
  
Set cmd.ActiveConnection = CurrentProject.Connection
    With cmd
        .CommandText =  "name_procedure" 
        .CommandType = adCmdStoredProc
        .CommandTimeout =  0 
        .Parameters.Append .CreateParameter( "@param1" , adInteger, adParamInput, , value1)
        .Parameters.Append .CreateParameter( "@param2" , adInteger, adParamInput, , value2)
        .Parameters.Append .CreateParameter( "@param3" , adDouble, adParamInput, , value3)
        .Parameters.Append .CreateParameter( "@param4" , adInteger, adParamInput, , value4)
        .Parameters.Append .CreateParameter( "@param5" , adCurrency, adParamInputOutput, , value5)
        .Execute
        retparam = .Parameters( "@param5" )
    End With


Ну что-то в этом роде, последний параметр является входным/выходным.
...
Рейтинг: 0 / 0
30.07.2003, 16:28
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227564
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
На передаче логического значения (@KillChild) пишет ошибку "Applications uses avalue of the wrong type for the current operation".
[src][/src]
With cmnd

.CommandText = "Del_Item"
.CommandType = adCmdStoredProc
.CommandTimeout = 0
.Parameters.Append .CreateParameter("@TableName", adBSTR, adParamInput, , CStr(Me.TableName.Value))
.Parameters.Append .CreateParameter("@pID", adInteger, adParamInput, , CInt(Me.TreeView.SelectedItem.Tag))
.Parameters.Append .CreateParameter("@pName", adBSTR, adParamInput, , CStr(Me.KeyName))
.Parameters.Append .CreateParameter("@KillChild", adBinary, adParamInput, , CBool(Me.AllChild.Value))
.Execute
End With
---------------------------------------
начало процедуры:
ALTER PROCEDURE Del_Item
(
@TableName nvarchar(1024),
@pID int,
@pName nvarchar(1024),
@KillChild binary
)
...
Рейтинг: 0 / 0
05.08.2003, 14:39
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227566
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
Причем сама по себе процедура работает, а если поменять adBinary на adVariant то все равно не работает.
...
Рейтинг: 0 / 0
05.08.2003, 14:41
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227610
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хам трамвайный
Участник
из справки по VBA
A data type with only two possible values, True (-1) or False (0).
а на сервере 0 или 1
вот и думай
...
Рейтинг: 0 / 0
05.08.2003, 15:04
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227614
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
На сервере-то 0,1 но тем не менее любое переданное значение отличное от 0 он понимает как True,то есть 1, потому и -1 он понимать должен так же.
...
Рейтинг: 0 / 0
05.08.2003, 15:08
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227619
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
кстати если заменить на
.Parameters.Append .CreateParameter("@KillChild", adBinary, adParamInput, , 0)
то пишет ту же ошибку.
...
Рейтинг: 0 / 0
05.08.2003, 15:10
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227629
VIG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VIG
Участник
A ты binary c bit не попутал случайно?
...
Рейтинг: 0 / 0
05.08.2003, 15:15
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227632
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хам трамвайный
Участник
а почему adBinary?
...
Рейтинг: 0 / 0
05.08.2003, 15:16
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227667
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
Нет binary c bit не перепутал, а binary потому что нужно принимать только одно из двух значений.
...
Рейтинг: 0 / 0
05.08.2003, 15:42
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227696
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хам трамвайный
Участник
из справки
binary

Fixed-length binary data with a maximum length of 8,000 bytes.

bit

Integer data with either a 1 or 0 value.

может стоит почитать,
а потом прогаммировать?
...
Рейтинг: 0 / 0
05.08.2003, 16:04
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227719
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
Не работает у меня справка, сто раз уже говорил.
...
Рейтинг: 0 / 0
05.08.2003, 16:15
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227731
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хам трамвайный
Участник
ууууууууууу
как все запущено
...
Рейтинг: 0 / 0
05.08.2003, 16:24
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227736
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
кстати решается так
.Parameters.Append .CreateParameter("@KillChild", adBoolean, adParamInput, , 0)
...
Рейтинг: 0 / 0
05.08.2003, 16:26
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227742
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Не работает у меня справка, сто раз уже говорил.
ууууууууууу
как все запущено
Точно. Форум попал на кучу дибильных вопросов.
Может легче будет ему файл справки по мылу отправить?
...
Рейтинг: 0 / 0
05.08.2003, 16:30
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32227746
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
Отправь, справку по АДО чем полнее, тем лучше ... aap@e-mail.ru
...
Рейтинг: 0 / 0
05.08.2003, 16:33
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32228631
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
Да кстати еще один дебильный вопрос, какой тип должен быть там где передается string, код смотри выше, adBSTR передает только первый символ.
...
Рейтинг: 0 / 0
06.08.2003, 13:04
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32228673
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хам трамвайный
Участник
из справки
следующей таблице сравниваются типы данных в базе данных Microsoft Access и в проекте Microsoft Access.

Тип данных Microsoft Access Тип данных SQL Server
Логический bit
Числовой (Байт) tinyint
Числовой (Целое) smallint
Числовой (Длинное целое) int
Числовой (Одинарное с плавающей точкой) real
(отсутствует) bigint
Числовой (Двойное с плавающей точкой) float
Денежный money smallmoney

Действительное/числовой decimal /numeric

Дата, время datetime ,smalldatetime

Счетчик (Последовательные) int (с определенным свойством Идентификация)
Текстовый (n) varchar(n) /nvarchar(n)

Поле MЕМО text
Объекты OLE image
Код реплики (также используется название глобальный уникальный идентификатор (GUID)) uniqueidentifier (SQL Server версии 7.0 или более поздней)
Гиперссылка char, nchar, varchar, nvarchar (со свойством Гиперссылка, имеющим значение «Да»)
(отсутствует) varbinary
(отсутствует) smallint
(отсутствует) timestamp
(отсутствует) char
nchar

(отсутствует) sql_variant
(отсутствует) определяемый пользователем

Примечание. В проекте Microsoft Access или в базе данных SQL Server префикс «n» является сокращением от «national» и означает, что тип данных подходит для кодировки Юникод. В базе данных Microsoft Access все текстовые столбцы по умолчанию являются пригодными для кодировки Юникод.
...
Рейтинг: 0 / 0
06.08.2003, 13:27
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32228815
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
Короче, правильный вариант выглядит так. Кстати хелп так никто и не прислал :-))

With cmnd

'.CommandText = "call Del_Item (Me.TableName.Value, Me.TreeView.SelectedItem.Tag, Me.KeyName, Me.AllChild.Value)"
.CommandText = "Del_Item"
.CommandType = adCmdStoredProc
.CommandTimeout = 0
.Parameters.Append .CreateParameter("@TableName", adVarChar, adParamInput, 1024, CStr(Me.TableName.Value))
.Parameters.Append .CreateParameter("@pID", adInteger, adParamInput, , CInt(Me.TreeView.SelectedItem.Tag))
.Parameters.Append .CreateParameter("@pName", adVarChar, adParamInput, 1024, CStr(Me.KeyName))
.Parameters.Append .CreateParameter("@KillChild", adBoolean, adParamInput, , CBool(Me.AllChild.Value))
.Execute
End With
...
Рейтинг: 0 / 0
06.08.2003, 14:32
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32228880
Хам трамвайный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хам трамвайный
Участник
начинающий умник!
нам твои выводы
нафиг не нужны:
это все уже пройдено
и перепройдено
написано
и перенаписано
еще 3 года назад
а ты пытаешься
изобрести велосипед
...
Рейтинг: 0 / 0
06.08.2003, 15:04
| Ответить | Цитировать | Написать  
Очень простой вопрос для знающих AD&
    #32232510
AGU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AGU
Участник
Вам может и не нужны, а такой же начинающий как я почитав этот топик, в результате был бы рад найти правильный ответ, а не только процесс его нахождения.
...
Рейтинг: 0 / 0
11.08.2003, 10:08
| Ответить | Цитировать | Написать  
23 сообщений из 23, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Очень простой вопрос для знающих AD&
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1679996]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 52ms
get topic data:
 7ms
get first new msg:
 4ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 199ms
total:  326ms
созд. / загр.: 326ms
x
x
Закрыть


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