Consultando y Comparando 2 DB

Owen-Bonilla · #1 (**permalink**) 13/03/2002, 13:47

Que tal !!, aqui ando de nuevo despues de varias semanas sin entrar

.

Tengo un problema con una página... hago una consulta a dos Bases de Datos (Abajo pegare mi código completo para que me entiendan mejor).

Mi programa ( donde los alumnos checan su calificación por internet) lo que hace es que hace una consulta a mi BD y me despliega valores dependiendo de la clave del alumno, osea que si la clave del alumno ( por Ej.) es 010478, me desplegara las calificaciones de su Primero, Segundo y Tercer Examen..., ahora, claro, por cada alumno, me muestra sus 3 correspondientes calificaciones, y por supuesto, el nombre de las materias de cada uno, pero aquí esta el problema ya que me muestra nombre de materias, pero NO las que deben corresponder a cada calificacion ( ó alumno)

...

Son 2 BD, los campos de clave_mat tienen el mismo y los dos son númericos. ( clave de la materia, para k dependiendo de la clave de la materia del alumno, me despliegue el nombre de la materia)

En qué estare mal, aqui esta mi codigo :(
mejor lo pongo en otro mensaje pork aqui no cabe

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

Owen-Bonilla · #2 (**permalink**) 13/03/2002, 13:55

<%Language=VBScript%>

<%
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};"
DSNtemp=dsntemp & "DBQ=c:\Inetpub\wwwroot\tesis\db\terceros.mdb "
conn.Open DSNtemp

eventquery="SELECT * FROM terceros"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open eventquery, conn, 3, 3
%>

<%
Set conn1 = Server.CreateObject("ADODB.Connection")
DSNtemp1="DRIVER={Microsoft Access Driver (*.mdb)};"
DSNtemp1=dsntemp1 & "DBQ=c:\Inetpub\wwwroot\tesis\db\materiaX.mdb "
conn1.Open DSNtemp1

eventquery1="SELECT * FROM materiax"

Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open eventquery1, conn1, 3, 3

dim matricula
matricula=request.form("matricula")

dim nombre
nombre=RS.fields.item("Dnombre").value
%>

<HTML>
<HEAD>
<TITLE>Calificaciones Correspondientes a la matricula [ <%=matricula%> ]</TITLE>

<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#800080">
<form>
<tr>
<td>


<%
Response.Write "Calificaciones correspondientes a la matricula &nbsp"& matricula &"&nbsp"
Response.Write ""

dim nombremat

while (NOT RS.eof)

If (matricula = RS.fields.item("DMatricula").value) then

dim calif1
calif1=RS.fields.item("dprimer").value

dim calif2
calif2=RS.fields.item("dsegun").value

dim calif3
calif3=RS.fields.item("dtercer").value

dim clavemat1
clavemat=RS1.fields.item("dclamat").valu e

dim clavemat
clavemat=RS.fields.item("dclamat").value

nombremat= RS1("dnommat")

Response.Write ""& nombremat &""
Response.Write "Primer Parcial:&nbsp;"&calif1&""

Response.Write "Segundo Parcial:&nbsp;"&calif2&""

Response.Write "Tercer Parcial:&nbsp;"&calif3&""
esponse.Write "</td>"
Response.Write "</tr>"

End If

rs.movenext()
rs1.movenext()
wend
%>
</form>
</BODY>
</HTML>
<%
RS.close
RS1.close
%>

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

Owen-Bonilla · #3 (**permalink**) 15/03/2002, 21:05

Alguien ayudeme con esto por favor

.... :( de este programilla depende si me pueden tomar un sistema que estoy haciendo como tesis o no

..

Saludos

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]