Ola galera, boa noite!
estou com um codigo em asp pra fazer relacionamento entre tabelas do access, e estou perdidinho ...
peguei este codigo de um modelo mas naun estou conseguindo fazer rodar veja o codigo
codigo.asp
<!--#include file="Includes/Config.asp" -->
<!--#include file="Includes/ADOVBS.inc"-->
<%
Call AbreBanco
Dim VarClube
Dim VarAct
Dim VarAct2
Dim Jogadores
Dim Futebol
Dim VarPagina
Dim TotaldePaginas
Dim IntI
VarClube = Request("Clube")
VarAct2 = Request.QueryString("Act2")
Session("Endereco") = Request.ServerVariables("SCRIPT_NAME") &"?"& Request.ServerVariables("QUERY_STRING")
VarAct = Request.QueryString("Act")
If Request.QueryString("Pagina") = "" Then
VarPagina = 1
Else
VarPagina = Request.QueryString("Pagina")
Select case VarAct
Case "Anterior"
VarPagina = VarPagina - 1
Case "Proxima"
VarPagina = VarPagina + 1
End select
End If
Set Jogadores = Server.CreateObject("ADODB.RecordSet")
'Jogadores.CursorLocation = adUseClient
Jogadores.CursorType = adOpenStatic
Jogadores.CacheSize = TotalPorPagina
If VarAct2 = "" and VarClube <> "" and VarSubCategoria = "" Then
Set Futebol = Banco.Execute("SELECT * FROM Futebol WHERE Cod LIKE '"& VarClube &"'")
Jogadores.Open "SELECT * FROM Jogadores WHERE CodClube LIKE '"&VarClube&"' And Estoque > 0 AND Status = On ORDER BY Nome DESC", Banco, , , adCmdText
Elseif VarAct2 = "" and VarSubCategoria <> "" Then
Set Futebol = Banco.Execute("SELECT * FROM Futebol WHERE Cod LIKE '"& VarClube &"'")
Set SubCategoria = Banco.Execute("SELECT * FROM Jogadores WHERE Cod LIKE '"& Varnome &"'")
Jogadores.Open "SELECT * FROM Jogadores WHERE CodClube LIKE '"& VarClube &"' And Estoque > 0 AND CodSubCategoria LIKE '"&VarSubCategoria&"' AND Status = On ORDER BY Nome DESC", Banco, , , adCmdText
Elseif VarAct2 = "Busca" and VarClube = "0" and VarBuscaTexto <> "" Then
Jogadores.Open "SELECT * FROM Jogadores WHERE Nome LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '%"& VarBuscaTexto &"%' AND Status = On And Gols > 0 ORDER BY Nome DESC", Banco, , , adCmdText
Elseif VarAct2 = "Busca" and VarBuscaTexto <> "" and VarClube <> "0" Then
Set Futebol = Banco.Execute("SELECT * FROM Futebol WHERE Cod LIKE '"& VarClube &"'")
Jogadores.Open "SELECT * FROM Jogadores WHERE CodClube LIKE '"& VarClube &"' AND Gols > 0 AND Nome LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '"& VarBuscaTexto &"' AND Status = On ORDER BY Nome DESC", Banco, , , adCmdText
Elseif VarAct2 = "Busca" and VarBuscaTexto = "" Then
Jogadores.Open "SELECT * FROM Jogadores WHERE CodClube LIKE '"& VarClube &"' And Gols > 0 AND Nome LIKE '%"& VarBuscaTexto &"%' OR Descricao LIKE '"& VarBuscaTexto &"' AND Status = On ORDER BY Nome DESC", Banco, , , adCmdText
ElseIf VarAct2 = "" and VarClube = "" and VarSubCategoria = "" Then
Jogadores.Open "SELECT * FROM Jogadores Where nome > 0 ORDER BY Cod Desc", Banco, , , adCmdText
End If
%>
nos campos do banco de dados tenho as seguintes informações
Tabela Futebol
Cod Clube P J V E D GP GC SG TECNICO
Tabela Jogadores
Cod CodClube Nome Gols Cart_Am Cart_Ver
esta dando este erro
Microsoft JET Database Engine error '80040e07' Data type mismatch in criteria expression. /public_html/colinaesporte/Clube.asp, line 74