Código Delphi [-] begin //Datos(Tabla), CodDato(Campo Clave), Descripcion(Campo) //por ejemplo si actualizamos un registro... Sql:=''; Sql:='Update Datos Set Descripcion = ''DESCRIPCION MODIFICADA'''; Sql:=Sql + ' Where CodDato= ' + Trim(EditCodDato.Text); Query1.SQL.Clear; Query1.SQL.Text:=Trim(Sql); Query1.ExecSQL; AdoQuery1.Locate('CodDato',EditCodDato.Text,[]); //Donde EditCodDato es el "Edit" que tiene asociado el valor del campo //clave, en este caso "CodDato"
begin //Datos(Tabla), CodDato(Campo Clave), Descripcion(Campo) //por ejemplo si actualizamos un registro... Sql:=''; Sql:='Update Datos Set Descripcion = ''DESCRIPCION MODIFICADA'''; Sql:=Sql + ' Where CodDato= ' + Trim(EditCodDato.Text); Query1.SQL.Clear; Query1.SQL.Text:=Trim(Sql); Query1.ExecSQL; AdoQuery1.Locate('CodDato',EditCodDato.Text,[]); //Donde EditCodDato es el "Edit" que tiene asociado el valor del campo //clave, en este caso "CodDato"