Ajuda Por Favor

[bolomaster]

Olhem so o meu problema eu tenho um banco de dados. com varias tabelas. o problema é o seguinte os dados estao em tabelas diferentes a unica coisa em comun é a matricula.. bem baseado nisso eu criei uma session matricula

o problema é o seguinte eu não to consguindo mostrar na mesma pagina os dados de tabelas diferentes tem como eu fazer ?

se tem como é ? alguém conhece algo parecido um aritgo ou post mais antigo..

se puderem me ajudar a fazer a conexao com duas tabelas ou mais e mostrar os dados eu fico agradecido

so uma curiosidade.. eu vou mostrar estes dados dentro de tables .. sera um table para cada ... tabela do banco de dados ...

abraços

[xarles]

Para cada tabela você abre um RecordSet

RS.open... tabela 1

Rs.Close

Rs.open...Tabela 2

Rs.close

+ ou - isso......

entendeu?

exemplo de code:

Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open "DBQ=" & Server.MapPath("bd.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","",""

Set RS = Server.CreateObject ("ADODB.RecordSet")

RS.Open "SELECT * table1", objConn, 3, 3

RS.Close

RS.Open "SELECT * FROM table2", objConn, 3, 3

RS.Close

%>

[bolomaster]

Meu colega é o seguinte eu imaginei isto sabe e tentei não deu certo.. ai eu criei um arquivo fora e o inclui no arquivo.. so que da o erro da mesma forma .

eu vou postar os arquivos para você ver .

[Deividy]

posta as páginas pra gente ver como você esta fazendo.

Assim dá para arrumar o que estiver de errado beleza.

[-#Alea#-]

cara comando SQL,

exemplo

Tabela Aluno

nome, cidade, estado, matricula

Tabela boletim

matricula, nome, nota

quero buscar o Nome a cidade e a Nota do aluno com a Matricula X

select aluno.nome, aluno.cidade, boletim.nota From aluno, boletim where aluno.matricula = boletim.matricula

entendeu? enquanto tu tiver um campo comum em cada tabela você pode fazer buscas assim.

qualquer coisa grita.

[bolomaster]

Galera ta ai os meus arquivos

<! #include file = "complementoNotas.asp" -->

<%

dim db, rs, disciplina

set db = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.recordset")

db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/net.mdb")

tblrs = "Select * From fichalu where matricula = '" & Session("matricula") &"'"

rs.open tblrs, db

do while not rs.eof

if rs.fields("Cod_disc") = 00001 then

disciplina = "IED I"

end if

if rs.fields("Cod_disc") = 00002 then

disciplina = "Lingua Portuguesa"

end if

if rs.fields("Cod_disc") = 00003 then

disciplina = "Filosofia Geral"

end if

if rs.fields("Cod_disc") = 00004 then

disciplina = "Metodologia da Pesq. Ciènt."

end if

if rs.fields("Cod_disc") = 00005 then

disciplina = "Economia Politica"

end if

if rs.fields("cod_disc") = 00006 then

disciplina = "Sociologia Geral"

end if

if rs.fields("cod_disc") = 00007 then

disciplina = "IED II"

end if

if rs.fields("cod_disc") = 00008 then

disciplina = "Sociologia Juridica"

end if

if rs.fields("Cod_disc") = 00009 then

disciplina = "Filosofia do Direito"

end if

if rs.fields("Cod_disc") = 00010 then

disciplina = "TGE"

end if

if rs.fields("cod_Disc") = 00011 then

disciplina = "Dir. Civil I"

end if

if rs.fields("Cod_disc") = 00012 then

disciplina = "Dir Civil II"

end if

if rs.fields("Cod_disc") = 00013 then

disciplina = "Dir Penal I"

end if

if rs.fields("Cod_disc") = 00014 then

disciplina = "Dir Const I"

end if

if rs.fields("Cod_disc") = 00015 then

disciplina = "Dir Comercial I"

end if

if rs.fields("Cod_disc") = 00016 then

disciplina = "Hermeneutica Jur."

end if

if rs.fields("Cod_disc") = 00017 then

disciplina = "Informática Jur."

end if

if rs.fields("cod_disc") = 00018 then

disciplina = "Dir Civil III"

end if

if rs.fields("cod_disc") = 00019 then

disciplina = "Dir. Penal II"

end if

if rs.fields("cod_disc") = 00020 then

disciplina = "Teoria Geral do Processo"

end if

if rs.fields("cod_disc") = 00021 then

disciplina = "Dir. Constitucional II"

end if

if rs.fields("cod_disc") = 00022 then

disciplina = "Dir. Comercial II"

end if

if rs.fields("cod_disc") = 00023 then

disciplina = "Dir. Civil IV"

end if

if rs.fields("cod_disc") = 00024 then

disciplina = "Dir. Penal III"

end if

if rs.fields("cod_disc") = 00025 then

disciplina = "Direito Constitucional III"

end if

if rs.fields("cod_disc") = 00026 then

disciplina = "Dir Proc. Civil I"

end if

if rs.fields("cod_disc") = 00027 then

disciplina = "Dir. Comercial III"

end if

if rs.fields("cod_disc") = 00028 then

disciplina = "Dir. Civil V"

end if

if rs.fields("cod_disc") = 00029 then

disciplina = "Dir Penal IV"

end if

if rs.fields("cod_disc") = 00030 then

disciplina = "Dir. Administrativo I"

end if

if rs.fields("cod_disc") = 00031 then

disciplina = "Dir. do Trabalho I"

end if

if rs.fields("cod_disc") = 00032 then

disciplina = "Dir. Proc. Civil II"

end if

if rs.fields("cod_disc") = 00033 then

disciplina = "Dir. Civil VI"

end if

if rs.fields("cod_disc") = 00034 then

disciplina = "Dir. Penal V"

end if

if rs.fields("cod_disc") = 00035 then

disciplina = "Dir Proc Civil III"

end if

if rs.fields("cod_disc") = 00037 then

disciplina = "Dir. Administrativo II"

end if

if rs.fields("cod_disc") = 00038 then

disciplina = "Escr. Mod. Assis. Jur. I"

end if

if rs.fields("cod_disc") = 00039 then

disciplina = "Laboratório Prat. Jur. I"

end if

if rs.fields("cod_disc") = 00040 then

disciplina = "Dir. Civil VII"

end if

if rs.fields("cod_disc") = 00041 then

disciplina = "Dir. Proc. Civil IV"

end if

if rs.fields("cod_disc") = 00042 then

disciplina = "Dir. Finan Econòmico"

end if

if rs.fields("cod_disc") = 00043 then

disciplina = "Ética Geral e Jur."

end if

if rs.fields("cod_disc") = 00044 then

disciplina = "Dir. Proc. Penal I"

end if

if rs.fields("cod_disc") = 00045 then

disciplina = "Dir. Administrativo III"

end if

if rs.fields("cod_disc") = 00046 then

disciplina = "Escr. Mod. Assis. Jur. II"

end if

if rs.fields("cod_disc") = 00047 then

disciplina = "Laboratório Prat. Jur. II"

end if

if rs.fields("cod_disc") = 00048 then

disciplina = "Dir. Inter. Público"

end if

if rs.fields("cod_disc") = 00049 then

disciplina = "Dir. Tributário I"

end if

if rs.fields("cod_disc") = 00050 then

disciplina = "Dir. Proc. Penal II"

end if

if rs.fields("cod_disc") = 00051 then

disciplina = "Monografia Final I"

end if

if rs.fields("cod_disc") = 00052 then

disciplina = "Escr. Mod. Assis. Jur. III"

end if

if rs.fields("cod_disc") = 00053 then

disciplina = "Laboratório Prat. Jur. III"

end if

if rs.fields("cod_disc") = 00054 then

disciplina = "Dir. Proc. do Trabalho"

end if

if rs.fields("cod_disc") = 00055 then

disciplina = "Dir. Proc. Penal III"

end if

if rs.fields("cod_disc") = 00056 then

disciplina = "Dir. Inter. Privado"

end if

if rs.fieldS("cod_disc") = 00057 then

disciplina = "Monografia Final II"

end if

if rs.fields("cod_disc") = 00059 then

disciplina = "Laboratório Prat. Jur. IV"

end if

if rs.fields("cod_disc") = 00060 then

disciplina = "Dir. da Seguridade Social"

end if

if rs.fields("cod_disc") = 00061 then

disciplina = "Poder Judiciário e Funções"

end if

if rs.fields("cod_disc") = 00062 then

disciplina = "Dir. Eleitoral"

end if

if rs.fields("cod_disc") = 00063 then

disciplina = "História do Direito"

end if

if rs.fields("cod_disc") = 00064 then

disciplina = "Direito Municipal"

end if

if rs.fields("cod_disc") = 00065 then

disciplina = "Direito do Consumidor"

end if

if rs.fields("cod_disc") = 00066 then

disciplina = "Direito Ambiental"

end if

if rs.fields("cod_disc") = 00067 then

disciplina = "Direito Agrario e Urbanistico"

end if

if rs.fields("cod_disc") = 00068 then

disciplina = "Direito Cooperativista"

end if

if rs.fields("cod_disc") = 00069 then

disciplina = "Direito da Negociações e Arbitragem"

end if

%>

<table width="100%" border="0" cellpadding="0" cellspacing="10">

<tr>

<td>

<table width="100%" border="1" class="fonte" cellpadding="3" cellspacing="0" bordercolor="#666666">

<tr>

<td width="28%"><div align="left"><strong>Mat&eacute;ria</strong></div></td>

<td width="13%"><div align="center"><strong>Nota 1&ordm;Bim</strong></div></td>

<td width="13%"><div align="center"><strong>Falta 1&ordm;Bim</strong></div></td>

<td width="12%"><div align="center"><strong>Nota 2&ordm;Bim</strong></div></td>

<td width="13%"><div align="center"><strong>Falta 2&ordm;Bim</strong></div></td>

<td width="9%"><div align="center"><strong>Recup.</strong></div></td>

<td width="12%"><div align="center"><strong>Total</strong></div></td>

</tr>

<tr>

<td> <em><font color="#FFFFFF"><%Response.Write rs.fields("Cod_Disc")%></font></em>

<strong><font color="#3333FF">

<% Response.Write(disciplina) %>

</font> </strong> </td>

<td> <div align="center"><em>

<%Response.Write rs.fields("imp01")%>

</em> </div>

<div align="center"></div></td>

<td> <div align="center"><em>

<%Response.Write rs.fields("falta01")%>

</em> </div>

<div align="center"></div></td>

<td>&nbsp;</td>

<td>&nbsp;</td>

<td>&nbsp;</td>

<td>&nbsp;</td>

</tr>

</table> </td>

</tr>

</table>

<%

rs.movenext

loop

rs.close

db.close

%>

e o arquivo complementoNotas.asp

<%

dim db2, rs2

set db2 = Server.CreateObject("ADODB.Connection")

set rs2 = Server.CreateObject("ADODB.recordset")

db2.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/net.mdb")

tblrs2 = "Select * From alunoss where nome = '" & Session("matricula") &"'"

rs2.open tblrs2, db2

%>

<table width="100%" border="0">

<tr>

<td>Nome</td>

<td><%= rs2.fields("nome")%> </td>

<td>Turno </td>

<td>&nbsp;</td>

</tr>

<tr>

<td>Turma</td>

<td>&nbsp;</td>

<td>Per&iacute;odo</td>

<td>&nbsp;</td>

</tr>

</table>

<%

rs.close

db.close

%>

ai galera vocês estao vendo né .. então .. não to entendendo o porque . isso não ta funcionando

Agradeço desde já a ajuda de vocês

abraços

[bolomaster]

alguém conseguiu???