Копирование некоторых строк из одного ado в другой

[Ernest027]

Привет!)
Есть таблица ado,в field1 числа от 1 до 200. Как при помощи sql запроса из этой таблицы вставить записи в другую, причём только записи которые равны 50,100,150 и 200?
Спасибо.

[Аватар]

Есть формат INSERT-а c запросом. Им и вставляй

Например

https://msdn.microsoft.com/ru-ru/lib...=sql.120).aspx

[Ernest027]

insert into table2.field1 select field1 from table1 where field1=50 and field1=100 and field1=150 and field1=200

так?)

[phomm]

У одной записи не может быть значение поля ОДОВРЕМЕННО (из-за указанных Вами and) равным разным величинам. Сами догадаетесь, что поправить ?
И запрос немного некорректен

insert into table2 (field1) select ...

[Ernest027]

insert into table2 (field1) select field1 from table1 where field1 in (50,100,150,200)

так?

[evg_m]

так. И встречный вопрос. А остальные поля заполнять(копировать) не надо?!

[Ernest027]

Надо)

insert into table2 (field1,field2) select field1,field2 from table1 where field1 in (50,100,150,200)

а если число нужно вытащить равное тому что в edit?

insert into VibrationCircle (f,a,v,d) select f,a1,v1,d1 from Vibration where f in ('+QuotedStr(FloatToStr(StrToFloat(Edit3.Text)))

так не выходит, говорит неправильный синтаксис около "50", это в случае если в edit стоит число 50.

нужные числа вывожу в stringgrid и из одной бд в другую надо скопировать записи, которые соответсвуют значениям из stringgrid. делаю так, но не работает

insert into VibrationCircle (f,a,v,d) select f,a1,v1,d1 from Vibration2 where f ='+QuotedStr(StringGrid1.Cells[1,i])

[Serge_Bliznykov]

sIn := '';
for i:=0 to StringGrid1.RowCount-2 do
     sIn := sIn + StringGrid1.Cells[1,i]+',';
sIn := sIn + StringGrid1.Cells[1,StringGrid1.RowCount-1];

.... := 'insert into VibrationCircle (f,a,v,d) select f,a1,v1,d1 from Vibration2 where f in ( '+sIn+' )';

[Ernest027]

а почему не работает так?

for i:= 1 to 8 do begin
...
insert into VibrationCircle (f,a,v,d) select f,a1,v1,d1 from Vibration2 where f in('+QuotedStr(StringGrid1.Cells[1,i])+')

[Stilet]

а почему не работает так?

Наверное потому, что так ты на каждую итерацию дергаешь запрос, а это бессмысленно и не эффективно. К тому же не очень понятно что именно формируется в строку запроса.