consulta con ado, delphi7 y access

[serhasae]

Hola realizo una consulta con ado y delphi 7 y al hacer un insert a la tabla y ejecutar execsql a veces me lo hace y otras veces no funciona el metodo, me estoy volviendo loco mañana colocare el codigo, alguna idea?.

[marco3k]

Si pondrías el código que estas usando sería mejor para entender el problema y que alguien pueda ayudarte.

[Neftali [Germán.Estévez]]

Empezado por serhasae

...al hacer un insert a la tabla y ejecutar execsql a veces me lo hace y otras veces no funciona el metodo

Para que te hagas una idea, eso es como decir, "voy al coche, le doy a la llave y a veces arranca y a veces no". Pues puede ser que le falte gasolina, la bomba, la batería, el contacto, las escobillas si tiene carburador, las bujías, es starter,....


Lo normal sería tener un control de errores al realizar el INSERT de forma que si hay algun problema sepas qué error te estás dando.
Además del código como te han comentado, detalla el error y con eso tal vez tengamos una idea.
Puede ser que estén añadiendo claves duplicadas, valores incorrectos, problemas con índices únicos, bloqueos,...

NOTA (de buen rollo): Con 108 posts en estos foros, la pregunta tiene tela...

[cloayza]

Empezado por Neftali [Germán.Estévez]

...eso es como decir, "voy al coche, le doy a la llave y a veces arranca y a veces no". Pues puede ser que le falte gasolina, la bomba, la batería, el contacto, las escobillas si tiene carburador, las bujías, es starter,....

Otra opción, puede ser que no tiene coche?

[Casimiro Notevi]

Otro ejemplo:

Es que no funciona la impresora.
¿Tiene el cable conectado al ordenador?
Sí
¿Tiene el cable conectado a la electricidad?
Sí
¿Pero está encendida?
¡¡¡ Ya funciona !!!

[serhasae]

Código Delphi [-]
CAsmm.Active:=False;
CAsmm.SQL.Clear;

CAsmm.SQL.Text:='INSERT INTO ASM_MASIVO '+
           'SELECT DISTINCT C.*,C.TNETO AS T_NETO,C.PESO_FAC AS T_PESO_FAC,'+
           'T.PRECIO AS TARIFA FROM COUTIN AS C, TASM AS T '+
           'WHERE T.AGENCIA=:AG AND T.DESTINO=:AS AND '+
           '(C.PESO_FAC>=T.PMIN AND C.PESO_FAC<=T.PMAX) AND '+
           '(C.ESCALADO>=T.EMIN AND C.ESCALADO<=T.EMAX);';


CAsmm.Parameters.ParamByName('AG').Value:='ASMMAS';
CAsmm.Parameters.ParamByName('AS').Value:='NAP';

CAsmm.Prepared:=True;



   if (CAsmm.ExecSQL=0) then
       Begin
  MessageDlg ('Error al Intentar Crear Asm Masivo', mtError,
                  [mbOK], 0);
       sw:=false;
       end;

Se que la consulta esta bien, la tiro directamente desde access y me la devuelve correctamente. Se que el problema es el ExecSql, tambien he probado a cerrar las tablas antes de llamar a esta consulta, me tiene loco proque a veces lo hace correctamente y a veces no, no entiendo el porque.

Tambien he probado a crear la consulta en access que funciona y borrar la tabla y crearla con:

CAsmm.Close;
CAsmm.SQL.Clear;
CAsmm.SQL.Text:='DROP TABLE ASM_MASIVO';
CAsmm.ExecSQL;

CAsmm.Close;
CAsmm.SQL.Clear;
CAsmm.SQL.Text:='SELECT * INTO ASM_MASIVO FROM (SELECT * FROM CASM_MASIVO);';
CAsmm.ExecSQL;

No lo hace tampoco.

Gracias a todos.

[serhasae]

Empezado por Neftali [Germán.Estévez]

Para que te hagas una idea, eso es como decir, "voy al coche, le doy a la llave y a veces arranca y a veces no". Pues puede ser que le falte gasolina, la bomba, la batería, el contacto, las escobillas si tiene carburador, las bujías, es starter,....


Lo normal sería tener un control de errores al realizar el INSERT de forma que si hay algun problema sepas qué error te estás dando.
Además del código como te han comentado, detalla el error y con eso tal vez tengamos una idea.
Puede ser que estén añadiendo claves duplicadas, valores incorrectos, problemas con índices únicos, bloqueos,...

NOTA (de buen rollo): Con 108 posts en estos foros, la pregunta tiene tela...

Hago un borrado de la tabla y luego hago un insert no hay claves duplicadas en la clave primaria, compruebo que la tabla este vacia antes de hacer un insert, he probado con delphi7 y delphi 2010 por si fuera cosa del ado, he colocado el codigo es que anoche no podia dormir y por eso tire la consulta sin el codigo. Gracias Catalan, Saludos desde Valencia.