Почему не робит??

[uraura]

снова запрос и снова не робит блин

Query1.SQL.Text:='INSERT INTO wremtabl SELECT * FROM Vopros WHERE Glava =('+QuotedStr(gl)+') AND Nvopr =('+QuotedStr(nv)+')';
Query1.ExecSQL;

[mihali4]

Какой формат имеет команда INSERT ?
Правильно - перечень полей + перечень значений для них (см. первый запрос).
А тут что???
Вывод - берем любую книгу по SQL и используем как справочник...
SQL - язык строгий, отсебятину не принимает.

извините, коллега. Но не это не совсем так

Да, да, каюсь, совсем забыл... Очень давно эту конструкцию опробовал, но так и не применял - не было нужды...

[Serge_Bliznykov]

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

Какой формат имеет команда INSERT ?
Правильно - перечень полей + перечень значений для них

извините, коллега. Но не это не совсем так.
вот, чтобы не повторяться - ссылка на дисскусию, посвященную этому вопросу, которая была здесь, на форуме - сохранение результата запроса в таблицу БД

[uraura]

я читаю книги уже голова болит за две недели с ничего сделай прогу в делфи (который тока увидел) вот и парюсь, ну ладно не об этом
вот пример из книги:

INSERT ... SELECT
- Такой синтаксис позволяет внести в таблицу большое количество записей за один раз, причем из разных таблиц.
Следующий пример запишет в таблицу users_new все записи из таблицы users, в которых поле country равно "Russia".
INSERT INTO `users_new` SELECT * FROM `users` WHERE `country` = 'Russia'
Если для таблицы, в которую происходит вставка записей, не указан список полей, то значения для всех полей будут определены на основании результата работы SELECT.

мне и надо в таблицу wremtabl из таблицы Vopros записать строки в которых поля Glava и Nvopr нужных мне значений

[uraura]

запрос оказался правильным просто в таблицах разные типы полей были

[uraura]

вот еще наворотил!
сейчас запрос работает но выдает на каждую запись из таблицы Vopros всю таблицу WarOt а надо из той и другой строчку где Glava=Х и Nvopr=Х
таблицы Vopros, WarOt в них есть идентичные поля Glava и Nvopr

INSERT INTO wremtabl (Field1, Field2, Field3, Field4, Field5, Field6, Field7, Field8, Field9 ) SELECT Vopros.Glava, Vopros.Nvopr, Voprosi, Otvet, Var1, Var2, Var3, Var4, Var5 FROM Vopros, WarOt WHERE Glava =('+QuotedStr(gl)+') AND Nvopr =('+QuotedStr(nv)+'

[Serge_Bliznykov]

ну, запомните, если Вы указываете во FROM несколько таблиц, значит должны указать как они друг с другом связаны!

INSERT INTO wremtabl (Field1, Field2, Field3, Field4, Field5, Field6, Field7, Field8, Field9 ) 
SELECT Vopros.Glava, Vopros.Nvopr, 
            Voprosi, Otvet, Var1, Var2, Var3, Var4, Var5 
  FROM Vopros, WarOt 
  WHERE Vopros.Glava = ('+QuotedStr(gl)+') 
   AND Vopros.Nvopr =('+QuotedStr(nv)+')'
   AND Vopros.Glava = WarOt.Glava 
   AND Vopros.Nvopr = WarOt.Nvopr

где-то так....

[uraura]

отлично! я почти так же пробовал но

INSERT INTO wremtabl (Field1, Field2, Field3, Field4, Field5, Field6, Field7, Field8, Field9 )
SELECT Vopros.Glava, Vopros.Nvopr,
Voprosi, Otvet, Var1, Var2, Var3, Var4, Var5
FROM Vopros, WarOt
WHERE Vopros.Glava = ('+QuotedStr(gl)+')
AND Vopros.Nvopr =('+QuotedStr(nv)+')
AND WarOt.Glava = ('+QuotedStr(gl)+')
AND WarOt.Nvopr = ('+QuotedStr(nv)+')

[uraura]

У меня снова вопрос
мне надо чтобы моя программа создавала таблицу (БД тип PARADOX7) не в папке с экзешником а в отдельной папке Protokol при помощи SQL запроса
Query1.Close;
Query1.SQL.Clear;
Query1.sql.Text:='CREATE TABLE '+QuotedStr(TabNom)+' (glava CHAR(2), nvopr CHAR(2))';
Query1.ExecSQL;

[uraura]

может вот это куда то вставить надо?
path:=ExtractFilePath(ParamStr(0))+ 'Protokol\';