SQL - ayuda con una consulta a 2 tablas

   
Vista:

ayuda con una consulta a 2 tablas

Publicado por jesus ledesma (3 intervenciones) el 08/07/2010 01:26:30
hola tengo un problema con una consulta tengo que hacer un reporte de calificaciones de alumnos, y tengo que sacar datos de 2 tablas det_calificaciones y alumnos
y ya revise y el problema lo tengo en la consulta les dejo mi codigo.. es en una funcion los datos los mando excel.

Public Function califi()

Set conex = New ADODB.Connection
Set regist = New ADODB.Recordset
Dim fila As Integer
Dim ObjExcel As Object
Dim ObjLibro As Object
Dim ObjHoja As Object
Set ObjExcel = CreateObject("Excel.Application")
Set ObjLibro = ObjExcel.Workbooks.Add '(App.Path & "\calificacion.xls")
Set ObjHoja = ObjExcel.ActiveSheet


conex.ConnectionString = "DSN=easy"
conex.Open
regist.ActiveConnection = conex
regist.CursorType = adOpenDynamic
regist.LockType = adLockOptimistic
cve = InputBox("escribe el numero de control del alumno")
regist.Source = "SELECT * FROM alumnos INNER JOIN det_calif ON alumnos.cve_alumno =cve_alumno"
regist.Open
Set ObjHoja = ObjExcel.ActiveSheet

While Not regis.EOF


porfa ayudenme grax...........
fila = fila + 1

ObjHoja.Cells(fila, 1) = regist.Fields!cve_alumno
ObjHoja.Cells(fila, 2) = regist.Fields!nombre
ObjHoja.Cells(fila, 3) = regist.Fields!calificacion
regist.MoveNext

Wend

ObjExcel.Visible = True

End Function
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda con una consulta a 2 tablas

Publicado por Leonardo Josue (877 intervenciones) el 09/07/2010 16:27:27
Hola Jesus ledesma:

En todo tu post NUNCA DICES CUAL ES EL PROBLEMA QUE TIENES. ¿Te marca error la consulta? ¿No te arroja los resultados que estás esperando?

Y nuevamente te hago el mismo comentario de tu otro POST: Este es un foro de SQL, evita mezclar lenguajes y si en un futuro tienes necesidad de colocar algún otro post trata de ser un poco más claro en la descripción de tu problema.

Saludos
Leo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar