MyTetra Share
Делитесь знаниями!
Время создания: 07.03.2020 20:37
Текстовые метки: vba_sql_server
Раздел: !Закладки - VBA - VBA SQL Server
Запись: xintrea/mytetra_db_adgaver_new/master/base/1583602653zsi0mb5n1y/text.html на raw.githubusercontent.com

Материалы к уроку Вы найдете по ссылке: 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


 
MyTetra Share v.0.59
Яндекс индекс цитирования