Relacionamento de tabelas

[xanburzum 169]

sim, apenas tomar o cuidado de seu processamento seja dependente de outros processos na mesma variável, pois dae terá que ter mais de response.end, tipo um teste de mesa.

[lezão 0]

dificil hein ....

[lezão 0]

estou tentando com esse codigo

<!--#include file="Config.asp"-->
<!--#include file="ADOVBS.inc"-->

<%

Call AbreBanco

Dim VarId
VarId = Request.QueryString("Id")


Session("Endereco") = Request.ServerVariables("SCRIPT_NAME") & "?" & Request.ServerVariables("QUERY_STRING")

Dim Atleta
Set Atleta = Banco.Execute("SELECT * FROM Jogador WHERE Id LIKE '"& VarAtleta &"'")

Dim Clube
Set Clube = Banco.Execute("SELECT * FROM Tabela WHERE Id LIKE '"& Clube("IdTabela") &"' ")
respone.write(IdTabela)
response.end
%>

erro

Microsoft VBScript runtime error '800a000d'

Type mismatch

/public_html/colinaesporte/tabela/Clube.asp, line 18

veja como esta em meu banco

[rafaeldupalio 5]

estou tentando com esse codigo

<!--#include file="Config.asp"-->
<!--#include file="ADOVBS.inc"-->

<%

Call AbreBanco

Dim VarId
VarId = Request.QueryString("Id")


Session("Endereco") = Request.ServerVariables("SCRIPT_NAME") & "?" & Request.ServerVariables("QUERY_STRING")

Dim Atleta
Set Atleta = Banco.Execute("SELECT * FROM Jogador WHERE Id LIKE '"& VarAtleta &"'")

Dim Clube
Set Clube = Banco.Execute("SELECT * FROM Tabela WHERE Id LIKE '"& Clube("IdTabela") &"' ")
respone.write(IdTabela)
response.end
%>

erro

Microsoft VBScript runtime error '800a000d'

Type mismatch

/public_html/colinaesporte/tabela/Clube.asp, line 18

veja como esta em meu banco

lezao nao sei se o relacionamento direto do access vai funcionar qnd fizer a consulta no asp, por isso te falei do inner join

[xanburzum 169]

tem fazer pelo INNER JOIN

[lezão 0]

Como?

[lezão 0]

fiz assim agora

<!--#include file="Config.asp"-->
<!--#include file="ADOVBS.inc"-->

<%

Call AbreBanco

Dim VarId
VarId = Request.QueryString("Id")


SQL = "SELECT * FROM Tabela 
INNER JOIN Jogador ON (tabela.Clube = jogador.Atleta) 
INNER JOIN tab3 ON (tab3.campo = tab2.campo) 
WHERE tabela.Clube = "'valor'
respone.write()
response.end
%>

esta dando esse erro

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/public_html/colinaesporte/tabela/Clube.asp, line 12

SQL = "SELECT * FROM Tabela INNER JOIN Jogador ON (tabela.Clube = jogador.Atleta)
---------------------------------------------------------------------------------^

[wilnet 92]

lesão, fiz esse code com base em sua tabela sem o uso do INNER JOIN, veja o que acontece.

<%
Dim lista1, lista2, clube

Set lista1= dados.Execute("Select idTabela FROM jogador Where id Group By idTabela order by idTabela")

If lista1.EOF Then

Response.Write "<font color=#FF0000>"
Response.Write "<strong>Nenhum Cadastrado no momento.</strong>"
Response.Write "</font>"
Else

While not lista1.EOF
Set lista2 = dados.Execute("SELECT clube FROM tabela WHERE id=" & lista1("idTabela"))
%>

<%
If lista2.EOF Then

Response.Write "<strong>Nenhum Cadastrado no momento.</strong>"

Else
%>

<input type="checkbox" name="clube" id="<%=lista1("idTabela")%>" value="<%= lista1("idtabela")%>"/> <%=lista2("clube")%>

<%
End If

lista1.MoveNext
Wend
    

End If

lista1.Close
Set lista1 = Nothing

lista2.Close
Set lista2 = Nothing
%> 

[lezão 0]

Ola Wilnet,

 

deu esse erro

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/public_html/colinaesporte/tabela/Clube.asp, line 7

nesta linha

Set lista1= dados.Execute("Select idTabela FROM jogador Where id Group By idTabela order by idTabela")

[wilnet 92]

Vc está usando "Banco.Execute".

 

Troque nos dois Select, onde está "dados.Execute" pelo o que vc está usando.

[lezão 0]

coloquei "Banco.Execute". e ainda continua com o mesmo erro ?

[xanburzum 169]

o deseja realmente trazer na consulta ?

[lezão 0]

na verdade estou precisando fazer assim

tenho uma pagina chamada

 

tabela.asp

 

e qnd eu clicar em algum time abre outra pagina com os nomes dos jogadores e gols

 

Jogadores.asp

[lezão 0]

vejam

http://www.shopcolina.com.br/public_html/colinaesporte/tabela/tabela.asp

[wilnet 92]

Deu certo lezão?

 

Poste a parte do code que usou.

[lezão 0]

Naun rodou !!!!

Continua o mesmo erro

coloquei "Banco.Execute". e ainda continua com o mesmo erro ?

deu esse erro

Microsoft VBScript runtime error '800a01a8'

 

Object required: ''

 

/public_html/colinaesporte/tabela/Clube.asp, line 7

nesta linha

Set lista1= dados.Execute("Select idTabela FROM jogador Where id Group By idTabela order by idTabela")

[wilnet 92]

1) O link que vc postou, aparenta está rodando como o post# 33.

 

2) A linha 7 ainda está com dados.Execute e não com banco.Execute.

 

Verifica os nomes de suas variáveis, conexão... pode ser que esteja usando nomes diferentes em algum lugar de seu code.

[lezão 0]

Naun esta com outro codigo, mas Naun é o código q eu preciso

Vou verificar essa informação!!!!

Vou verificar essa informação!!!!

Estaun todos corretos veja nas imagens acima do access

[Fernando C 128]

nessa linha:

Set lista1= dados.Execute("Select idTabela FROM jogador Where id Group By idTabela order by idTabela")

 

esta faltando definir que "id" é esse; erro aqui:

 

Where id

 

coloque, por exemplo:

Where id=1

mas 1 sugestão: essa tabela "tabela".. não ajuda em nada..

pq não cria, para começar, uma tabela de clubes???

p/ facilitar, com só 2 colunas id do clube e a 2ª coluna nome do clube

o id de clubes seria "chave estrangeira" na tabela de atletas...

ex:

jogador 1 - clube 1

jogador 2 - clube 1

jogador 3 - clube 1

jogador 4 - clube 2

jogador 5 - clube 3..

 

a base de um relacionamento é essa..

veja como visulamente vc já vai intuindo como descobrir quem são os jogadores, ou clubes, etc..

[wilnet 92]

Tente desta forma Lesão,

<%
Dim lista1, lista2, clube

Set lista1= banco.Execute("Select idTabela FROM jogador Group By idTabela order by idTabela")

If lista1.EOF Then

Response.Write "<font color=#FF0000>"
Response.Write "<strong>Nenhum Cadastrado no momento.</strong>"
Response.Write "</font>"
Else

While not lista1.EOF
Set lista2 = banco.Execute("SELECT clube FROM tabela WHERE id=" & lista1("idTabela"))
%>

<%
If lista2.EOF Then

Response.Write "<strong>Nenhum Cadastrado no momento.</strong>"

Else
%>

<input type="checkbox" name="clube" id="<%=lista1("idTabela")%>" value="<%= lista1("idtabela")%>"/> <%=lista2("clube")%>

<%
End If

lista1.MoveNext
Wend
    

End If

lista1.Close
Set lista1 = Nothing

lista2.Close
Set lista2 = Nothing
%>