Ver Mensaje Individual
  #4  
Antiguo 24-05-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 31
Lepe Va por buen camino
Lo que pides, se integra en los lenguajes de 4ª generación, donde allí si, se escribe código sql como si fuera instrucciones del lenguaje (en realidad lo son).

Aunque crear un Query es bastante facil:
Código Delphi [-]
function CreateQuery (const TheSql:string):TQuery;
begin 
  Result := TQuery.Create(nil);
  Result.Transaction := tu componente transaction
  Result.Database := tu componente database;
  Result.sql.text := TheSql;
end;

// para usar la función:
var q : TQuery;
begin 

  q := Createqry('select * from tabla order by micampo');
  try
    q.Open;
    dbgrid1.datasource := q; // más o menos 
  finally
     q.Free; // esto es importante, tienes que liberarlo
  end;
end;


// otro uso obviando que pueda producir errrores:
var qry:Tquery;
begin 
  q := Createqry('delete from tabla where codigo = 5');
  q.ExecSql;
  q.Free;
end;

La idea ya la tienes, ahora puedes jugar con ella.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita