probla con consulta sql en dbgrid

[TheFlame]

Te recomiendo que en tus consultas en la que utilizas mas de una tabla lo hagas con las instrucciones INNER JOIN dado que es mas optimo que hacerlo con el WHERE. Tu consulta quedaría así:

Código SQL [-]
Select Alumno.ID_T,Alumno.Matricula,Alumno.Nombre,trabajorecepcional.Tema 
From alumno Inner Join trabajorecepcional On alumno.ID_T=trabajorecepcional.ID_T

Nota: En la tabla "trabajorecepcional" asumo que solo hay dos registros y que son los que quieres que se muestren, en caso contrario deberias hacer un where para obtener los dos registros que deseas.

Espero haberte sido de ayuda, Saludos.

[bsoulfly]

gracias TheFlame, por tomarte la molestia de responder pero creo que el problema no esta en la sentencia SQL, porque ya probe con consultas mas sencillas, ponga la consulta que ponga el resultado simpre es el mismo, no hace caso de la consulta sql y me muestra todo los registros de la tabla alumno. Juanlaplata creo que por ahi esta el error pero namas no doy y sobre el codigo que me diste lo puse y me marca un error: DataSource1:cirular datalinks no son permitidos. Tambien me dijeron que debia enlazar el DataSource en su propiedad DataSet al Query1,(pero este no me aparece)porque si lo enlazo a la tabla alumno siempre me mostraria todos los datos de alumno.

[juanlaplata]

Ejecuta esta sentencia y veras que tabla o query tiene asociado el DBGrid

Código Delphi [-]
ShowMessage(DBGrid.Datasource.DataSet.Name);

Entonces sabras si esta asociado el query que experimentas o la tabla alumnos
Por eso era de poner

Código Delphi [-]
DBGrid.Datasource.DataSet:= Query1;

Suerte.

[jachguate]

Empezado por juanlaplata

Por eso era de poner

Por lo que ya se mencionó de la referencia circular, me temo que será:

Código Delphi [-]
  Query1.DataSource := nil;
  DBGrid.Datasource.DataSet:= Query1;

Hasta luego.

[bsoulfly]

Gracias por la ayuda, ya resolvi el problema. Saludos

[[egostar]]

Empezado por bsoulfly

Gracias por la ayuda, ya resolvi el problema. Saludos

Seria bueno que colocaras la solución para que otros compañeros con el mismo problema tengan acceso a la solución.

Salud OS

[bsoulfly]

Esta es la solucion, lo que pasaba esque no enganchaba el query, me faltaba esa linea de codigo:

procedure TFconsulAlumno.Button1Click(Sender: TObject);
var
sql:string;

begin
ModuloDatos.ADOconnection1.connected:=true;
ModuloDatos.Tabla1.Active:=true;
ModuloDatos.TrabajoRecepcional.Active:=true;
if RadioButton1.Checked then
Begin
ModuloDatos.Query1.sql.Clear;
sql:='select alumno.Matricula,alumno.Nombre, trabajorecepcional.Tema from alumno,trabajorecepcional where alumno.ID_T=trabajorecepcional.ID_T';
ModuloDatos.Query1.sql.add(sql);
ModuloDatos.Query1.Active:=true;
Modulodatos.DataSource1.DataSet:=ModuloDatos.Query1;
Consultas.DataSource:=Modulodatos.DataSource1;
end;