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

[Stilet]

да какой ему еще то параметр нужен?

Ты внимательно прочитал что тебе evg_m написал?

[Ernest027]

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  sIn:string;
  k: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],k) 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 (PointID,f,a,v,d) select '+QuotedStr(DataModule2.ADOQuery2.FieldByName('PointID').AsString)
+',f,a1,v1,d1 from Vibration2 where f in ('+quotedstr(sIn)+')');
ExecSQL;
SQL.Add('select * from VibrationCircle where PointID='+QuotedStr(DataModule2.ADOQuery2.FieldByName('PointID').AsString)
+' order by f');
Open;
end;
end;

end;

ошибка при преобразовании типа данных varchar к numeric.

Ты внимательно прочитал что тебе evg_m написал?

да.

тогда смотри что в ПЕРЕМЕННОЙ sIn

пока только целые числа

[Ernest027]

как то так по несколько раз вставляет. а десятичные вообще пропускает. тип поля decimal(18,4)

[evg_m]

по несколько раз вставляет.

MS SQL он такой, может и несколько запросов в одной команде проглотить.

SQL.Clear;
SQL.Add('insert ...);
ExecSQL; //ДОБАВИЛИ что считали нужным
SQL.Add('select ...);
SQL.Open; //НО!!!

insert из команды НИКУДА не делся (ccылки на посты где об этом УЖЕ говорилось дать?)
посему ДОБАВЛЯЕМ еще раз. и только потом читаем что получили!

P.S. Пиши ты все SQL запросы в отдельных ADO-шках и не узнал бы о таких фишках!

',f,a1,v1,d1 from Vibration2 where f in ('+quotedstr(sIn)+')');

ОДИН из случаев когда КАВЫЧКИ будут ЛИШНИМИ!!!

ошибка при преобразовании типа данных varchar к numeric.

ну не может быть такого числа '1,2,3,4,5'.
все что взято в кавычки по мнению сервера это есть (должно быть) одно значение поля (то бишь одно число).
в кавычки (в случае in) либо каждое число по отдельности, либо ничего.

in (1,2,3,4,5)
in ('1','2','3','4','5')

[Ernest027]

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
if StringGrid1.Cells[1,1]<>'' then
begin
for i := 0 to 7 do
begin
with DataModule2.ADOQuery1 do
begin
  sql.Clear;
  SQL.Add('select * from Vibration2 where f='+quotedstr(StringGrid1.Cells[1,i]));
  Open;
end;
with DataModule2.ADOQuery8 do
begin
Append;
FieldByName('f').AsFloat:=DataModule2.ADOQuery1.FieldByName('f').AsFloat;
FieldByName('a').AsFloat:=DataModule2.ADOQuery1.FieldByName('a1').AsFloat;
FieldByName('v').AsFloat:=DataModule2.ADOQuery1.FieldByName('v1').AsFloat;
FieldByName('d').AsFloat:=DataModule2.ADOQuery1.FieldByName('d1').AsFloat;
post;
end;
DataModule2.ADOQuery1.Requery();
end;
end;
DataModule2.ADOQuery8.SQL.Clear;
DataModule2.ADOQuery8.SQL.Add('select * from VibrationCircle where PointID='+QuotedStr(DataModule2.ADOQuery2.FieldByName('PointID').AsString)+' order by f');
DataModule2.ADOQuery8.Open;
DataModule2.ADOQuery1.Requery();
end;

вот так работает,но почему то только с целыми числами. Если в stringgrid появляются числа с запятой то пишет:

ошибка при преобразовании типа данных varchar к numeric.

[evg_m]

SQL.Add('select * from Vibration2 where f='+quotedstr(StringGrid1.Cells[1,i]));

вот так работает,но почему то только с целыми числами. Если в stringgrid появляются числа с запятой то пишет:

я честно не знаю как поведет себя сервер если у него выставлена в качестве десятичной точки (на самом деле запятая!!!).

Не зря постоянно твердят работай с(через) параметрами.

SQL.Add('select * from Vibration2 where f=:fx');

и далее
1) либо напрямую

SQL.Paramters.ParameterByName('fx').value:=StringGrid1.Cells[1,i];

если будет нормальное число то Variant такое должен переварить, но как он поведет себя в НЕНОРМАЛЬНОМ случае не знаю.

2) либо "сам" надежно проверяй правильность числа

SQL.Parameters.ParameterByName('fx').value:=StrtoFloat(StringGrid1.Cells[1,i]);

Я лично за второй вариант.