Cambio de path
Publicado por ppg (42 intervenciones) el 08/09/2009 00:38:45
A ver qué hago mal.
Tengo una carpeta denominada cursos y dentro de esta otras con el nombre del curso correspondiente, cada una de estas carpetas tiene una base llamada Alumnado.mdb que a su vez contiene una tabla llamada Aula con la relación de alumnos.
Pretendo que cada vez que cambie de curso tome los datos de la carpeta correspondiente para que muestre los alumnos de ese curso.
Traigo un curso por defecto por ejemplo 6B y toma los datos de ..Cursos6BAlumnado.mdb y toma los datos correctamente de la tabla Aula.
Pincho en un combo y selecciono por ejemplo 5A . la ruta seria ..Cursos5AAlumnado.mdb y tomaria los datos de la tabla Aula que tiene el listado de esa clase.
Pues nada, sigue tomando la que llevaba. es más, si no existe la carpeta ni me da error cuando ejecuto el Open select...
If Cb_Curso.ListIndex = -1 Then Cb_Curso.ListIndex = 0
Carpeta = Cb_Curso.List(Cb_Curso.ListIndex)
Cb_Curso.Text = Carpeta
Camino = App.Path + "cursos" + Carpeta + "Alumnado.mdb"
If rsAula.State = 1 Then rsAula.Close
rsAula.Open "Select * from Aula ORDER BY orden ASC", cn, adOpenDynamic
La variable Carpeta, Caminoetc la toma bien pero no ...
Gracias que empieza el curso y me pilla en bragas
Tengo una carpeta denominada cursos y dentro de esta otras con el nombre del curso correspondiente, cada una de estas carpetas tiene una base llamada Alumnado.mdb que a su vez contiene una tabla llamada Aula con la relación de alumnos.
Pretendo que cada vez que cambie de curso tome los datos de la carpeta correspondiente para que muestre los alumnos de ese curso.
Traigo un curso por defecto por ejemplo 6B y toma los datos de ..Cursos6BAlumnado.mdb y toma los datos correctamente de la tabla Aula.
Pincho en un combo y selecciono por ejemplo 5A . la ruta seria ..Cursos5AAlumnado.mdb y tomaria los datos de la tabla Aula que tiene el listado de esa clase.
Pues nada, sigue tomando la que llevaba. es más, si no existe la carpeta ni me da error cuando ejecuto el Open select...
If Cb_Curso.ListIndex = -1 Then Cb_Curso.ListIndex = 0
Carpeta = Cb_Curso.List(Cb_Curso.ListIndex)
Cb_Curso.Text = Carpeta
Camino = App.Path + "cursos" + Carpeta + "Alumnado.mdb"
If rsAula.State = 1 Then rsAula.Close
rsAula.Open "Select * from Aula ORDER BY orden ASC", cn, adOpenDynamic
La variable Carpeta, Caminoetc la toma bien pero no ...
Gracias que empieza el curso y me pilla en bragas
Valora esta pregunta
0