1С77, Соединение с SQL-Server, Подключение к SQL-Server, ADODB, Connection, Recordset, ActiveConnection, Прямой SQL-запрос к базе, Обход рекордсета

1С

Server = "ServerName";    //Имя сервера
DataBase = "DBName";      //Имя базы данных
Login = "sa";                      //Логин
Password = "secretpsw";   //Пароль

Connection = CreateObject("ADODB.Connection");

ConnectionString = "driver={SQL Server};"+"server="+СокрЛП(Server)+";"+"uid="+СокрЛП

              (Login)+"; "+"pwd="+СокрЛП(Password)+";"+"Database="+СокрЛП(Database);
Connection.ConnectionTimeOut = 600;
Connection.CommandTimeout = 300;

Connection.Open(ConnectionString);

Payments = CreateObject("ADODB.RecordSet");
Payments.ActiveConnection = Connection;

strQuery = "
      |   SELECT Field1, Field2
      |   FROM Payments
      |";

Payments.Open(strQuery);

While Payments.EOF = 0 Do
      Сообщить(Payments.Fields("Field1").Value);
      Сообщить(Payments.Fields("Field2").Value);
      Payments.MoveNext();
EndDo;

Payments.Close();
ПустоеЗначение(Payments);
Connection.Close();
ПустоеЗначение(Connection);

Теги: 1С77, 7.7, Соединение с SQL-Server, Подключение к SQL-Server, ADODB, Connection, Recordset, ActiveConnection, Прямой SQL-запрос к базе, Обход рекордсета

1С, Подключение к SQL-Server (ORACLE), COMОбъект, ADODB.Connection, ADODB.RecordSet, ADODB, SQL запрос

1С

Процедура КнопкаВыполнитьНажатие(Кнопка)
   Conn = Новый COMОбъект ("ADODB.Connection");
   Conn.Open("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind");

   RS = Новый COMОбъект ("ADODB.RecordSet");
   RS.Open("select * from customers", Conn);

   Пока НЕ (RS.EOF) Цикл
       Сообщить(RS.Fields(1).Name());
       Сообщить(RS.Fields(1).Value());
       RS.MoveNext();
   КонецЦикла;

   RS.Close();
КонецПроцедуры

Небольшое описание ADODB

Теги: 1С, SQL-Server, ORACLE, COMОбъект, ADODB.Connection, ADODB.RecordSet, ADODB, SQL запрос