Выгрузка данных с SQL и сравнение с данными 1С
13.07.2011
10:58
#1
"Добрый день!Стоит такая задача:
Подключится к SQL 2000, взять с таблицы данные.
В 1С есть табличка, сравнить эти таблицы.
Показать те данные которых нет либо в первой таблице, либо во второй.
У меня не получается на начальном этапе, не могу подключиться к SQL, в VB обычно указывалось в Password='';User ID=''; пустые значения, а тут так не проходит, пробовал подставлять свои данные, тоже ругается. Как подключиться правильно, подключение можно совершать с windows аутентификацией.
вот листинг:
Процедура Сформировать()
стрПодключения = "Provider=SQLOLEDB;Data Source=SQL_Pro2;Password=' ';User ID=' ';Initial Catalog=Sbyt";
Connection = Новый COMОбъект("ADODB.Connection");
Connection.OpenServer=стрПодключения;
RS=Новый ComОбъект("ADODB.Recordset");
RS.Open("SELECT NomDok FROM dbo.tblPltreb2");
пока RS.EOF()=0 Цикл
номер=Rs.fields("NomDok").Value;
RS.MoveNext();
КонецЦикла;
RS.Close();
Connection.close();
КонецПроцедуры"
Подключится к SQL 2000, взять с таблицы данные.
В 1С есть табличка, сравнить эти таблицы.
Показать те данные которых нет либо в первой таблице, либо во второй.
У меня не получается на начальном этапе, не могу подключиться к SQL, в VB обычно указывалось в Password='';User ID=''; пустые значения, а тут так не проходит, пробовал подставлять свои данные, тоже ругается. Как подключиться правильно, подключение можно совершать с windows аутентификацией.
вот листинг:
Процедура Сформировать()
стрПодключения = "Provider=SQLOLEDB;Data Source=SQL_Pro2;Password=' ';User ID=' ';Initial Catalog=Sbyt";
Connection = Новый COMОбъект("ADODB.Connection");
Connection.OpenServer=стрПодключения;
RS=Новый ComОбъект("ADODB.Recordset");
RS.Open("SELECT NomDok FROM dbo.tblPltreb2");
пока RS.EOF()=0 Цикл
номер=Rs.fields("NomDok").Value;
RS.MoveNext();
КонецЦикла;
RS.Close();
Connection.close();
КонецПроцедуры"
13.07.2011
18:11
#2
"> вот листинг:
>
> Процедура Сформировать()
> стрПодключения = "Provider=SQLOLEDB;Data Source=SQL_Pro2;Password=' ';User ID=' ';Initial Catalog=Sbyt";
> Connection = Новый COMОбъект("ADODB.Connection");
>
> Connection.OpenServer=стрПодключения;
Connection.Open();
> RS=Новый ComОбъект("ADODB.Recordset");
RS.Open("SELECT NomDok FROM dbo.tblPltreb2", Connection);
> пока RS.EOF()=0 Цикл
> номер=Rs.fields("NomDok").Value;
> RS.MoveNext();
> КонецЦикла;
> RS.Close();
> Connection.close();
> КонецПроцедуры
ИМХО этого не хватает..."
>
> Процедура Сформировать()
> стрПодключения = "Provider=SQLOLEDB;Data Source=SQL_Pro2;Password=' ';User ID=' ';Initial Catalog=Sbyt";
> Connection = Новый COMОбъект("ADODB.Connection");
>
> Connection.OpenServer=стрПодключения;
Connection.Open();
> RS=Новый ComОбъект("ADODB.Recordset");
RS.Open("SELECT NomDok FROM dbo.tblPltreb2", Connection);
> пока RS.EOF()=0 Цикл
> номер=Rs.fields("NomDok").Value;
> RS.MoveNext();
> КонецЦикла;
> RS.Close();
> Connection.close();
> КонецПроцедуры
ИМХО этого не хватает..."
14.07.2011
11:20
#5
"Да пишет ошибку вот голову ломаю, листинг такой
стрПодключения = "driver={SQL Server};server=Sql_Pro2;uid='';pwd=;database=Sbyt;trusted_connection=yes";
АДОДБКоннект = Новый COMОбъект("ADODB.Connection");
АДОДБКоннект.ConnectionTimeOut =300;
//АДОДБКоннект.CursorLocation = 3; //adUseClient
АДОДБКоннект.CursorLocation = 2; //adUseServer
Попытка
АДОДБКоннект.OpenServer(стрПодключения);
Сообщить("Соединение с SQL-сервером " + ИмяСервера + " осуществлено в "+ТекущаяДата());
Исключение
Предупреждение("Невозможно установить соединение с SQL-сервером " + ИмяСервера);
АДОДБКоннект.Close();
Возврат;
КонецПопытки;
У меня после АДОДБКоннект.OpenServer(стрПодключения);, сразу идет на ошибку. В чем может быть дело, как можно по другому проверить подключение в 1С, кроме как с готовой внешней обработки"
стрПодключения = "driver={SQL Server};server=Sql_Pro2;uid='';pwd=;database=Sbyt;trusted_connection=yes";
АДОДБКоннект = Новый COMОбъект("ADODB.Connection");
АДОДБКоннект.ConnectionTimeOut =300;
//АДОДБКоннект.CursorLocation = 3; //adUseClient
АДОДБКоннект.CursorLocation = 2; //adUseServer
Попытка
АДОДБКоннект.OpenServer(стрПодключения);
Сообщить("Соединение с SQL-сервером " + ИмяСервера + " осуществлено в "+ТекущаяДата());
Исключение
Предупреждение("Невозможно установить соединение с SQL-сервером " + ИмяСервера);
АДОДБКоннект.Close();
Возврат;
КонецПопытки;
У меня после АДОДБКоннект.OpenServer(стрПодключения);, сразу идет на ошибку. В чем может быть дело, как можно по другому проверить подключение в 1С, кроме как с готовой внешней обработки"
Читают тему
(гостей: 1)