Ver Mensaje Individual
  #3  
Antiguo 19-07-2011
NeWsP NeWsP is offline
Miembro
 
Registrado: oct 2003
Ubicación: Barcelona
Posts: 57
Reputación: 21
NeWsP Va por buen camino
Hola Oscarac,

de esta forma funcionar perfecto:

Código Delphi [-]
begin
query1.SQL.Clear; // Limpiamos el Query Principal
query1.SQL.Add(Edit1.text); // El contenido de Edit1.Text es el que pone arriba (EL SQL)
query1.Active:=True; // Activamos la tabla
query2.DatabaseName:='c:\'; // Configuramos query para introducir datos
query2.SQL.Clear; // Limpito limpito
query2.SQL.Add('INSERT INTO temp.dbf (NNUMPRE,TOTAL) VALUES(:NUMERP,:TOTAL)');
while not query1.eof do  //mientras no acabe el query principal
begin
query2.ParamByName('NUMERP').Value:=query1.FieldByName('NNUMPRE').Value;//Pasamos el valor del query1 al query2
query2.ParamByName('TOTAL').Value:=query1.FieldByName('TOTAL').value;

query2.ExecSQL;
query1.Next;   // Pasamos al siguiente regristro
end;

Mirando tu codigo he visto que se podia usar la opcion Value,yo siempre la he utilizado marcando un tipo.

normalmente los ingresos en tablas los hago asi, usando un

Código Delphi [-]
Try
Query2.execsql
Finally
Query1.Next

De todos modos me podrías comentar cual es la ventaja usando Append?
Muchisimas gracias
Responder Con Cita