Foros Club Delphi - Intraweb: Comparar contenido de un edit en campo de la BD

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

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

- - Intraweb: Comparar contenido de un edit en campo de la BD (https://www.clubdelphi.com/foros/showthread.php?t=9485)

Intraweb: Comparar contenido de un edit en campo de la BD

Hola.-

Mi consulta es muy sencilla, dispongo de una bd con una tabla llamado ARTICULOS, y quiero comprobar que el ID_ARTICULO que el usuario introduce en un edit existe en esa tabla de la BD.

Para ello tengo un ADOConnection, un ADOQuery, un edit llamado editPrueba y un botón.

En el ADOQuery tengo (y aquí es donde creo que está el error pues esto aun no lo controlo mucho) en la propiedad SQL:

SELECT * FROM ARTICULOS WHERE ID_ARTICULO=editPrueba.Caption

Cuando hago doble clic en el botón pongo el siguiente código.-

ADOConnection1.ConnectionString:='c:/web/data/basedatos.mdb';
ADOConnection1.Connected:=True;
ADOQuery1.Active:=True;

if ADOQuery1.IsEmpty then
// No existe ese artículo...
else
// Existe este artículo

La cuestión es que si en la propiedad SQL pongo directamente:

select * from ARTICULOS where ID_ARTICULO='1'

funciona perfectamente, pero quiero que ese valor lo coja del campo editPrueba

¿Cómo se pasa los parámetros a una consulta SQL?

Gracias

Te recomiendo que pongas la etiquetas [ CODE ] y [ / CODE] (pero sin espacios) entre el código que introduzcas, pues así lo haces más legible y lo separas del contenido.

Suerte!

Código:

procedure TForm1.Button1Click(Sender: TObject);

begin

Adoquery1.Close;

Adoquery1.Sql.Clear;

Adoquery1.SQL.Add('Select * from Libros');

Adoquery1.SQL.Add('Where autor = '+QuotedStr(Edit1.Text));

Adoquery1.Open;

end;

Como ves he utilizado las etiquetas code que citaba el amigo DarkByte.

Un Saludo.

Me funciona perfectamente. Muchas gracias.