ERROR index out of bounds (15)

[MikyVato]

Hola a todos, recurro de nuevo a uds tengo un problema logre conectarme con la DB tanto local como remotamente atravez de un ODBC (uno para cada DB, son 2). Leo los datos de un tabla en particular de forma local y los subo de forma remota en la otra DB, la tabla tiene 24 Campos recupero los datos con un Query de la Paleta BDE pero no me permite subir todo los campo me muestra el error :EListError with message List index out of bounds (15) Alguien me puede ayudar??:

[MikyVato]

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;

// Hago el Insert Remoto
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....

[[Al González]]

Pues así, de bote pronto, es como si QPrincipal no tuviera más de 15 campos. ¿En qué línea del programa se detiene al aparecer el error?

[MikyVato]

El error aparace en la linea v15 := QPrincipal.Fields[14].AsString; realmente no entiendo porque estaba funcionando, intente usando 2 Query supuse que quizas sea un problema de memoria o algo asi pero no igual da el error, pero si coloco hasta 14 items cualquiera sea anda de LUX... Espero su ayuda realmente me esta sacando este problema

[[Al González]]

¿Cambiaste de base de datos o algo así? ¿Seguro que se trata de la misma tabla que cuando funcionaba bien?

¿Por qué no lo haces con una rejilla DBGrid asociada a esa consulta (sin definirle columnas a la rejilla) y miras cuántos campos se muestran realmente?

[MikyVato]

segui tu concejo coloque el DBGrid y me estan faltando columnas cuando el Select que estoy arrojando tiene * esto me ha dejado desconcertado totalmente.... comparo el DBGrid directamente con la DB y me están faltando campos en el DBGrid no lo entiendo??????