Ayuda Con un Query, pls!

[kman]

Saludos Amigos del club!

Quisiera saber un a forma de hacer un query de una tabla tomando como parametro el campo de otra tabla, pensé que con esto lo lograría:

Código Delphi [-]
procedure TFrInscAsignaturas.BtEscBuscar2Click(Sender: TObject);
var CodEstudiante: String; CodArte: String;

begin
CodEstudiante:= EdCodEst.text;//Edit donde se escribe el código del estudiante
//aquí localizo el código del estudiante en la tbl Estudiantes
If Module.TblEstudiantes.Locate('Codigo_Estudiante',CodEstudiante,[]) 
then begin
CodArte:= Module.TblEstudiantesCodigo_Arte.Value;
        
With Module.QrAsignaturas Do Begin
Close;
SQL.clear;
SQL.add('SELECT * FROM ASIGNATURAS WHERE CODIGO_ARTE LIKE '+CodArte);
Open;
//Mostrar formulario con resultado
FrConsultaAsignatura.showmodal;

        end;
       end;
     end;
end.

Pero me da un Raised Exeption EOleExeption indicando que el parametro no tiene un valor predeterminado.

AYUDA PLS!!

[marcoszorrilla]

Código Delphi [-]
SQL.add('SELECT * FROM ASIGNATURAS WHERE CODIGO_ARTE LIKE %'+QuotedStr(CodArte+'%'));

Un Saludo.

[kman]

Empezado por marcoszorrilla

SQL.add('SELECT * FROM ASIGNATURAS WHERE CODIGO_ARTE LIKE %'+QuotedStr(CodArte+'%'));

Gracias por contestar Marcos.
Me da el sgte. error: Error de sintaxis en la expresion de consulta 'CODIGO_ARTE LIKE% 'AR0001%".
Siendo AR001 el resultado que arroja.

[kman]

De alguna manera me funciona bien sin los "%", osea, '+QuotedStr(CodArte+''));

Gracias por la ayuda.

[[Lepe]]

Un tanto por ciento saltó la Balla, valla valla aqui no hay playa ¿diccionario? ¿que es eso?

Código SQL [-]
SQL.add('SELECT * FROM ASIGNATURAS WHERE CODIGO_ARTE LIKE '+QuotedStr('%'+CodArte+'%'));

Saludos

[ContraVeneno]

Código Delphi [-]
SQL.add('SELECT * FROM ASIGNATURAS WHERE CODIGO_ARTE LIKE ''%'+CodArte+'%''');