Error en consulta SQL

[Irlod]

Hola, veamos si me podéis ayudar.
Tengo una consulta en un form desde un combo. Cuando elijo debe llamar a otro form y presentar un listado. Pero me muestra el siguiente error:

Código Delphi [-]
procedure TForm_FiltroPersonal.BitBtn4Click(Sender: TObject);

var

Text : String;
dpto : Integer;

begin

    Text := DBEdit1.Field.Text;
    dpto := Form_FiltroPersonal.ADODataSet1DPTONUMERO.Value;
    Form_FiltroPersonal.Hide;
    Form_Personal.Show;

    with Form_Personal.ADODataSet1 do
    begin
     Close;
     CommandText := ('SELECT * FROM PERSONAL WHERE PERSODEPARTA = ') + Text ;
     Open;
    end;
end;

Sé que es una tontería pero llevo un buen rato bloqueado y estoy "en blanco".

Muchas gracias.

[[oscarac]]

quiza sea una tonteria, no estoy seguro
pero si eliges una cadena que no tenga acento?
has probado?

[look]

Empezado por Irlod

Hola, veamos si me podéis ayudar.
Tengo una consulta en un form desde un combo. Cuando elijo debe llamar a otro form y presentar un listado. Pero me muestra el siguiente error:

Código Delphi [-]
procedure TForm_FiltroPersonal.BitBtn4Click(Sender: TObject);

var

Text : String;
dpto : Integer;

begin

    Text := DBEdit1.Field.Text;
    dpto := Form_FiltroPersonal.ADODataSet1DPTONUMERO.Value;
    Form_FiltroPersonal.Hide;
    Form_Personal.Show;

    with Form_Personal.ADODataSet1 do
    begin
     Close;
     CommandText := ('SELECT * FROM PERSONAL WHERE PERSODEPARTA = ') + Text ;
     Open;
    end;
end;

Sé que es una tontería pero llevo un buen rato bloqueado y estoy "en blanco".

Muchas gracias.

Código Delphi [-]
procedure TForm_FiltroPersonal.BitBtn4Click(Sender: TObject);

var

Text : String;
dpto : Integer;

begin

    Text := DBEdit1.Field.Text;
    dpto := Form_FiltroPersonal.ADODataSet1DPTONUMERO.Value;
    Form_FiltroPersonal.Hide;
    Form_Personal.Show;

    with Form_Personal.ADODataSet1 do
    begin
     Close;
     CommandText := ('SELECT * FROM PERSONAL WHERE PERSODEPARTA = ') + QuotedStr(Text) ;
     Open;
    end;
end;

[look]

Código Delphi [-]
procedure TForm_FiltroPersonal.BitBtn4Click(Sender: TObject);

var

Text : String;
dpto : Integer;

begin

    Text := DBEdit1.Field.Text;
    dpto := Form_FiltroPersonal.ADODataSet1DPTONUMERO.Value;
    Form_FiltroPersonal.Hide;
    Form_Personal.Show;

    with qry do
    begin
     Close;
     sql.text := ('SELECT * FROM PERSONAL WHERE PERSODEPARTA = :TXT');
     ParamByname('TXT').AsString := Text;
     Open;
    end;
end;

[Irlod]

Muchas gracias look, la solución está en tu primera respuesta.

Saludos.

[[oscarac]]

como no me di cuenta... faltaba agregar el quotedstr()