Delphi + SQL + кириллица

[Аватар]

А как можно понять, если в начале совсем другое показал. Кавычки пляшут как им хочется

ADOQuery1.SQL.Add('                                                 where stParentType = ''Маршрут'' and stChildType <> ''Элемент маршрута''');

или параметризировать

ADOQuery1.SQL.Add('                                                 where stParentType = :s1 and stChildType <> :s2);
ADOQuery1.Parameters.ParamByName('s1').value := 'Маршрут';
ADOQuery1.Parameters.ParamByName('s2').value := 'Элемент маршрута';

И два :s1 ошибка, только уникальные имена параметров

[nactyx]

Сообщение от Serge_Bliznykov

ошибка понятна?

Если честно - не до конца. Почему в SQL Server Management Studio работало нормально?

[Аватар]

Потому, что в строковой константе делфи каждая входящая кавычка должна дублироваться, иначе воспринимается компилятором как начало или конец константы. Всамой строке потом она не продублирована

[Serge_Bliznykov]

вы посмотрите на свой пост. Даже движок форума подсветил ошибку!

вы ставите '
это ЗАВЕРШЕНИЕ строки.
потом пишете неизвестный для Delphi текст (слово Маршрут)
он его не находит и матерится.

[nactyx]

Вот таким образом всё это дело пытаюсь "засунуть" в excel (код связанный с excel'ем - не мой. Пишет, что время ожидания истекло. В SQL Server Management Studio запрос выполняется примерно за 30 секунд, может важна эта информация.
Непосредственно сам код:

procedure TForm1.Button1Click(Sender: TObject);
var Excel, FData: Variant;
    i, j: Integer;
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT p._PRODUCT, v.value, e.stValue');
ADOQuery1.SQL.Add('FROM [Тяжмаш].[dbo].[uit_vwTechProc] a,');
ADOQuery1.SQL.Add('     [Тяжмаш].[dbo].[stLinks] b,');
ADOQuery1.SQL.Add('     [Тяжмаш].[dbo].[vwObjects] c,');
ADOQuery1.SQL.Add('     [Тяжмаш].[dbo].[stLinks] d,');
ADOQuery1.SQL.Add('     [Тяжмаш].[dbo].[vwObjects] p,');
ADOQuery1.SQL.Add('     [Тяжмаш].[dbo].[rvwAttributes] v,');
ADOQuery1.SQL.Add('     [Тяжмаш].[dbo].[vwAttrValues] e');
ADOQuery1.SQL.Add('where not exists ( SELECT 1 FROM [Тяжмаш].[dbo].[uit_vwTechProc] c,');
ADOQuery1.SQL.Add('                   [Тяжмаш].[dbo].[uit_ActiveTP] b');
ADOQuery1.SQL.Add('                   where b.idTP = c.idTP and active = 1');
ADOQuery1.SQL.Add('                   and a.idElm = c.idElm');
ADOQuery1.SQL.Add('                 )');
ADOQuery1.SQL.Add('  and a.idElm = b.inIdChild');
ADOQuery1.SQL.Add('  and b.inIdParent = c._ID and c._TYPE = '+QuotedStr('Маршрут'));
ADOQuery1.SQL.Add('  and c._ID =d.inIdParent and d.inIdTypeRel in ( SELECT inId FROM [Тяжмаш].[dbo].[vwTypesAndTypes]');
ADOQuery1.SQL.Add('                                                 where stParentType = '+QuotedStr('Маршрут')+' and stChildType <> '+QuotedStr('Элемент маршрута'));
ADOQuery1.SQL.Add('                                               )');
ADOQuery1.SQL.Add('  and d.inIdChild = p._ID');
ADOQuery1.SQL.Add('  and d.inIdChild = v.idversion and v.idattr = 2');
ADOQuery1.SQL.Add('  and a.idElm = e.inIdVersion and e.inIdAttribute = 162');
ADOQuery1.Active := True;

// Данные в ADOQuery1 до этого момента считаем уже сформированными
// Создаем новую копию Excel
   Excel := CreateOleObject('Excel.Application');

// Добавляем рабочую книгу
   Excel.Workbooks.Add;

// Устанавливаем размер массива с данными для экспорта
   FData:=VarArrayCreate([1,ADOQuery1.RecordCount+1,1,ADOQuery1.Fields.Count],varVariant);

// первую строку заполняем названиями столбцов
   for j:=1 to ADOQuery1.Fields.Count do
      FData[1,j]:=ADOQuery1.Fields[j-1].DisplayName;

// Заполняем массив
   ADOQuery1.First;i:=2;
   while not ADOQuery1.Eof do
      begin
         for j:=1 to ADOQuery1.Fields.Count do
            FData[i,j]:=ADOQuery1.Fields[j-1].Value;
         ADOQuery1.Next;i:=i+1;
      end;

// Копируем данные в Excel
   Excel.Range[Excel.Cells[1, 1], Excel.Cells[ADOQuery1.RecordCount+1, ADOQuery1.Fields.Count]].Value:=FData;

// Рисуем границы вокруг данных
   Excel.Range[Excel.Cells[1, 1], Excel.Cells[ADOQuery1.RecordCount+1, ADOQuery1.Fields.Count]].Select;
   Excel.Selection.Borders.LineStyle := 1;
   Excel.Selection.Borders.Weight := 2;
   Excel.Range[Excel.Cells[1, 1], Excel.Cells[1, 1]].Select;

// Меняем цвет ячеек в первой строке (названия стоблцов)
   Excel.Range[Excel.Cells[1, 1], Excel.Cells[1, ADOQuery1.Fields.Count]].Interior.ColorIndex:=16;

// Автоматически изменяем ширину столбцов и делаем Excel видимым
   Excel.Columns.AutoFit;
   Excel.Visible:=True;
end;

Из ADO компонентов использую ADOQuery, ADOConnection и DataSource. Пишу на Delphi XE2.

[nactyx]

Сообщение от Serge_Bliznykov

вы посмотрите на свой пост. Даже движок форума подсветил ошибку!

Если Вы про красный цвет - это моя работа, для удобства. Возможно неудачный цвет выбрал.

Сообщение от Аватар

Потому, что в строковой константе делфи каждая входящая кавычка должна дублироваться, иначе воспринимается компилятором как начало или конец константы. Всамой строке потом она не продублирована

Теперь понял, да.