Добрый день!Стоит такая задача:

Подключится к 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();
КонецПроцедуры

Zerro,

Так в том то и фишка, когда на прямую в SQL я подключаюсь, то там виндовс аутентификация стоит, ничего вводит не нужно, тут я пробовал и с пустым и с вводом данных, не пускает \
Процедура Сформировать()

стрПодключения = "Provider=SQLOLEDB;Data Source=SQL_Pro2;Password='';User ID='';Initial Catalog=Sbyt;";
Connection = Новый ComОбъект("ADODB.Connection");
Connection.ConnectionString = "Provider=SQLOLEDB.1;Password=D606;Persist Security Info=True;User ID=u27;Initial Catalog=SBYT;Data Source=SQL_Pro2";
Connection.Open();


//Connection.Open(стрПодключения);
RS=Новый ComОбъект("ADODB.Recordset");
RS.ActiveConnection = Connection;
RS.CursorType = 3;
RS.LockType = 1;
RS.Open("SELECT NomDok FROM dbo.tblPltreb2");
пока RS.EOF()=0 Цикл
номер=Rs.fields("NomDok").Value;
RS.MoveNext();
КонецЦикла;
RS.Close();
Connection.close();


Она при запуске ругается на Connection.Open();, я его пробовал как Connection.OpenServer();-так же ругается

пишет ошибку
{Форма.Форма1.Форма(26)}: Ошибка при вызове метода контекста (Open)
Connection.Open();
по причине:
Произошла исключительная ситуация (Microsoft OLE DB Provider for SQL Server): Login failed for user 'u274274'.

VladimirKr,

нужно было вот так указать на самом деле
стрПодключения = "driver={SQL Server};server=Sql_Pro2;uid='';pwd='';database=Sbyt;trusted_connection=yes";

Вопрос стоит про вариант решения:
Нужно из SQL 2000 взять данные, с определенными столбцами и условием и сравнить с данными с 1C базы.
Как лучше это сделать? Ну в том плане, что нужно сделать чтоб их сравнить? Нужно ли загонять таблицу с SQL во временную?
Как лучше это сделать с максимальным быстродействием?

DmitriyZ,

Скинуть пример можешь?

У меня получается получить данные с SQL вот как теперь их сравнить в СКД?

RS=Новый ComОбъект("ADODB.Recordset");
RS.ActiveConnection = АДОДБКоннект;
RS.CursorType = 3;
RS.LockType = 1;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ДатаВыбора",ДатаВыбора);

Запрос.Текст = "SELECT tblPltreb2.DataOtg, tblPltreb2.RegNWN, Sum(tblPltreb2.Summa) AS Sum_Summa
|FROM tblPltreb2
|WHERE (
|((Substring(lTrim(Str([RegNWN])),3,1))=5
|Or (Substring(lTrim(Str([RegNWN])),3,1))=7)
|AND ((tblPltreb2.SZ)=0)
|AND ((tblPltreb2.SD)<>9))
|GROUP BY tblPltreb2.DataOtg, tblPltreb2.RegNWN, tblPltreb2.GodMes
| HAVING (DataOtg = &ДатаВыбора
|ORDER BY tblPltreb2.DataOtg" ;
RS.Open(Запрос.Текст);

Имеется листинг, как туда загнать дату для отбора - ДатаВыбора

Не получается что то в запрос его загнать

rigusНу сделай чтото типа
ДатаВФорматеSQL = ФОРМАТ(ДатаВыбора,"гггг-ММ-дд");

| HAVING (DataOtg ='"+ДатаВФорматеSQL+"')

ДатаВФорматеSQL =" "

С формы ДатаВыбора называется поле ввода, оно не присваивается дата

rigusТебе нужно чтобы SQL запрос выглядел
Так

"HAVING (DataOtg ='2011-07-22'
|ORDER BY tblPltreb2.DataOtg"
или так
"HAVING (DataOtg >='2011-07-22' and DataOtg <'2011-07-23'
|ORDER BY tblPltreb2.DataOtg"

Вот так
"HAVING (DataOtg ='2011-07-22'
|ORDER BY tblPltreb2.DataOtg"

Александр ВеликийrigusТебе нужно чтобы SQL запрос выглядел
Так

"HAVING (DataOtg ='2011-07-22'
|ORDER BY tblPltreb2.DataOtg"
или так
"HAVING (DataOtg >='2011-07-22' and DataOtg <'2011-07-23'
|ORDER BY tblPltreb2.DataOtg"

Вот так
"HAVING (DataOtg ='2011-07-22'
|ORDER BY tblPltreb2.DataOtg"

Александр ВеликийАлександр Великийпропущено...


Вот так
"HAVING (DataOtg ='2011-07-22'
|ORDER BY tblPltreb2.DataOtg"

Александр Великий,

Все нормально только вот "16.07.2011 0:00:00", оно должно в SQL входить "07.16.2011 0:00:00", тогда работает

Александр ВеликийАлександр Великий,

Все нормально только вот "16.07.2011 0:00:00", оно должно в SQL входить "07.16.2011 0:00:00", тогда работает

вопрос решается
| HAVING (DataOtg =CONVERT(DATETIME,'"+ДатаВФорматеSQL+"',104))

Не получается связать в СКД табличку ДанныеSQL, табличка должна соединиться с данными 1C, но она выводит данные без связи.
Через что можно сделать соединение?