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
Извини, если слишком подробно, Можно и по другому.