Olá... Vou falar novamente, estou desenvolvendo um sistema de notícia e encontrei um problema na página principal do site (index.asp) que o seguinte:

 

Nesta página tenho 4 tabelas para colocar os dados de 4 tabelas diferente no banco de dados (Access).

 

Quando fui colocar na primeira e na segunda beleza, só que quando fui colocar os dados na terceira esta dando erro.

 

Descobri que esta dando incompatibilidade outra tabela no banco de dados por ter os mesmo nome de campos, já alterei os nomes e não funciona. Ai fiz um teste, quando eu apago uma a outra funciona e vise-versa.

 

Como eu faço para colocar dados de tabelas diferentes na mesma página?

 

Ficaria mais claro ver o que esta acontecendo se eu mandasse o arquivo pra alguém ver, se alguém poder me ajudar dessa forma eu agradeço.

 

Obrigado

eu faço assim quando preciso abrir mais de uma tabela na página nunca tive problemas ... um site que fiz abre 3 (noticias, filmes e enquete(que são duas)) ...

 

<%
 on error resume next
  Dim SQL, rst, Alternativa, Enquete, rst1, SQL1, TotalVotos
 Alternativa = Request("Alternativa")
 Enquete = request("Enquete")
 vgdb.execute "Update Enquetes_alternativas Set Votos = Votos + 1 Where Enquetes_alternativas.[Codigo da alternativa] = " & Alternativa
 SQL = "SELECT Enquetes.[Codigo da enquete], Enquetes.Pergunta, Enquetes_alternativas.[Codigo da alternativa], Enquetes_alternativas.Alternativa, Enquetes_alternativas.Votos FROM Enquetes INNER JOIN Enquetes_alternativas ON Enquetes.[Codigo da enquete] = Enquetes_alternativas.[Codigo da enquete] WHERE (((Enquetes.[Codigo da enquete])=" & Enquete & ")) ORDER BY Enquetes_alternativas.[Codigo da alternativa];"
  Set rst = server.createobject("adodb.recordset")
  rst.open SQL, vgdb, 1, 1 
 if rst.eof then
      rst.close
   set rst = nothing
   Response.Write(Default.asp)
 end if 
 'total votos
 SQL1 = "SELECT Sum(Enquetes_alternativas.Votos) AS SomaDeVotos FROM Enquetes_alternativas WHERE (((Enquetes_alternativas.[Codigo da enquete])=" & Enquete & "));"
  Set rst1 = server.createobject("adodb.recordset")
  rst1.open SQL1, vgdb, 1, 1 
 if rst1.eof then
   TotalVotos = 0
 else
   TotalVotos = rst1("SomaDeVotos")
 end if
%>

Martini pra falar a verdade não entendi nada... nossa estou todo enrolado

vc disse que esta abrindo 3 tabelas mais só vi relacionando a uma "enquete"

 

e as tabelas noticas e filme?

Martini muito obrigado... eu já descobri qual foi o meu erro e um erro que é chamado pai dos burros... nossa fico até com vergonha, mais isso é que dá programar me lugar barulhento

 

eu estava fechando o banco de dados antes de começar o outro loop

 

conexao.close

set conexao = nothing

 

muito obrigado