jesusjalpan dijo:

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 :chavo:

Click para expandir ...

regist.Source = "SELECT * FROM alumnos INNER JOIN det_calif ON det_calif.cve_alumno = alumnos.cve_alumno"