15 replies to this topic

[luk2009]

delphi

procedure TFRMnotas.GUARDAR1Click(Sender: TObject);
begin
  DMmonitorenred.ZqActivas.SQL.Add('update activas set nota = ' + (WNOTAS + chr(10) + RicheditNotas.Text +  formatdatetime('   dd/mm/yyyy hh:mm:ss',now)));
  DMmonitorenred.ZQActivas.ExecSQL;
  close;
end;

y mi consulta original en el ZQactivas es esta:

sql

SELECT FIRST 100 *  FROM  Activas  INNER JOIN evento ON activas.evento= evento.evento LEFT JOIN acmsub ON activas.csid=acmsub.csid
ORDER BY  ALARMNUM DESC

cuando presiono el boton de guardar nota me da este error:


http://img234.imageshack.us/img234/1455/firebirdupdate1.jpg 

[Wilson]

Hola, aunque no conozco los componentes Zeos,  este mismo problema lo he solucionado en Ado o dbExpress de la siguiente manera: hay que definir campos persistentes para el query, y  configurar a True la propiedad ProviderFlags pfInKey de el campo que represente la clave principal de la tabla a actualizar(en tu caso la clave principal de  Activas), y para los campos  de la tabla asociada en tu caso(Eventos) configurar a false las propiedades ProviderFlags pfInUpdate y pfInWhere.

[eduarcol]

Hola, una duda, para que agregas un update luego del Select 

delphi

procedure TFRMnotas.GUARDAR1Click(Sender: TObject);
begin
  DMmonitorenred.ZqActivas.SQL.Text('update activas set nota = ' + (WNOTAS + chr(10) + RicheditNotas.Text +  formatdatetime('   dd/mm/yyyy hh:mm:ss',now)));
  DMmonitorenred.ZQActivas.ExecSQL;
  close;
end;

El unico incoveniente, es que con ese codigo se actualizan TODOS los registros 

[luk2009]

Utilizaba este codigo exactamente igual con ado y sql server y no me daba ningun error
y solo actualiza el registro activo.

Tengo un dbgrid y en el evento oneditclickbutton se abre el formulario para escribir un comentario en un campo tipo memo. La persona puede escribir varios comentarios en momentos diferentes.

No se porque me da error con zeos y firebird.

Estoy probando la solucion  de  wilson y todavia nada.

aqui esta el codigo completo del formulario

delphi

var
  FRMnotas: TFRMnotas;
  WNOTAS  : String;
 
implementation
 
uses  frmmonitoreoenred, UDMmonitorenred, UfrmPendiente2;
 
{$R *.dfm}
 
procedure TFRMnotas.SALIR1Click(Sender: TObject);
begin
  close;
end;
 
procedure TFRMnotas.CORTAR1Click(Sender: TObject);
begin
  RicheditNotas.CutToClipboard;
end;
 
procedure TFRMnotas.GUARDAR1Click(Sender: TObject);
begin
  DMmonitorenred.ZqActivas.SQL.Add('update activas set nota = ' + (WNOTAS + chr(10) + RicheditNotas.Text + formatdatetime('   dd/mm/yyyy hh:mm:ss',now)));
  DMmonitorenred.ZQActivas.ExecSQL;
  close;
end;
 
procedure TFRMnotas.PEGAR1Click(Sender: TObject);
begin
  RicheditNotas.PasteFromClipboard;
end;
 
procedure TFRMnotas.COPIAR1Click(Sender: TObject);
begin
  RicheditNotas.CopyToClipboard;
end;
 
procedure TFRMnotas.BitBtn1Click(Sender: TObject);
begin
  DMmonitorenred.ZQactivas.Edit;
  DMmonitorenred.ZQActivasNOTA.AsString := WNOTAS + chr(10) + RicheditNotas.Text + formatdatetime('   dd/mm/yyyy hh:mm:ss',now);
  DMmonitorenred.ZQActivas.Post;
  close;
end;
 
procedure TFRMnotas.BitBtn2Click(Sender: TObject);
begin
  FRMnotas.Close;
end;
 
procedure TFRMnotas.FormShow(Sender: TObject);
begin
  WNOTAS                          := '';
  RicheditNotas.Text              := '';
  RadioGroupOpcionNotas.ItemIndex := 0;
  WNOTAS                          := DMmonitorenred.ZQActivasNOTA.AsString;
end;
 
procedure TFRMnotas.RadioGroupOpcionNotasClick(Sender: TObject);
begin
  case RadioGroupOpcionNotas.ItemIndex of
  0: begin
        RicheditNotas.ReadOnly  := False;
        RicheditNotas.Text := '';
     end;
  1: begin
        RicheditNotas.ReadOnly  := True;
        if RicheditNotas.Text <> '' then
           WNOTAS := WNOTAS + chr(10) +
                     RicheditNotas.Text +
                     formatdatetime('   dd/mm/yyyy hh:mm:ss',now);
        RicheditNotas.Text := WNOTAS;
     end;
  end;
end;

[Wilson]

Hola, una duda, para que agregas un update luego del Select 

Comparto la duda de Eduarcol, creo que deberí­as usar un Query independiente para realizar la actualización.

De momento  Zeos dice que no pude actualizar por el encuentro natural de dos tablas mediante el INNER JOIN, entonces la cuestión podrí­a quedar mas o menos así­, para actualizar solo el registro actual:

delphi

procedure TFRMnotas.GUARDAR1Click(Sender: TObject);
begin 
DMmonitorenred.ZqQueryActualizacion.SQL.Add('update activas set nota = ' + (WNOTAS + chr(10) + RicheditNotas.Text + formatdatetime('   dd/mm/yyyy hh:mm:ss',now))+'WHERE Activas.ClavePrincipal =:Valor'); 
DMmonitorenred.ZqQueryActualizacion.Parametros[0].Value :=
ZqActivas.ClavePrincipal.Value;// No se exactamente como se pasan parámetros en Zeos
DMmonitorenred.ZqQueryActualizacion.ExecSQL;  
DMmonitorenred.ZqActivas.Refresh;
close;
end;

[luk2009]

gracias wilson por tu respuesta, voy a probar y te aviso

[eduarcol]

delphi

DMmonitorenred.ZqQueryActualizacion.Params[0].Value :=
 
 
DMmonitorenred.ZqQueryActualizacion.ParambyNAme('Valor').Value :=

Cualquiera de esas sirve

[luk2009]

delphi

procedure TFRMnotas.GUARDAR1Click(Sender: TObject);
begin
 
 
  DMmonitorenred.ZQnotas.SQL.Add(' update activas set nota = ' + (WNOTAS + chr(10) + RicheditNotas.Text + formatdatetime('dd/mm/yyyy hh:mm:ss',now))+  ' where alarmnum = :anum ' );
  dMmonitorenred.Zqnotas.ParambyNAme('anum').Value :=DMmonitorenred.ZQactivasALARMNUM.Value;    // strtoint(FRMactivasred.alanum);
  DMmonitorenred.ZQnotas.ExecSQL;
  close;
end;

haciendo asi la consulta para el update me da el siguiente error:



http://img33.imagesh...aserror1.jpg 

el query ZQconsultas esta hecho en el datamodule asi:

delphi

select   alarmnum, nota  from activas
where alarmnum=  :anum

[enecumene]

Prueba agregando los parámetros en la propiedad Parameters del ZQuery e intenta de nuevo.

Saludos.

[Wilson]

A ver amigo, primero que todo creo que te están sobrando dos paréntesis en la primera lí­nea (antes de WNOTAS y depués de formatdatetime('dd/mm/yyyy hh:mm:ss',now)), y también recordarte que ZQNotas no debiera tener nada en su propiedad SQL en tiempo de diseño.

Corregido podrí­a quedar así­:

delphi

procedure TFRMnotas.GUARDAR1Click(Sender: TObject);
begin    
DMmonitorenred.ZQnotas.SQL.Add(' update activas set nota = ' + WNOTAS + chr(10) + RicheditNotas.Text + formatdatetime('dd/mm/yyyy hh:mm:ss',now)+  ' where alarmnum = :anum ' );  
dMmonitorenred.Zqnotas.ParambyName('anum').Value :=DMmonitorenred.ZQactivasALARMNUM.Value;    // strtoint(FRMactivasred.alanum);  
DMmonitorenred.ZQnotas.ExecSQL; 
DMmonitorenred.ZQactivas.Refresh; 
close;
end;

el query ZQconsultas esta hecho en el datamodule asi:

delphi

select   alarmnum, nota  from activas
where alarmnum=  :anum

Que hace ZQConsultas en el proceso en cuestión?

Saludos

[eduarcol]

Agregando a lo dicho por Wilson, para asegurarte que el query no tenga nada en su propiedad SQL agrega esta linea antes del add

DMmonitorenred.ZQnotas.SQL.Clear;

[luk2009]

Gracias por sus respuestas amigos.

Me sigue dando el mismo error, le cambie algunas partes, para ver si era lo del parametro que no me funcionaba
y le quite lo del formatdatetime  para probar y quedo asi:

delphi

procedure TFRMnotas.GUARDAR1Click(Sender: TObject);
 
begin
DMmonitorenred.ZQnotas.SQL.Clear;
DMmonitorenred.ZQnotas.SQL.Add(' update activas set nota = ' + WNOTAS + chr(10) + (RicheditNotas.Text )+  ' where alarmnum = ' + DMmonitorenred.ZQactivasALARMNUM.ASSTRING );  // :anum ' );
//dMmonitorenred.Zqnotas.ParambyName('anum').Value :=DMmonitorenred.ZQactivasALARMNUM.Value;    // strtoint(FRMactivasred.alanum);
DMmonitorenred.ZQnotas.ExecSQL;
DMmonitorenred.ZQactivas.Refresh;
close;
end;

entonces me da el siguiente error:


http://img132.images...error2.jpg   

[eduarcol]

delphi

DMmonitorenred.ZQnotas.SQL.Add(' update activas set nota = ' + QuotedStr(WNOTAS + chr(10) + (RicheditNotas.Text ))+  ' where alarmnum = ' + DMmonitorenred.ZQactivasALARMNUM.ASSTRING );

Al ser un campo Texto el valor ingresado debe ir entre apostrofe, si con esta modificacion te da error, coloca un breakpoint en execsql y muestramos el contenido de DMmonitorenred.ZQnotas.SQL.Text antes de ejecutar la sentencia.

[luk2009]

Gracias Eduarcol al parecer lo que faltaba era el [shadow=red,left]quotedstr[/shadow] porque ahora funciona bien
quedo de esta manera:

delphi

procedure TFRMnotas.GUARDAR1Click(Sender: TObject);
 
begin
DMmonitorenred.ZQnotas.SQL.Clear;
DMmonitorenred.ZQnotas.SQL.Add(' update activas set nota = ' + quotedstr(WNOTAS + chr(10) + (RicheditNotas.Text) + '  ' + (formatdatetime('dd/mm/yyyy hh:mm:ss',now)))+  ' where alarmnum =   :anum ');
dMmonitorenred.Zqnotas.ParambyName('anum').asstring := FRMactivasred.alanum;
DMmonitorenred.ZQnotas.ExecSQL;
DMmonitorenred.ZQactivas.Refresh;
close;

frmactivasred.alanum  es el valor de el campo alarmnun de la tabla activas que le asigno a esta variable al presionar el oneditclickbutton del dbgrid del  formulario frmactivasred, que es el que me envia al fomulario para escribir las notas.

Gracias wilson por toda tu ayuda y tu esfuerzo.

gracias enecumene por tu respuesta tambien.

[paoti]

Hola, que bueno que tu duda llego a buen temrino de solucion


un tip, cuando una isntruccion te falle, es hacer los siguiente:

delphi

procedure TFRMnotas.GUARDAR1Click(Sender: TObject);
var
cadena : string; 
begin
   cadena := ' update activas set nota = ' + quotedstr(WNOTAS + chr(10) + (RicheditNotas.Text) + '  ' + 
              (formatdatetime('dd/mm/yyyy hh:mm:ss',now)))+  ' where alarmnum =   156 ';
   cajadetexto.text = cadnea;
{
DMmonitorenred.ZQnotas.SQL.Clear;
DMmonitorenred.ZQnotas.SQL.Add(cadena);
dMmonitorenred.Zqnotas.ParambyName('anum').asstring := FRMactivasred.alanum;
DMmonitorenred.ZQnotas.ExecSQL;
DMmonitorenred.ZQactivas.Refresh;
}
close;

es decir, que si te marca un error una intruccion que esta siendo formada de forma dinamica, lo que hago yo, es ver como se genera la isntrccion, copiarla y ejecutarla en el administrador de base de datos, y ver el error de sintaxis, ya que todo esta correcto, ahora si descomento el codigo de afectacion de los datos.

[luk2009]

Gracias Paoti por tu recomendacion, la tendre en cuenta.