comparar con el contenido de un dbedit

[chipsoni]

Necesito seleccionar 4 campos de una tabla donde la empresa (el código de la empresa es numérico) coincida con el que hay en un campo DBEdit de mi formulario, lo he hecho asi:

Select reservacredito, fecha, importe, satisfaccion
from tpedidos where empresa=StrToInt(DBEcodigo)

pero me da error de sintaxis en DBEcodigo.

Muchas gracias

[ContraVeneno]

Código Delphi [-]
with TuQueryODataset do begin
 if active then close;
 SQL.Clear;
 SQL.Add('Select reservacredito, fecha, importe, satisfaccion');
 SQL.Add('From tpedidos');
 SQL.Add('where empresa='+StrToInt(DBEcodigo));
 Open;
end; //with TuDataset

aunque antes de esto creo que deberías comprobar con TryStrToInt para evitar errores de conversión....

[chipsoni]

Yo es que lo estaba escribiendo en el campo sql del inspector de objetos del query y creo que se pone la consulta normal, sin necesidad de add y lo que requiere el delphi, ¿no lo puedo hacer desde ahí?.

Es que en realidad lo necesito para rellenar campos de un dbgrid.

[[Ivanzinho]]

Empezado por ContraVeneno

Código Delphi [-]
...
SQL.Add('where empresa='+StrToInt(DBEcodigo));
Open;
end; //with TuDataset

...

Si DBEcodigo es un string basta con que se haga

Código Delphi [-]
SQL.Add('where empresa='+DBEcodigo);

y si es un integer habrá que hacer

Código Delphi [-]
SQL.Add('where empresa='+IntToStr(DBEcodigo));

[chipsoni]

No, es que empresa en la tabla pedido es un entero y en el dbedit se transforma automaticamente en texto, ¿no?

[[Ivanzinho]]

Empezado por chipsoni

Yo es que lo estaba escribiendo en el campo sql del inspector de objetos del query y creo que se pone la consulta normal, sin necesidad de add y lo que requiere el delphi, ¿no lo puedo hacer desde ahí?.

Es que en realidad lo necesito para rellenar campos de un dbgrid.

Desde en el campo sql no puedes meter directamente una variable, eso lo tienes que hacer desde el código, componiendo la consulta y pasandola (como string), ya que el campo sql sólo admite un string

[vtdeleon]

SAludos

Dejen que delphi se encargue de esto:

Código Delphi [-]
with TuQueryODataset do begin
 if active then close;
 SQL.Clear;
 SQL.Add('Select reservacredito, fecha, importe, satisfaccion');
 SQL.Add('From tpedidos');
 SQL.Add('where empresa=:emp');
 ParamByName('emp').AsString:=DBEcodigo.Text;//O asSInteger
 Open;
end; //with TuDataset