Problema con ADOQuery

[damser]

Tengo un formulario y TDBEdit con un dato y quiero pasarlo (el dato que contiene el TDBEdit) a la consulta SQL del ADOQuery como lo hago?

[[BlueSteel]]

Empezado por damser

Tengo un formulario y TDBEdit con un dato y quiero pasarlo (el dato que contiene el TDBEdit) a la consulta SQL del ADOQuery como lo hago?

mi no entender....

lo quieres pasar a otro AdoQuery...?

Código Delphi [-]
AQ_Persona.Close;
AQ_Persona.SQL.Clear;
AQ_Persona.SQL.Add('Select * From Vista_Persona');
AQ_Persona.SQL.Add('Where Nombre=:var1');
AQ_Persona.Parameters[0].Value := ADO_Query1['Nombre_Campo_Editado'];
AQ_Persona.Open;

Salu2

[damser]

Gracias por responder:

La cosa va así, en mi formulario tengo un dato dentro un TDBEdit, este dato es recogido de un formulario anterior. ahora quiero que este dato en cuestión pase a formar parte de la consulta dentro del ADOQuery, osea que por ejemplo si el dato contenido en el TDBEdit es "funcionario1", esto vaya como variable a la consulta, para que en un dbgrid me salgan los datos del "funcionario1" y si del anterior formulario pasa el "funcionario2", etc. mi consulta dentro el ADOQuery va así y por supuesto no funciona:

select * from INFORMES where FUNCIONARIO = :TDBEdit1.text;

ví algunas alternativas en algunos sitios, pero no funcionan.

yo trabajo en Delphi XE

Agradezco a los que se toman la molestia de responder.

[Neftali [Germán.Estévez]]

Pues puedes probar usando parámetros como te han comentado o concatenar los strings:

Código Delphi [-]
AQ_Persona.Close; 
AQ_Persona.SQL.Clear; 
AQ_Persona.SQL.Add('Select * From Vista_Persona Where Nombre=' +
   QoutedStr(Edit1.Text)); 
AQ_Persona.Open;

El QuotedStr es para que se añadan las comillas al texto.

[damser]

Gracias Neftali:


lo puse así.



ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From INFORMES Where FUNCIONARIO=' + QoutedStr(TDBEdit1.Text));
ADOQuery1.Open;


me sale este mensaje:

Instrucción no válida; se esperaba 'DELETE','INSERT','PROCEDURE','SELECT' o 'UPDATE'


de verdad gracias a todos los que me estan prestando ayuda...

[Neftali [Germán.Estévez]]

Pues la verdad es que si FUNCIONARIO es un campo de tipo texto deberiá funcionar.
¿Qué base de Datos estás utilizando?

Supongo que el Quoted lo has corregido, porque en mi primer mensaje lo escribí mal.

Código Delphi [-]
ADOQuery1.SQL.Add('Select * From INFORMES Where FUNCIONARIO=' +  QuotedStr(TDBEdit1.Text));