Материалы к уроку Вы найдете по ссылке: https://yadi.sk/d/5FwuZUD7oeYAsA
Sub TestConnect()
Dim connectionString As String
Dim objectConnection As New ADODB.Connection
connectionString = "Provider=sqloledb;Data Source=ASPIRE-R7\SQLEXPRESS;Initial Catalog=Magazinchik;Trusted_Connection=yes"
objectConnection.connectionString = connectionString 'инициализируем строку подключения
objectConnection.Open '//открываем соединение
'//здесь делаем что-то полезное
'//полезное
'//очень полезное :)
objectConnection.Close '//закрываем соединение
Set objectConnection = Nothing '//удаляем объект из памяти
End Sub
Sub TestCommand()
Dim connectionString As String
Dim objectConnection As New ADODB.Connection
connectionString = "Provider=sqloledb;Data Source=ASPIRE-R7\SQLEXPRESS;Initial Catalog=Magazinchik;Trusted_Connection=yes"
objectConnection.connectionString = connectionString 'инициализируем строку подключения
objectConnection.Open '//открываем соединение
'////////////////////////////////////////////////////////////////////////
'//////ЭТО И ЕСТЬ ТО САМОЕ ПОЛЕЗНОЕ, ЧТО МЫ ХОТЕЛИ СДЕЛАТЬ :) ///////////
'//создаем команду для отправки ее на сервер БД
Dim command As New ADODB.command '//объект комманды
Dim comParam As ADODB.Parameter '//объект-параметр
command.ActiveConnection = objectConnection '//инициализируем у комманды соединение
command.CommandType = adCmdStoredProc '//тип команды - "выполнение хранимой процедуры"
command.CommandText = "proc_AddCurrency" '//имя хранимой процедуры
command.NamedParameters = True '//именнованые параметры
Set comParam = command.CreateParameter("@curr", adWChar, adParamInput, 3, "CHF") '//устанавливаем значение в параметр
command.Parameters.Append comParam '//инициализируем параметр в коллекции параметров команды
command.Execute '//выполняем ХП на сервере
Set comParam = Nothing '//удаляем параметр
Set command = Nothing '//удаляем из памяти не нужный объект команды
'////////////////////////////////////////////////////////////////////////
'////////////////////////////////////////////////////////////////////////
objectConnection.Close '//закрываем соединение
Set objectConnection = Nothing '//удаляем объект из памяти
End Sub
USE [Magazinchik]
GO
/****** Object: StoredProcedure [dbo].[proc_AddCurrency] Script Date: 11.07.2018 22:34:01 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
ALTER PROCEDURE [dbo].[proc_AddCurrency]
--мы прописываем параметры
@curr nchar(3) --валюта
--,@details nvarchar(255)
AS
BEGIN
--тело Хранимой Процедуры
INSERT INTO Currency(
[Curr]
,[Details]
)VALUES(
@curr
,NULL--,@details
)
END
