Ayudita con un Query, pls.
 

Saludos Delphinianos!


Mi consulta es:

Código Delphi [-]
procedure TMenuImpAsig.BtRepAsigImpClick(Sender: TObject);
Var texto: String;
begin

Edit1.Text:= Texto

With module.QrReporteAsignaturas do begin
close;
Sql.Clear;
Sql.add('SELECT Insc.Cod_Est, insc.Fecha_Insc,Est.Nombre, Prof.Nombre, Asigna.Asig');

sql.add('FROM  Isnc, Est, Prof, Asigna');

Sql.add('WHERE Insc.cod_Est = Est.Cod_Est AND Insc.Cod_Prof = 
Prof.Cod_Prof AND Insc.Cod_Asig = Asigna.Cod_Asig And Asigna.Cod_Asig like' +texto);

Open;

Necesito saber cómo hacer que ésta consulta tome como parámetros dos datos que sean introducidos por dos edits, osea, otro Like.

Gracias Amigos.

Hmm, Creo que con dos Queries, lo puedo hacer.

Con dos queries no me funcionó, así que necesito mucha ayuda, por favor.

Que base de datos estan usando ?? porque podrias hacerlo con un Stored procedure,

Estoy usando el Access, Sudamericano.

podrias crearte una vista (consulta en acces) y llamarlo como si fuera una tabla, algo asi :

Código SQL [-]
 
SELECT * FROM VW_PRUEBA

Disculpame, pero la verdad que no te entendí, o mejor dicho, no entiendo el propósito de crear ese query en el access.

ok.creando ese query en el acces puedes acceder desde delphi solo llmandolo de la siguietne manera

Código SQL [-]
 
select * from VW_PRUEBA

de esa manera no tendras problema con los 250 caracteres.

podria ser algo asi?

Código Delphi [-]
procedure TMenuImpAsig.BtRepAsigImpClick(Sender: TObject); Var texto1,texto2: String; begin
 texto1:=Edit1.Text;
 texto2:=Edit2.Text;

With module.QrReporteAsignaturas do begin 
close; 
Sql.Clear; 
Sql.add('SELECT Insc.Cod_Est, insc.Fecha_Insc,Est.Nombre, Prof.Nombre, Asigna.Asig');  sql.add('FROM  Isnc, Est, Prof, Asigna');  
Sql.add('WHERE Insc.cod_Est = Est.Cod_Est AND Insc.Cod_Prof =  Prof.Cod_Prof AND Insc.Cod_Asig = Asigna.Cod_Asig And Asigna.Cod_Asig like ' +texto1+' and otro_campo = '+texto2);
  Open;

end;

end;

claro es una solución que se puede mejorar mucho...

Gracias courtois, voy a probar y te hago saber como me va.

Gracias!
 

Agregando otro like en otro_campo = '+texto2); en vez del '='
Sencillamente perfecto, Gracias de nuevo, Courtois!

Podria Funcionar....
 

donde tienes el texto '.......like ' + QuotedStr(Edit1.Text+'%');

Porque no me quedó del todo claro, pero puede que esto solucionara algo en parte de lo que requieres...

Saludos