Comparar DBEdit con un campo

[Casimiro Noteví]

Empezado por DOS

me tira el siguiente error "Project1.exe raised exception class EDBEngineError with message 'type mismatch in expression.'. Process stopped..." no se cual es el error o que significa esto.

¿Dónde sale ese error?

[DOS]

Empezado por Casimiro Notevi

¿Dónde sale ese error?

Cuando apreto el boton imprimir.
Probe este codigo, reemplazando la clave principal por el apellido que esta en el DBEdit3 y funciona perfectamente haciendo lo que necesito, el asunto es que lo tengo que realizar con la clave principal(DBEdit1) ya que el apellido se puede repetir varias veces

Código Delphi [-]
procedure TForm6.SpeedButton1Click(Sender: TObject);
var
Valor:string;
begin
Valor:=DBEdit3.Text;
with Form26.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM propietario');
    SQL.Add('WHERE ApellidoP = :PValor');
    ParamByName('PVALOR').AsString := 'Valor';
    Open;
  end;
Form26.QuickRep1.Preview; // Previsualizar los resultados.
end;

Sin dudas tiene que ver con el tipo de datos a comparar, Cod_prop es numerico y la variable es txt, se deberia pasar en algun momento a integer o float ¿no?

[[Caral]]

Hola

Código Delphi [-]
procedure TForm6.SpeedButton1Click(Sender: TObject);
var
Valor: Real;
begin
Valor:= StrToFloat(DBEdit1.Text);
with Form26.Query1 do
  begin
    Close;
    SQL.text:= 'SELECT * FROM propietario WHERE Cod_prop = :PVALOR';
    ParamByName('PVALOR').Value := Valor;
    Open;
  end;
Form26.QuickRep1.Preview; // Previsualizar los resultados.
end;

Saludos

[ozsWizzard]

Aunque el código de Caral es correcto, yo soy más partidario de poner, cuando se sabe el tipo dato.

Código Delphi [-]
procedure TForm6.SpeedButton1Click(Sender: TObject);
var
Valor: Real;
begin
Valor:= StrToFloat(DBEdit1.Text);
with Form26.Query1 do
  begin
    Close;
    SQL.text:= 'SELECT * FROM propietario WHERE Cod_prop = :PVALOR';
    ParamByName('PVALOR').AsInteger := Valor;
    Open;
  end;
Form26.QuickRep1.Preview; // Previsualizar los resultados.
end;

Si no es entero, asFloat o AsCurrency o lo que sea...

[[Caral]]

Hola
Como siempre; Corrigiendo el código del novato.....
Saludos

[ozsWizzard]

Más que corrección es predilección.

Muy buena tu actitud de pretender ser el eterno novato, así siempre estarás al quite para seguir aprendiendo (te lo digo enserio, llevas más de 7000 post, más de 6 años por el foro, tan novato no serás)

[DOS]

Muchas gracias muchachos, ahora funciona correctamente