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

[Ernest027]

Есть stringgrid. В нём числа например 50,100,150,200. Есть adoquery1 где куча записей. В field1 есть записи от 0 до 1250. Нужно в adoquery2 из adoquery1 скопировать все записи которые соответствуют записям stringgrid.

[Stilet]

Ну? Серега же дал ответ на этот вопрос.

[Ernest027]

неправильный синтаксис около ","

[Stilet]

var v:Double;
...
sIn := '';
with StringGrid1 do 
for i:=0 to RowCount-1 do begin
     if TryStrToFloat(Cells[1,i],v) then begin
       if sIn<>'' then sIn:=sIn+',';
       sIn := sIn + Cells[1,i];
    end;
end;


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

Так лучше?

[Ernest027]

неправильно определен объект parameter

[Stilet]

Не понос так золотуха
Показывай свой код

[Ernest027]

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  sIn:string;
  v:Double;
begin
if StringGrid1.Cells[1,1]<>'' then
begin
sIn := '';
with StringGrid1 do
for i:=0 to RowCount-1 do
begin
     if TryStrToFloat(Cells[1,i],v) then
    begin
       if sIn<>'' then sIn:=sIn+',';
       sIn := sIn + Cells[1,i];
    end;
end;
with DataModule2.ADOQuery8 do
begin
SQL.Clear;
SQL.Add('insert into VibrationCircle (f,a,v,d) select f,a1,v1,d1 from Vibration2 where f in ('+sIn+')');
ExecSQL;
SQL.Add('select * from VibrationCircle where PointID=:PointID order by f');
Open;
end;
end;

end;

[evg_m]

неправильно определен объект parameter

1. а присоединен ли ADO oбъект выполняющий нижеприведенный код к БД ?

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

Установлен ли у него ADOConnection ?

2. не закралось ли в переменную (sIn) незнамо откуда лишнее двоеточие или еще чего непонятного для SQL. (например для запятые подряд) или там совсем ничего нет (одни пробелы) ?

SQL.Clear;
SQL.Add('insert into VibrationCircle (f,a,v,d) select f,a1,v1,d1 from Vibration2 where f in ('+sIn+')');
ExecSQL;
SQL.Add('select * from VibrationCircle where PointID=:PointID order by f');
Open;

Кто второй раз будет чистить???
Да и параметры ПОСЛЕ изменения запроса не мешает выставлять заново.
Говорят же для каждого действия иметь СВОЙ ADO объект (именно для защиты от таких ляпов)

[Ernest027]

Замучила меня эта ошибка. да какой ему еще то параметр нужен?
Один раз как-то получилось сделать все как надо, ничего не менял, во второй раз запустил проект и опять эта ошибка.

[evg_m]

Замучила меня эта ошибка. да какой ему еще то параметр нужен?

SQL.Clear;
SQL.Add('insert into VibrationCircle (f,a,v,d) select f,a1,v1,d1 from Vibration2 where f in ('+sIn+')');
ExecSQL;
SQL.Add('select * from VibrationCircle where PointID=:PointID order by f');
Open;

а КАКОЙ из приведенных выше ДВУХ запросов выдает такую ошибку?

1. неужто первый, то бишь insert ?
тогда смотри что в ПЕРЕМЕННОЙ sIn (только числа через запятую?
какие числа, с ДЕСЯТИЧНОЙ точкой говоришь (FLOAT) ?
я честно не знаю как поведет себя сервер если у него выставлена в качестве десятичной точки (на самом деле запятая!!!).

2. Или ВСЕ ТАКИ второй, якобы SELECT ?
НО вот Insert от ПЕРВОГО запроса НИКУДА Не ДЕЛСЯ.
А параметры ОТ "нулевого" (ведь с самого начала там был SELECT) ВПОЛНЕ себе испарились, при наших манипуляциях.

SQL.Clear;
SQL.Add('insert...');

они ведь нам ЗДЕСЬ были НЕ НУЖНЫ.
И теперь их надо задавать СНОВА!!! НЕ ЗАБЫВ СТЕРЕТЬ ПРЕДЫДУЩИЙ ЗАПРОС.

Кто второй раз будет чистить???
Да и параметры ПОСЛЕ изменения запроса не мешает выставлять заново.
Говорят же для каждого действия иметь СВОЙ ADO объект (именно для защиты от таких ляпов)

ЧТО БЫ не было НОВЫХ глюков!!!!
СДЕЛАЙ для ВСТАВКИ еще один(!!!!) набор данных ADOQueryIns !!!! а ADOQuery1(и 2) оставь ТОЛЬКО для показа!!! (select .... )
и не трогай их!!!

Не трогал бы, глядишь и параметры бы не пропадали неведомо куда,и не появлялись бы из неоткуда.
Да сам код заново писать бы не пришлось.

И еще одни НОВЫЕ(СТАРЫЕ) грабли.

select * from vibratationCilce where pointID=:pointID

НИЧЕГО не найдет если мы добавляли БЕЗ pointID !!!!

insert into VibrationCircle (f,a,v,d)