Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-12-2003
vetustas vetustas is offline
Miembro
 
Registrado: oct 2003
Posts: 77
Poder: 21
vetustas Va por buen camino
query y locate

Trabajo con Delphi 5 y paradox. Mi duda es la siguiente:
quiero usar el resultado de un tquery para poner como parametro en una función locate de una tabla. Me explico. Lo que tengo es:
Código:
  Modulo.qryPracticaAlumno.Close;
  Modulo.qryPracticaAlumno.ParamByName('dni').AsString:=dbedit1.text;
  Modulo.qryPracticaAlumno.Open;
  Modulo.tbPracticas.Locate('cod_Practica',*****,[]);
  form_altapracticas.show;
lo que quiero es donde estan los *'s poner el resultado del query que tiene en sql lo siguiente:

Código:
SELECT p.cod_Practica
FROM practica AS p, alumno AS a
WHERE p.cod_Alumno=a.cod_Alumno AND
a.dni_Alumno=:dni
Se puede hacer? sino me podeis dar alguna otra solucion
espero haberme explicado medianamente bien. Gracias
Responder Con Cita
  #2  
Antiguo 16-12-2003
Descendents Descendents is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona
Posts: 396
Poder: 22
Descendents Va por buen camino
SELECT p.cod_Practica as codigo
FROM practica AS p, alumno AS a
WHERE p.cod_Alumno=a.cod_Alumno AND
a.dni_Alumno=:dni

query1 tiene este select digamos.

Sino te he entendido mal,esta lina es el resultado que tu buscas.
query1.fieldbyname('codigo').value;

en lugar de value, tambien puedes usar asstring o asinteger.

Saludos
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 22:17:54.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi