Foros Club Delphi - Error en consulta SQL

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Error en consulta SQL (https://www.clubdelphi.com/foros/showthread.php?t=84630)

Error en consulta SQL

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.

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

Cita:

Empezado por Irlod (Mensaje 469612)

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;

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;

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

Saludos.

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