Saludos a todos.
Es la primera vez que participo en este foro
Mi problema es el siguiente:
Ejecuto este codigo en un boton para mostrar el resultado en un DBGRID:
La relacion de los componentes es:
DBGrid1->DataSource1->Query1.
Código:
Query1.SQL.Clear;
Query1.SQL.Text:='Select (Cursos.Nombre) as Nombre, (Cursos.Turno) as Turno, (Cursos.Horario) as Horario From'
+' Cursos, Grupos Where Grupos.Id_Alumno='+QuotedStr(PCCAClave.Text)
+' and Grupos.Id_Curso=Cursos.Id_Curso and Cursos.Tipo="CURSO"';
Query1.ExecSQL;
Query1.Active:=True;
Se ejecuta bien la consulta y muestra sus resultados.
pero luego al cerrar la aplicacion aparece esto:
Mensaje de error:
Código:
Proyect SCC.exe raised exception class EAccessViolation
with message 'Access violation at address 000000000.
Read of address 000000000'. Process stopped. Use Step or Run to Continue.
y luego cambio la consulta(para probar que es lo que pasa):
Código:
Query1.SQL.Clear;
Query1.SQL.Text:='Select * From Cursos';
Query1.ExecSQL;
Query1.Active:=True;
Se ejecuta bien y se cierra bien la aplicacion.
esto lo he probado por separado en un programa sencillo y me di cuenta que el problema es la consulta:
Código:
Query1.SQL.Text:='Select (Cursos.Nombre) as Nombre, (Cursos.Turno) as Turno, (Cursos.Horario) as Horario From'
+' Cursos, Grupos Where Grupos.Id_Alumno='+QuotedStr(PCCAClave.Text)
+' and Grupos.Id_Curso=Cursos.Id_Curso and Cursos.Tipo="CURSO"';
Estas consultas no regresan ni 15 registros.
Esa consulta me sirve porque me muestra lo que quiero
Si me pueden ayudar a resolver este problema se los agradeceria mucho.
![Embarrassment](http://www.clubdelphi.com/foros/images/smilies/redface.gif)
PD: Perdon por no manejar bien las etiquetas.