|
|||||||
Время создания: 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 |
|||||||
![]() |
|||||||
|
|||||||
|