хранимая процедура MS SQL Server

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
lun
Начинающий
Начинающий
 
Сообщения: 8
Зарегистрирован: 27.01.2005 (Чт) 1:04

хранимая процедура MS SQL Server

Сообщение lun » 27.01.2005 (Чт) 9:16

Подскажите пожалуйста, как обратиться и передать параметры к хранимой процедуре созданной в MS SQL Server из VB. :?:

snov
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 176
Зарегистрирован: 28.11.2003 (Пт) 10:12
Откуда: Челябинск

Re: хранимая процедура MS SQL Server

Сообщение snov » 27.01.2005 (Чт) 9:48

lun писал(а):Подскажите пожалуйста, как обратиться и передать параметры к хранимой процедуре созданной в MS SQL Server из VB. :?:

Код: Выделить всё
dim db as New ADODB.Connection
...
db.Execute "sp_addlogin 'AAA'"

Вот те пример добавления догина.

Rainbow
Человек-радуга
Человек-радуга
 
Сообщения: 543
Зарегистрирован: 13.05.2003 (Вт) 14:16

Сообщение Rainbow » 27.01.2005 (Чт) 11:54

Ну, или через объект Command
http://msdn.microsoft.com/library/defau ... ommand.asp
Учиться - значит открывать для себя то, что уже знаешь. <...> Учить - значит напоминать другим о том, что они знают это также хорошо, как и ты. <...> Лучше всего ты учишь тому, чему тебе самому больше всего надо научиться. (Р. Бах)

VikHion
Начинающий
Начинающий
 
Сообщения: 15
Зарегистрирован: 14.10.2003 (Вт) 11:20
Откуда: Kirovograd

Сообщение VikHion » 27.01.2005 (Чт) 13:59

Привет.
Dim cnPart As ADODB.Connection
Dim Cmd As New ADODB.Command
Dim prm As ADODB.Parameter

1. Законектиться.
Set cnPart = New ADODB.Connection
cnPart.Properties("Data Source").Value = "Твой источник данных"
cnPart.Properties("Initial Catalog").Value = "Твоя база в SQL"
cnPart.Properties("User ID").Value = Пользователь
cnPart.Properties("Password").Value = Пароль
cnPart.CursorLocation = adUseClient ' Или то что тебе надо…
cnPart.Open

2.Работа через Command
Cmd.ActiveConnection = cnPart
Cmd.CommandTimeout = 30
Cmd.CommandType = adCmdStoredProc
Set prm = Cmd.CreateParameter("Имя параметра", adInteger (Тип данных параметра), adParamInput (Тип параметра), , ”Значение параметра”)
Cmd.Parameters.Append prm
Cmd.CommandText = "Имя твоей процедуры"
Set rst = Cmd.Execute

Извини, если слишком подробно, Можно и по другому.

snov
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 176
Зарегистрирован: 28.11.2003 (Пт) 10:12
Откуда: Челябинск

Сообщение snov » 27.01.2005 (Чт) 14:13

VikHion писал(а):Привет.
Dim cnPart As ADODB.Connection
Dim Cmd As New ADODB.Command
Dim prm As ADODB.Parameter
...
Извини, если слишком подробно, Можно и по другому.
:) ты бы еще рядом код всей проги положил

VikHion
Начинающий
Начинающий
 
Сообщения: 15
Зарегистрирован: 14.10.2003 (Вт) 11:20
Откуда: Kirovograd

Сообщение VikHion » 27.01.2005 (Чт) 14:59

Ну, я же не ящик пива положил.
Удачи.


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0

    TopList