6 replies to this topic

[mati_pincha]

Hola muchachos, tengo una duda sobre el siguiente mensaje de error:

Project 'miproyecto.exe' raised exception class EDatabaseError with message 'La consulta es demasiado conmpleja'.

Mi programa posee una tabla de access la cual tiene muchos campos, por lo que evidentemente el problema es por esto, aqui les paso el codigo:

delphi

  datamodule2.Piezas1.Edit;
  for a := 1 to 20 do begin
    i:=i+1;
    n:=1;
    st:= inttostr(indice);
    Datamodule2.Piezas1.FieldByName(st).asinteger:=m[i,n];
    indice:=indice +1;
    n:=n+1;
    st:= inttostr(indice);
    Datamodule2.Piezas1.FieldByName(st).asinteger:=m[i,n];
    indice:=indice +1;
    n:=n+1;
    st:= inttostr(indice);
    Datamodule2.Piezas1.FieldByName(st).asinteger:=m[i,n];
    indice:=indice +1;
    n:=n+1;
    st:= inttostr(indice);
    Datamodule2.Piezas1.FieldByName(st).asinteger:=m[i,n];
    indice:=indice +1;
    n:=n+1;
    st:= inttostr(indice);
    Datamodule2.Piezas1.FieldByName(st).asinteger:=m[i,n];
    indice:=indice + 6;
    st:= inttostr(indice);
 end;
    datamodule2.Piezas1.Post;

en el post me tira este error, lo que hace antes es agregar la informacion contenida en una matriz a la tabla. Mi duda esta en que yo previamente hago lo mismo pero para insertar una entrada nueva (con append) y no me tira el error..  y esta vez, en la que edito una existente (con edit), me pasa esto.
Ojala alguno me pueda ayudar. Gracias desde ya. un Saludo, Matias

[egostar]

Hola

¿ Podrías mostrarnos la consulta ?

Saludos

[OFF-TOPIC]Edité tu mensaje para colocarle la etiqueta DELPHI, con eso se aprecia mejor el código, para la consulta puedes usar la etiqueta SQL que se localiza en la parte alta del cuerpo del mensaje.[/OFF-TOPIC]

[mati_pincha]

Hola, gracias por contestar. La cosa es que no hay ninguna consulta. Piezas1 es un ADOTable comun que contiene la tabla piezas1 a la cual le estoy asignando esa informacion. Lo que hace el codigo es editar un campo de la tabla que  ya fue insertado anteriormente. No entiendo el porque del error  si con append funciona..

Gracias de nuevo. un saludo

[Wilson]

Independientemente del error que te sale , a primera vista encuentro un error grande de lógica, dentro del procedimiento antes de llamar a Post,  estás asignando  5 veces un valor diferente al mismo campo "st" y este error lo estás repitiendo otras 20 veces con el ciclo, si no te diera error, tan solo guardaría el último valor de los 100 que intentas pasarle.

Saludos.

[luisgutierrezb]

Si estableciste una llave primaria en la tabla?? generalmente eso ayuda mucho..

[mati_pincha]

Hola muchachos, gracias por responder.
Wilson: el campo st va cambiando al hacer:

delphi

    indice:=indice +1;
    st:= inttostr(indice);

luisgutierrezb: si, mi base de datos consta de 3 tablas. Para que te hagas una idea es un odontograma. La primera tabla contiene informacion de los pacientes (clave id_paciente), y las otras dos (que contienen el campo id_paciente para la relacion) contienen informacion del estado de las piezas bucales.

Quizas sea un problema de access y sus limites, pero insisto en que lo raro es que me deje agregar una entrada nueva y no modificar una existente con otros valores.. Gracias de nuevo

[Wilson]

Hola muchachos, gracias por responder.
Wilson: el campo st va cambiando al hacer:

    indice:=indice +1;
    st:= inttostr(indice);

Disculpa, no había notado que st es dinámico.