|
Buenas otra vez. Lo he planteado de otro forma xo me sigue dando error. He decidido recorrer los arrays e introducirlos en una vble string.
procedure TForm1.OpInsert(campos : array of string; Tabla:String);
var
i,j: integer;
ConsultCamp,ConsultValor : String;
begin
with DM do
begin
for i:=low(campos) to high(campos) do
ConsultCamp := ConsultCamp + '''' + campos[i] + '''' + ',' ;
ConsultCamp := copy (ConsultCamp,-1,length(ConsultCamp)-2);
for j:=low(VNuevos) to high(VNuevos) do
ConsultValor := ConsultValor + '''' + VNuevos[j] + '''' + ',' ;
ConsultValor := copy(ConsultValor,-1,length(ConsultValor)-1);
{Memo1.Lines.Add(ConsultCamp);
Memo1.Lines.Add(ConsultValor);}
QrOperacion.SQL.Add('insert into ' + Tabla + '(' + ConsultCamp + ')');
QrOperacion.SQL.Add('values (' + ConsultValor + ')');
QrOperacion.Open;
end;
end;
Pero me da un error: sql Parse error: EOF in string detected'
|