TQuickRep

[[Caral]]

Hola
Suposiciones:
1- el edit esta vacio.
2- El dato del edit no es el mismo que el de la tabla.
3- No dices ni muestras nada de codigo, solo la parte del parametro.
4- Como podemos adivinar asi ?.
Saludos

[lisc_dla]

primero realizo una búsqueda del dato rfc(es de tipo varchar) en el cuadro de texto txt_rfc(es resultado se visualiza en el dbgrid y el valor buscado queda en el text):

Filtro : String;
begin
AdoTable1.Filtered := False;
AdoTable1.Filtered := False;
Filtro := 'rfc = '+txt_rfc.Text;
AdoTable1.Filter := Filtro;
AdoTable1.Filtered := True;
AdoTable1.Open;


el código para mandar a imprimir:

Try
QuickReport1:=TQuickReport1.Create(self);
QuickReport1.ADOQuery1.SQL.Text:= 'Select * from cliente where frc = :s';
QuickReport1.ADOQuery1.Parameters[0].Value:= txt_rfc.text;
QuickReport1.ADOQuery1.Open;
QuickReport1.Preview;
finally
QuickReport1.Free;

[[Caral]]

Hola
Puede ser tonto pero estas seguro de esto:

Código Delphi [-]
Filtro := 'rfc = '+txt_rfc.Text;

Código Delphi [-]
'Select * from cliente where frc = :s';

Código Delphi [-]
QuickReport1.ADOQuery1.Parameters[0].Value:= txt_rfc.text;

Solo por curiosidad.
Saludos

[lisc_dla]

este error ya lo corregí

'Select * from cliente where frc = :s';
'Select * from cliente where rfc = :s';

pero sigue el mismo error marcando error

[[Caral]]

Hola
Solo para intentarlo:

Código Delphi [-]
Try
 QuickReport1:=TQuickReport1.Create(self);
 QuickReport1.ADOQuery1.SQL.Text:= 'Select * from cliente where frc = :s';
 QuickReport1.ADOQuery1.Parameters[0].Value:= QuotedStr(txt_rfc.text);
 QuickReport1.ADOQuery1.Open;
 QuickReport1.Preview;
 finally
 QuickReport1.Free;

Saludos

[lisc_dla]

mismo error, misma linea

[[Caral]]

Hola
El edit txt_rfc.text contiene un dato cuando presionas el boton de imprimir ?.
Que dato ?.
Saludos

[[Caral]]

Hola
Hagamos otra prueba:
Cuando haces el filtro en el adotable el dato es sacado del txt_rfc.Text.

Código Delphi [-]
Filtro : String;
 begin
 AdoTable1.Filtered := False;
 AdoTable1.Filtered := False;
 Filtro := 'rfc = '+txt_rfc.Text; // aqui hace el filtro.
 AdoTable1.Filter := Filtro;
 AdoTable1.Filtered := True;
 AdoTable1.Open;

Bien:
El mismo caso es para el adoquery, solo que ahora vas a colocar el dato directamente en el codigo.
Supongamos que escribiste en el txt_rfc.text (maria, jose o lo que sea).
Eso es lo que vas a colocar en el codigo asi:

Código Delphi [-]
Try
 QuickReport1:=TQuickReport1.Create(self);
 QuickReport1.ADOQuery1.SQL.Text:= 'Select * from cliente where frc = :d1';
 QuickReport1.ADOQuery1.Parameters[0].Value:= 'maria'; // aqui colocas el dato que tendria que estar en el txt_rfc.text
 QuickReport1.ADOQuery1.Open;
 QuickReport1.Preview;
 finally
 QuickReport1.Free;

Por supuesto que ese dato tiene que coincidir con el dato que este en la tabla, de lo contrario no mostrara nada ni dara error.
Veamos que pasa asi.
Saludos

[lisc_dla]

de hecho conectando los QRDBText a el adotable ya no manda error, la cuestión es que no imprime todos los datos solo el primero y el segundo

[[Caral]]

Hola
Si, pero que de la ultima prueba que puse arriba de este ?.
Saludos

[lisc_dla]

probé con el código:

Try
QuickReport1:=TQuickReport1.Create(self);
QuickReport1.ADOQuery1.SQL.Text:= 'Select * from cliente where frc = :d1';
QuickReport1.ADOQuery1.Parameters[0].Value:= 'maria'; // aqui colocas el dato que tendria que estar en el txt_rfc.text
QuickReport1.ADOQuery1.Open;
QuickReport1.Preview;
finally
QuickReport1.Free;

y marca el mismo error, en la misma linea

[[Caral]]

Hola
Por supuesto no maria, verdad.
A ver este:

Código Delphi [-]
Try
 QuickReport1:=TQuickReport1.Create(self);
 QuickReport1.ADOQuery1.SQL.Text:= 'Select * from cliente where frc = ''maria''';
  QuickReport1.ADOQuery1.Open;
 QuickReport1.Preview;
 finally
 QuickReport1.Free;

Saludos