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-запрос к базе, Обход рекордсета

VB6, Visual Basic 6, ADODB.Recordset, ADODB.Connection, Открыть рекордсет, sql-запрос, Соединение с базой данных, перебор рекордсета, обход рекордсета, значение поля рекордсета

Visual Basic 6

sql - запрос к базе данных
cn - соединение с базой данных (ADODB.connection)
rcd - рекордсет (ADODB.Recordset)

sql = ""
sql = "SELECT * FROM dbTableName"
rcd.Open sql, cn, adOpenStatic

rcd.MoveFirst
While Not rcd.EOF
MsgBox rcd("TableFieldValue")
rcd.MoveNext
Wend

Теги: VB6, Visual Basic 6, recordset, connection, Открыть рекордсет, sql-запрос, Соединение с базой данных, перебор рекордсета, обход рекордсета, значение поля рекордсета