Ajuda Com Inner Join

[bolomaster]

<%

'sistema desenvolvido por rafael marciano

dim db, rs, disciplina, tblrs

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

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

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

tblrs = "Select a.codigo, a.matricula, a.nome, a.estado, "

tblrs = tblrs&"a.telefone, a.datanascimento,"

tblrs = tblrs&"b.totaltrab1bim, b.totaltrab2bim, b.faltas,"

tblrs = tblrs&"b.codaluno, b.abrevdisc, b.trab01, b.trab02,"

tblrs = tblrs&"b.trab03, b.trab04, b.trab05, b.trab06, b.trab07,"

tblrs = tblrs&"b.trab08, b.trab09, b.trab10, b.trab11, b.trab12,"

tblrs = tblrs&"b.trab13, b.trab14, b.trab15, b.trab16,"

tblrs = tblrs&"b.faltas01, b.faltas02, b.faltas03, b.faltas04, b.faltas05, b.faltas06,"

tblrs = tblrs&"b.prova1bim, b.prova2bim, b.examespecial, b.mediafinal,"

tblrs = tblrs&"b.situação "

tblrs = tblrs&"from alunos a inner join connotas b on a.codigo = b.codigo "

tblrs = tblrs&" where alunos.matricula = '" & Session("matricula") &"'"

rs.open tblrs, db

%>

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 9.

/atenas/Faculdade/notas_int.asp, line 19

alguém sabe como resolver

[Bertolani]

você já imprimiu esse SQL e jogou no Access? Roda corretamente!? Os parametros estao corretos?

[]´s

Bertolani

[bolomaster]

tipo eu tenho uma tabela, com os campos

Codigo - auto numeração

matricula - texto

nome - texto

endereco - texto

bairro - texto

cidade - texto

e assim vai

e a outra que é uma consulta de selecao,

com os campos

CodAluno - numero

Faltas01 - numero

Situação - texto

e assim vai

eu tentei unir as tabelas..

pelo inner join so que da o erro

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 9.

/atenas/Faculdade/notas_int.asp, line 19

usei o script que esta postado ai em cima.. alguém sabe se tem como eu corrigir este problema ?

[bolomaster]

alguém ???

[Reginaldo ASP]

Cara depois da query, dê um

response.write tblrs

copie o que aparecer e execute no seu BD... Provavelmente ele vai apontar um erro mais específico...

[bolomaster]

o erro que deu foi este de cima mesmo ...

pensei em tirar este & no final da session so que ai aparece este outro erro aqui oh

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/atenas/Faculdade/notas_int.asp, line 18, column 67

tblrs = tblrs&" where alunos.matricula = '" & Session("matricula") "'"

abraços

[bolomaster]

alguém ??

[bolomaster]

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 8.

/atenas/Faculdade/notas_int.asp, line 19

Ai eu resolvi postar todos os scripts para ver se alguém tem como me ajudar

<%
dim Conn, RS, SQL, matricula2, data_nascimento2 
Set Conn = Server.CreateObject("AdoDb.Connection") 
Conn.provider="Microsoft.Jet.OLEDB.4.0" 
Conn.connectionstring=Server.Mappath("db/secfac01.mdb") 
Conn.open
matricula2 = Request.Form("matricula")
data_nascimento2 = Request.Form("datanascimento") 
SQL = "select * from alunos where MATRICULA = '"&matricula2&"' and DATANASCIMENTO = '"&data_nascimento2&"' "
Set RS = Conn.Execute(SQL)

If RS.EOF Then
Response.Write "Matrícula ou senha inválida!"
Else
Session("nome") = RS("nome")
Response.Redirect "admnotas.asp" 
End If
%> 

<% 
dim db, rs
set db = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")
tblrs = "Select * From alunos where nome = '" & Session("nome") &"'"
rs.open tblrs, db
%>
<table width="100%" border="0" class="fonte" cellpadding="0" cellspacing="5">
  <tr> 
    <td colspan="3"> <div align="justify"> <strong> <font color="#3366FF"> </font></strong><font color="#666666"><br>
        </font> </div>
      <strong><font color="#3366FF"> </font></strong></td>
  </tr>
  <tr> 
    <td width="4%" rowspan="7">&nbsp;</td>
    <td width="54%"> <div align="justify"><strong><font color="#3366FF"> </font></strong><font color="#666666"></font><strong><font color="#3366FF"> 
        <%Response.Write rs.fields("nome")%>,
        </font> <font color="#666666">seja bem vindo &agrave; nossa área de segurança.<br>
        Por favor confirme sua matr&iacute;cula para que as suas notas possam 
        ser mostrados com seguran&ccedil;a.</font><font color="#3366FF"> </font></strong></div></td>
    <td width="42%"><div align="center"><img src="Imagens/cadeado_seguro.jpg" width="142" height="81"></div></td>
  </tr>
  <tr> 
    <td><div align="right"></div></td>
    <td><strong>Por favor redigite sua matr&iacute;cula aqui:</strong> </td>
  </tr>
  <tr> 
    <td><p><strong><font color="#666666">Seu endere&ccedil;o:</font><font color="#3366FF"> 
        <%'Response.Write rs.fields("endereco")%>
        <%Response.Write rs.fields("bairro")%>
        <Br>
        </font><font color="#666666">Cidade:</font><font color="#3366FF"> 
        <%Response.Write rs.fields("cidade")%>
        - 
        <%Response.Write rs.fields("estado")%>
        </font></strong><br>
        <strong><font color="#666666">Telefones: </font><font color="#3366FF"> 
        <%Response.Write rs.fields("Telefone")%>
               </font></strong> </p>
      </td>
    <td><form name="form1" method="post" action="ConfirNotas.asp">
           <input name="Matricula3" type="text" id="Matricula3" size="20" maxlength="15">
          <br>
          <br>
          <input name="confirmar" type="submit" id="confirmar" value="Confirmar">
          </form></td>
  </tr>
  <tr> 
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr> 
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr> 
    <td colspan="2">&nbsp;</td>
  </tr>
  <tr> 
    <td colspan="2">&nbsp;</td>
  </tr>
</table>

<% 
rs.close
db.close
%>

<%
Set Conn = Server.CreateObject("AdoDb.Connection") 
Conn.provider="Microsoft.Jet.OLEDB.4.0" 
Conn.connectionstring=Server.Mappath("db/secfac01.mdb") 
Conn.open
matricula2 = Request.Form("matricula3")
SQL = "select * from alunos where MATRICULA = '"&matricula2&"'"
Set RS = Conn.Execute(SQL)

If RS.EOF Then
Response.Write "Dados Incorretos!"
Else
Session("matricula") = rs.fields("matricula")
Response.Redirect "Notas.asp" 
End If
%> 

<%
'Sistema Desenvolvido por Rafael Marciano 
dim db, rs, tblrs
set db = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
db.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/secfac01.mdb")
tblrs = "Select a.codigo, a.matricula, a.nome, a.estado, "
tblrs = tblrs&"a.telefone, a.datanascimento, "
tblrs = tblrs&"b.totaltrab1bim, b.totaltrab2bim, b.faltas, "
tblrs = tblrs&"b.codaluno, b.abrevdisc, b.trab01, b.trab02, "
tblrs = tblrs&"b.trab03, b.trab04, b.trab05, b.trab06, b.trab07, "
tblrs = tblrs&"b.trab08, b.trab09, b.trab10, b.trab11, b.trab12, "
tblrs = tblrs&"b.trab13, b.trab14, b.trab15, b.trab16, "
tblrs = tblrs&"b.faltas01, b.faltas02, b.faltas03, b.faltas04, b.faltas05, b.faltas06, "
tblrs = tblrs&"b.prova1bim, b.prova2bim, b.examespecial, b.mediafinal, "
tblrs = tblrs&"b.situação "
tblrs = tblrs&"from alunos a inner join connotas b on a.codigo = b.codaluno "
tblrs = tblrs&" where alunos.Matricula = '"&Session("matricula")&"'"
rs.open tblrs, db
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="fonte">
  <tr> 
    <td width="11%" rowspan="5"><div align="right"><font color="#3366FF"><img src="Imagens/Justi%E7a.gif" width="88" height="150"> 
        </font> </div></td>
    <td width="7%" align="left" valign="top"><font color="#666666"><strong>Nome</strong>:</font> 
      <font color="#3366FF">&nbsp;</font></td>
    <td width="33%" align="left" valign="top"><font color="#3366FF"> 
      <%Response.Write rs.fields("nome")%>
      </font></td>
    <td width="10%" align="left" valign="top"><font color="#666666"><strong>Endere&ccedil;o</strong>:</font> 
      <font color="#3366FF">&nbsp;</font></td>
    <td width="39%" align="left" valign="top"><font color="#3366FF"> 
      <%Response.Write rs.fields("endereco")%>
      </font></td>
  </tr>
  <tr> 
    <td align="left" valign="top"><font color="#666666"><strong>Bairro</strong>:</font><font color="#3366FF">&nbsp; 
      </font><font color="#3366FF">&nbsp;</font></td>
    <td align="left" valign="top"><font color="#3366FF"> 
      <%Response.Write rs.fields("bairro")%>
      </font></td>
    <td align="left" valign="top"><font color="#666666"><strong>Telefone</strong>:</font></td>
    <td align="left" valign="top"><font color="#3366FF"> 
      <%Response.Write rs.fields("telefone")%>
      </font></td>
  </tr>
  <tr> 
    <td align="left" valign="top"><font color="#666666"><strong>Cidade</strong>:</font><font color="#3366FF">&nbsp; 
      </font></td>
    <td align="left" valign="top"><font color="#3366FF"> 
      <%Response.Write rs.fields("cidade")%>
      </font></td>
    <td align="left" valign="top"><font color="#666666"><strong>Estado</strong>:</font> 
      <font color="#3366FF">&nbsp; </font></td>
    <td align="left" valign="top"><font color="#3366FF"> 
      <%Response.Write rs.fields("estado")%>
      </font></td>
  </tr>
  <tr> 
    <td colspan="4" align="left" valign="top">&nbsp;</td>
  </tr>
  <tr> 
    <td colspan="4" valign="bottom"><div align="center"></div></td>
  </tr>
</table>
<br>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td><div align="center">Materia</div></td>
    <td><div align="center">Falta Fevereiro</div></td>
    <td><div align="center">Falta Mar&ccedil;o</div></td>
    <td><div align="center">Falta Abril</div></td>
    <td><div align="center">Falta Maio</div></td>
    <td><div align="center">Falta Junho</div></td>
    <td><div align="center">Falta Julho</div></td>
    <td><div align="center">Total de Faltas</div></td>
  </tr>
<%
do while not rs.eof
%>
  <tr> 
    <td><div align="center"><font color="#3366FF"> 
        <%Response.Write rs.fields("AbrevDisc")%>
        </font></div></td>
    <td><div align="center"><font color="#3366FF"> 
        <%Response.Write rs.fields("Falta01")%>
        </font></div></td>
    <td><div align="center"><font color="#3366FF"> 
        <%Response.Write rs.fields("falta02")%>
        </font></div></td>
    <td><div align="center"><font color="#3366FF"> 
        <%Response.Write rs.fields("falta03")%>
        </font></div></td>
    <td><div align="center"><font color="#3366FF"> 
        <%Response.Write rs.fields("falta04")%>
        </font></div></td>
    <td><div align="center"><font color="#3366FF"> 
        <%Response.Write rs.fields("falta05")%>
        </font></div></td>
    <td><div align="center"><font color="#3366FF"> 
        <%Response.Write rs.fields("falta06")%>
        </font></div></td>
    <td><div align="center"><font color="#3366FF"> 
        <%Response.Write rs.fields("TotalFaltas")%>
        </font></div></td>
  </tr>
<%
rs.movenext
loop
rs.close
db.close
%>
</table>

é neste ultimo que esta dando o erro

se alguém souber

abraços

[dark0]

Hum..

tipo.. não sou muito bom com o Inner Join, mas veja uma referencia:

Utilizando INNER JOIN

[Guest - willian -]

Verifique todos os campos que voce colocou no select. Quando você referencia a um campo que não existe, o access entende que é um parametro, por exemplo

select * from alunos where matricula=10

se não existir o campo matricula na tabela alunos, ele vai dar a mensagem: "Parâmetros insuficientes. Eram esperados 1."

Se voce executar esse sql no access, provavelmente ele vai abrir aquelas janelas para entrar com o parâmetro que está faltando.

Espero ter ajudado.

[bolomaster]

fala galera o problema já esta resolvido, o problema era apenas com o loop, mas já resolvi.. agradeço a todos

e abraços

Fui