comparto el codigo quizas puedan encontrar el hueco.
Primero obtengo los datos usando un Query que se conecta localmente
Código Delphi
[-]
QPrincipal.Active := False;
QPrincipal.SQL.Clear;
QPrincipal.SQL.Text := 'select * from historico_avl_1008 where ORDER_ID > '''+idlocal+'''';
QPrincipal.Active := True;
Despues asigno los valores obtenidos a los
string
Código Delphi
[-]
while (not QPrincipal.Eof) do
begin
v1 := QPrincipal.Fields[0].AsString;
v2 := QPrincipal.Fields[1].AsString;
v3 := QPrincipal.Fields[2].AsString;
.
.
.
v24 := QPrincipal.Fields[23].AsString;
QInsercion.SQL.Clear;
QInsercion.SQL.Add ('INSERT INTO `TablaRemota`');
QInsercion.SQL.Add ('(Campos de la Tabla');
QInsercion.SQL.Add ('VALUES ('''+v1+''','''+v2+''','''+v3+'''...'''+v24+'''');
try
QInsercion.ExecSQL;
except
LError.Caption := 'No se Subieron Datos!!!';
end;
QPrincipal.Next;
end;
Bueno espero sirva de algo....