manejo de SQL-UPDATE dbgrid
Publicado por Gloria Muñoz (12 intervenciones) el 11/03/2003 11:38:20
Me urge saber si este codigo que teclee es correcto, la forma que manejo tiene un dbgrid y cuando quiero actualizar el campo hay evento on click en el cual copio el valor a un edit para ahi modificarlo y despues en el evento onclick del bitbuton de editar realiza un sql update y un sql select para que muestre los cambios generado pero cuando se ejecuta el SQL-UPDATE me sale este mensaje...
\"project sihs.exe raised exception class EDBEngineError with message Invalid use of keyword\"
ojala y puedan darme una solucion porque me urge de antemano agradezco a quien me brinde la solucion.
//evento doble click del dbgrid para copiar el valor al edit
procedure TFcatapc.DBGcatapcDblClick(Sender: TObject);
begin
Ecatapc.text:=DBGcatapc.Fields[0].AsString;
Svanterior:=DBGcatapc.Fields[0].AsString;
end;
//evento onclick del boton de editar
procedure TFcatapc.BBeditpcClick(Sender: TObject);
var Smodpc,Smostrarpc:string;
begin
Smodpc:= \'UPDATE \'+
\'Tmarcaspc.db \'+
\'SET Marcapc:=(\"\'+Ecatapc.text+\'\") \'+
\'WHERE (Marcapc = \"\'+Svanterior+\'\")\';
with Qcatapc do
begin
Qcatapc.close;
Qcatapc.sql.clear;
Qcatapc.sql.add(Smodpc);
Qcatapc.ExecSQL; // aqui ocurre el error mencionado
end;
end;
\"project sihs.exe raised exception class EDBEngineError with message Invalid use of keyword\"
ojala y puedan darme una solucion porque me urge de antemano agradezco a quien me brinde la solucion.
//evento doble click del dbgrid para copiar el valor al edit
procedure TFcatapc.DBGcatapcDblClick(Sender: TObject);
begin
Ecatapc.text:=DBGcatapc.Fields[0].AsString;
Svanterior:=DBGcatapc.Fields[0].AsString;
end;
//evento onclick del boton de editar
procedure TFcatapc.BBeditpcClick(Sender: TObject);
var Smodpc,Smostrarpc:string;
begin
Smodpc:= \'UPDATE \'+
\'Tmarcaspc.db \'+
\'SET Marcapc:=(\"\'+Ecatapc.text+\'\") \'+
\'WHERE (Marcapc = \"\'+Svanterior+\'\")\';
with Qcatapc do
begin
Qcatapc.close;
Qcatapc.sql.clear;
Qcatapc.sql.add(Smodpc);
Qcatapc.ExecSQL; // aqui ocurre el error mencionado
end;
end;
Valora esta pregunta


0