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


Dim cmnd As New ADODB.Command

Set cmnd.ActiveConnection = MYconnection
cmnd.CommandText = " СТРОКА Нa SQL в том числе exec XP "
cmnd.Execute
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.07.2003, 16:28
    #32222637
Hummer
Hummer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
Код: 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
| Ответить | Цитировать | Написать  
05.08.2003, 14:39
    #32227564
AGU
AGU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
На передаче логического значения (@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:41
    #32227566
AGU
AGU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
Причем сама по себе процедура работает, а если поменять adBinary на adVariant то все равно не работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2003, 15:04
    #32227610
Хам трамвайный
Хам трамвайный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
из справки по VBA
A data type with only two possible values, True (-1) or False (0).
а на сервере 0 или 1
вот и думай
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2003, 15:08
    #32227614
AGU
AGU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
На сервере-то 0,1 но тем не менее любое переданное значение отличное от 0 он понимает как True,то есть 1, потому и -1 он понимать должен так же.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2003, 15:10
    #32227619
AGU
AGU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
кстати если заменить на
.Parameters.Append .CreateParameter("@KillChild", adBinary, adParamInput, , 0)
то пишет ту же ошибку.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2003, 15:15
    #32227629
VIG
VIG
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
A ты binary c bit не попутал случайно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2003, 15:16
    #32227632
Хам трамвайный
Хам трамвайный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
а почему adBinary?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2003, 15:42
    #32227667
AGU
AGU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
Нет binary c bit не перепутал, а binary потому что нужно принимать только одно из двух значений.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2003, 16:04
    #32227696
Хам трамвайный
Хам трамвайный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
из справки
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:15
    #32227719
AGU
AGU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
Не работает у меня справка, сто раз уже говорил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2003, 16:24
    #32227731
Хам трамвайный
Хам трамвайный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
ууууууууууу
как все запущено
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2003, 16:26
    #32227736
AGU
AGU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
кстати решается так
.Parameters.Append .CreateParameter("@KillChild", adBoolean, adParamInput, , 0)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2003, 16:30
    #32227742
Лох Позорный
Лох Позорный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
Не работает у меня справка, сто раз уже говорил.
ууууууууууу
как все запущено
Точно. Форум попал на кучу дибильных вопросов.
Может легче будет ему файл справки по мылу отправить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.08.2003, 16:33
    #32227746
AGU
AGU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
Отправь, справку по АДО чем полнее, тем лучше ... aap@e-mail.ru
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2003, 13:04
    #32228631
AGU
AGU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
Да кстати еще один дебильный вопрос, какой тип должен быть там где передается string, код смотри выше, adBSTR передает только первый символ.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.08.2003, 13:27
    #32228673
Хам трамвайный
Хам трамвайный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
из справки
следующей таблице сравниваются типы данных в базе данных 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, 14:32
    #32228815
AGU
AGU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
Короче, правильный вариант выглядит так. Кстати хелп так никто и не прислал :-))

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, 15:04
    #32228880
Хам трамвайный
Хам трамвайный
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
начинающий умник!
нам твои выводы
нафиг не нужны:
это все уже пройдено
и перепройдено
написано
и перенаписано
еще 3 года назад
а ты пытаешься
изобрести велосипед
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.08.2003, 10:08
    #32232510
AGU
AGU
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Очень простой вопрос для знающих AD&
Вам может и не нужны, а такой же начинающий как я почитав этот топик, в результате был бы рад найти правильный ответ, а не только процесс его нахождения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Очень простой вопрос для знающих AD& / 23 сообщений из 23, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 452ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1679996]:
 0ms
get settings:
 11ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 94ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 67ms
get tp. blocked users:
 2ms
others: 234ms
total:  452ms
x
x
Закрыть


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