Cita:
Empezado por roman
Sé que nunca has mencionado tu nombre real en estos foros amigo Lepe,
|
No puedes afirmar eso, has estado ausente mucho tiempo
Cita:
Empezado por roman
pero, no me vas a decir que incluso en el prefijo de tus funciones y librerías usas Lepe.
[/Paréntesis]
// Saludos
|
No uso prefijo en funciones. En el nombre de las unidades sí, para seguir los nombres de la VCL.
CreateQry la uso cuando necesito temporalmente ejecutar una sentencia SQL, pero no quiero tener un TQuery en el Datamodule o en el TForm sólo para una llamada, al final acaba estorbando más que ayudando, por eso uso la rutina que crea, configura la consulta y opcionalmente la ejecuta:
Código Delphi
[-]
function Createqry(sql:string):TQuery;
begin
Result := TQuery.Create(nil);
Result.DatabaseName:= el que sea
Result.sql.text := sql;
end;
function ExecSql(sql:string):integer;
var q:TQuery;
begin
q := Createqry(sql);
q.ExecSql;
Result := q.RowsAffected;
q.Free;
end;
Muchas veces necesitas una consulta de
forma puntual, sólo para actualizar un registro, etc. Tener que poner un TQuery en la ventana (o datamodule), configurarlo, ponerle nombre, y por último llamarlo desde código es "perder el tiempo", "ExecSql" son 7 letras más el SQL y listo
.
Saludos