Ver Mensaje Individual
  #1  
Antiguo 23-07-2006
kman kman is offline
Miembro
 
Registrado: dic 2005
Ubicación: República Dominicana.
Posts: 67
Reputación: 19
kman Va por buen camino
Exclamation Ayuda Con un Query, pls!

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!!

Última edición por kman fecha: 23-07-2006 a las 20:48:19.
Responder Con Cita