24 replies to this topic

[luk2009]

delphi

begin
 
    DMmonitoreo.ztCENTRAL.Insert;
    DMmonitoreo.ztCENTRALcsid.Value := trim(csid);
    DMmonitoreo.ztCENTRALbuffer.Value := buffer;
    DMmonitoreo.ztCENTRALformato.Value := formato;
    DMmonitoreo.ztCENTRALEVENTO.Value := trim(EVENTO);
    DMmonitoreo.ztCENTRALDETALLE.Value := detalle;
    Dmmonitoreo.ztCENTRALfechan.Value := now;
    DMmonitoreo.ztCENTRAL.Post;
 
    if DMmonitoreo.ZQcentralTIPO.AsString = 'A'  then
    begin
      DMmonitoreo.ZTacti.Insert;
      DMmonitoreo.ZTactiCSID.Value := DMmonitoreo.ztCENTRALcsid.Value;
      DMmonitoreo.ZTactiEVENTO.Value := DMmonitoreo.ztCENTRALEVENTO.Value;
      Dmmonitoreo.ZTactiFECHAN.Value := dmmonitoreo.ztCENTRALfechan.Value;
      DMmonitoreo.ZTacti.post;
    end;

Quiero hacer esto pero usando un Zquery  y con Parametros creados en la ejecucion.

Arranque con esto

delphi

begin
   Dmmonitoreo.ZQcentral.close;
   Dmmonitoreo.ZQcentral.SQL.Clear;
   Dmmonitoreo.ZQcentral.SQL.Add('insert into central(:csid,:buffer,:formato,:evento,:detalle,:fechan)');
   Dmmonitoreo.ZQcentral.Parambyname('csid').asstring     :=trim(csid);
   Dmmonitoreo.ZQcentral.ParamByName('buffer').AsString   :=buffer;
   Dmmonitoreo.ZQcentral.ParamByName('formato').AsString  :=formato;
   Dmmonitoreo.ZQcentral.ParamByName('evento').AsString   :=trim(evento);
   Dmmonitoreo.ZQcentral.ParamByName('detalle').AsString  :=detalle;
   Dmmonitoreo.ZQcentral.ParamByName('fechan').AsDateTime :=now;
   Dmmonitoreo.ZQcentral.ExecSQL;

solo puse los valores, ya que lei que va a insertar valores en todos los campos de la tabla, no es necesario mencionar los campos.

Pero me da el siguiente error:



http://img80.imagesh.../apro3error.jpg

[eduarcol]

Has intentado colocar los nombre de los campos?, revisa tambien la propiedad request live en true

[egostar]

Pero...... que no debe ser asi el INSERT ????

delphi

   Dmmonitoreo.ZQcentral.SQL.Add(' INSERT INTO central(csid, buffer, formato, evento, detalle, fechan) ');
   Dmmonitoreo.ZQcentral.SQL.Add(' VALUES (:csid, :buffer, :formato, :evento, :detalle, :fechan) ');

Salud OS

[luk2009]

Tenias Razon Egostar asi es que va el insert. Pero lei en un manual que podia hacerlo si el nombre de los campos, siempre y cuando no dejara ninguno vacio. pero como ahi uno autoincrementable, talvez por ahi sea el problema.

Gracias Egostar

EDUARCOL , Creo que me estoy poniendo ciego pero no encuentro la propiedad

Has intentado colocar los nombre de los campos?, revisa tambien la propiedad request live en true

No la veo en el Object Inspector del Zquery.

[Fenareth]

Tenias Razon Egostar asi es que va el insert. Pero lei en un manual que podia hacerlo si el nombre de los campos, siempre y cuando no dejara ninguno vacio. pero como ahi uno autoincrementable, talvez por ahi sea el problema.
...

Definitivamente eso es algo que causa problemitas... los autoincrementables, en esos casos, yo he tenido que especificar los campos y sus respectivos valores a insertar...

Saludos,

[egostar]

Tenias Razon Egostar asi es que va el insert. Pero lei en un manual que podia hacerlo si el nombre de los campos, siempre y cuando no dejara ninguno vacio. pero como ahi uno autoincrementable, talvez por ahi sea el problema.

Si es correcto, pero en todo caso debe ser de esta forma

delphi

   Dmmonitoreo.ZQcentral.SQL.Add(' INSERT INTO central ');
   Dmmonitoreo.ZQcentral.SQL.Add(' VALUES (:csid, :buffer, :formato, :evento, :detalle, :fechan) ');

Sobre el asunto del autoincrementable que me imagino es :csid, puedes intentar con esto:

delphi

   Dmmonitoreo.ZQcentral.SQL.Add(' INSERT INTO central ');
   Dmmonitoreo.ZQcentral.SQL.Add(' VALUES (null, :buffer, :formato, :evento, :detalle, :fechan) ');

Al pasar el dato nulo automáticamente deberia de asignarte el valor en tu base de datos, ¿que base de datos estas utilizando?

Salud OS

[luk2009]

Gracias egostar por tu respuesta

Estoy utilizando Firebird.

El campo autoincrementable no esta mencionado en la consulta es entradadatos. No lo menciono porque el sistema lo inserta automaticamente. voy a probar como me dices poniendo el valor null en la parte del campo autoincrementable. Porque el problema pudo ser que al dejar de mencionar uno de los campos en la consulta, esta me daba el error.

Nota: Egostar donde esta la propiedad Requestlive del Zquery. La pongo true en donde?

Gracias de nuevo

Eduarcol, gracias por tu respuesta tambien, se me olvido agradecerte antes

[egostar]

Hola

La propiedad RequestLive te sirve para cambiar un SELECT en un Query que es de solo lectura a escritura, pero no es tu caso porque estas usando INSERT con ExecSQL.

Esta propiedad solo la trae el TQuery "normalito" de la carpeta BDE, me imagino que Zeos no la utiliza.

Salud OS

[luk2009]

Gracias De nuevo Egostar.

Te comento que esta forma si me funciona y el autoincrementable se pone solito, ya que en esta aclaro los valores que quiero cambiar. En las otras dos que me pusiste donde no escribo el nombre de los campos o en la que le pongo null al campo autoincrementable, me da un error similar al que me daba y que indico en mi primera pregunta.

Pero...... que no debe ser asi el INSERT ????

delphi

   Dmmonitoreo.ZQcentral.SQL.Add(' INSERT INTO central(csid, buffer, formato, evento, detalle, fechan) ');
   Dmmonitoreo.ZQcentral.SQL.Add(' VALUES (:csid, :buffer, :formato, :evento, :detalle, :fechan) ');

Salud OS

pero asi me funciona bien, asi que no hay problema.

Por otro lado el asunto del request live me intereza porque se supone que con eso me evito el estar haciendo refresh. Como actualizo el Zquery si no tengo esa propiedad.


Ultima pregunta. El Dbgrid lo estoy llenando con otro Zquery, ya que con el que hago el insert, me sale en blanco,
debido a que no estoy solicitando ninguna informacion, sino insertando registros. Puedo o debo utilizar el mismo zquery y si es asi como hago para que aparezcan los datos en el dbgrid.

[egostar]

Hola

Si el zQuery tuviese una propiedad ApplyUpdates podrí­a darte el resultado que esperas, de otra forma tendrias que hacerlo manualmente:

• Después de Agregar Datos
• Cierra el zQuery del Select
• Abres el zQuery del Select

Salud OS

[eduarcol]

no puedes utilizar el mismo zQuery en el dbgrid, para que te aparezcan los datos luego de insertados deberas refrescar la consulta.

Con lo del requestlive es una propiedad que deberas buscar en el inspector.

[Fenareth]

Puede usar el mismo zQuery como algo así­ no ???

delphi

procedure TfmNieto.BotonClick(Sender: TObject);
begin
     with dam.Query do
     begin
       close;
       sql.clear;
       sql.Add('insert into tabla_prueba');
       sql.Add('values (8,'+quotedstr('gaby')+','+quotedstr('olivas')+')');
       execsql; // hasta aquí­ hace la inserción
       close; // cierra la consulta
       sql.text := 'select * from tabla_prueba'; // genera el select
       open; // vuelve a abrir la consulta
     end;  
 
end;

Saludos

P.D. Ojalá vuelvan las etiquetas de Delphi pronto 

[luk2009]

Gracias fenareth por tu respuesta.

Si realmente funciona bien asi. El problema es que lo que buscaba con hacer el insert por medio de un query, era precisamente no tener que hacer refresh.

Eduarcol me ha indicado en otras ocasiones que es mejor asi. Pero ahora no encuentro la propiedad request live en
el query de zeos y por lo tanto estoy en lo mismo que si lo hiciera con una tabla.

EDUARCOL enviame un ejemplito de un Zquery con la propiedad request live en true, porque realmente no se donde esta.

[eduarcol]

no te des mala vida por el request live si no lo tienes me imagino que es una version mas nueva que la mia, con respecto al ejemplo cual necesitas porque hay muchas formas de hacer un insert

[luk2009]

Gracias Eduarcol por tu respuesta.

Segun el insert con parametros que estoy haciendo, como hago para que me aparezcan los datos actualizados en el dbgrid con este query como indica fenareth o con otro query.

Lo que no quiero es hacer los refresh. Porque tienes razon en que hacen mas lento el proceso.

Pero si es obligatorio hacer el refresh, me gustaria saber como hacer la consulta en firebird donde solo me de los ultimos 10 registros de la tabla. Con esto el refresh va a ser mas rapido.

lo intente con:

delphi

dmmonitoreo.zqcentral.text := 'select top 10 * from central order by entradadatos desc

pero esta consulta no funciona en firebird

[eduarcol]

esas sentencias las utilizo muy poco, pero creo que en lugar de TOP deberias colocar FIRST si no es asi deja que lleguen los que si saben.

Sigue asi que vas bien

[egostar]

.......me gustaria saber como hacer la consulta en firebird donde solo me de los ultimos 10 registros de la tabla. Con esto el refresh va a ser mas rapido.

lo intente con:

delphi

dmmonitoreo.zqcentral.text := 'select top 10 * from central order by entradadatos desc

pero esta consulta no funciona en firebird

Debes usar

sql

SELECT FIRST 10 * FROM central ORDER BY entradadatos DESC

Salud OS

[luk2009]

Gracias por sus respuestas.

Es correcto la consulta es asi. El problema es que cuando sale en el dbgrid, el ultimo registro esta arriba y me gustaria que estuviera abajo.

ejemplo

1010
1009
1008
1007

quisiera que saliera
1007
1008
1009
1010

gracias de nuevo

[egostar]

Gracias por sus respuestas.

Es correcto la consulta es asi. El problema es que cuando sale en el dbgrid, el ultimo registro esta arriba y me gustaria que estuviera abajo.

ejemplo

1010
1009
1008
1007

quisiera que saliera
1007
1008
1009
1010

gracias de nuevo

Y si le quitas el desc ????

sql

SELECT FIRST 10 * FROM central ORDER BY entradadatos

Salud OS

[luk2009]

La consulta es de esta manera que funciona:

delphi

dmmonitoreo.zqcentral.text := ' SELECT first 10 * from (select first 10 * from central order by entradadatos desc) order by entradadatos';