Ir para conteúdo
Fórum Script Brasil
  • 0

Problema Asp+ Banco Access

daviddominio

Perguntado por daviddominio,

 Share

Pergunta

daviddominio

daviddominio

Postado
Postado

Olá Pessoal,

Estou atualizando o banco de dados do access de um antigo, para um mais atualizado, para isto somente mudei o nome do arquivo, porém esta dando o erro abaixo que não estou conseguindo resolver.

Obs.: As tabelas continuam com o mesmo nome. Desde já agradeço.

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

O campo especificado 'PROJETO' pode se referir a mais de uma tabela relacionada na cláusula FROM da instrução SQL.

/tcu/anc/banco_abre_projetosb.asp, line 19

<%
                 'Cria a Conexão'
                 Set CNb = CreateObject("ADODB.CONNECTION")

                 'Cria o driver - Access OLEDB
                 DRVb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
                 DRVb = DRVb & Server.MapPath("projetos\banco\SGP.mdb")

                 'Cria a Instrução SQL'
                 SQLb = DEFINIPORNAME3

                 'Cria o RecordSet'
                 Set RSb = CreateObject("ADODB.RECORDSET")

                 'Abre a conexão'
                 CNb.Open DRVb

                 'Abre o recordset
    LINHA 19----->>>>         RSb.Open SQLb,CNb,adOpenForwardOnly,adLockOptimistic %>

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
daviddominio

daviddominio

Postado
  • Autor
Postado

A Pagina é esta.

<%@ Language=VBScript %>
<%Option Explicit
 'Tira o CASH'
 Response.Expires=0
 Dim Tamanho
 Tamanho = 767
%>
<!--#Include file = "anc/adovbs.inc"-->
<HTML><HEAD>
<TITLE>Gestão de Projetos</TITLE>
<link title=charte_style href="anc/estilo.css" type="text/CSS" rel="StyleSheet">
&lt;script language=JAVASCRIPT src="anc/menu_array.js"></script>
&lt;script language=JAVASCRIPT src="anc/mmenu.js"></script>
</HEAD>
<BODY bgColor=#ffffff leftmargin="0" topMargin="5" marginwidth="0" marginheight="0">
<!--#Include file = "anc/banco_dinamico.asp"-->
<TABLE width="<%=Tamanho%>" border=0 cellPadding=0 cellSpacing=0 background="img/bg.gif" align="center">
  <TBODY>
     <TR>
      <TD align=left vAlign=middle><img src="img/logo_seplan.gif"></TD>
    </TR> 
    <TR>
      <TD width="10" align=left vAlign=top>&lt;script>logo();</script></TD>
     </TR>
  </TBODY>
</TABLE>
<table width="<%=Tamanho%>" border="0" cellpadding="0" cellspacing="0" background="img/change_metalbar.gif" align="center">
  <tr> 
    <td><img src="img/spacer.gif" width="1" height="5"></td>
  </tr>
</table>
<!--#Include file = "anc/display_menu2.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=<%=Tamanho%> border=0 align="center">
  <TBODY>
    <TR> 
      <TD><IMG height=1 alt="" 
      src="img/spacer.gif" width=180 
      border=0></TD>
      <TD><IMG height=1 alt="" 
      src="img/spacer.gif" width=568 
      border=0></TD>
    </TR>
    <TR> 
      <TD vAlign=top> 
<!--#Include file = "anc/display_gestao.asp"-->
 <BR> 
   <% If Session("NMUSUARIO") <> "" Then%>
   <!--#Include file = "anc/display_login.asp"-->
<%
End If
      %>
      
      </TD>
      <TD align="left" vAlign=top> <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 bgColor=#DDDDDD>
          <TBODY>
            <TR> 
              <TD width=1 rowSpan=3 bgColor=#697CB4><IMG height=1 src="img/spacer.gif"  width=1></TD>
              <TD width="30" bgColor=#697CB4><IMG height=1 src="img/spacer.gif"  width=1></TD>
              <TD  height=1 bgColor=#697CB4><IMG height=1 src="img/spacer.gif"  width=1></TD>
              <TD width=1 rowSpan=3 bgColor=#697CB4><IMG height=1 src="img/spacer.gif"  width=1></TD>
            </TR>
            <TR> 
              <TD width="30"><IMG height=1 src="img/spacer.gif"  width=1></TD>
              <TD height=15><IMG height=1 src="img/spacer.gif"  width=1><FONT color=#46648c><B><font color="#000000">Projetos 
                - <%if Request.form("PROJETO")="ANDAMENTO" THEN%>
                        Andamento
                    <%elseIf Request.form("PROJETO")="ENCERRADO" or Request.form("PROJETO")="SUSPENSO" or Request.form("PROJETO")="EXTINTO" then%>
                        <%=Request.Form("PROJETO")%>S
                    <%else%>
                        <%=Request.Form("PROJETO")%>
                    <%END IF%>
                    </font></B></FONT></TD>
            </TR>
            <TR> 
              <TD width="30" bgColor=#697CB4><IMG height=1 src="img/spacer.gif"  width=1></TD>
              <TD bgColor=#697CB4 height=1><IMG height=1 src="img/spacer.gif"  width=1></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE width="100%" height="410" border=0 align="center" cellPadding=0 cellSpacing=0 bgColor=#DDDDDD>
          <TBODY>
            <TR> 
              <TD width=1 height="10" rowSpan=3 bgColor=#697CB4><IMG height=1 src="img/spacer.gif"  width=1></TD>
              <TD width="10" height="10" rowspan="3" bgcolor="#FFFFFF"><IMG height=1 src="img/spacer.gif"  width=1></TD>
              <TD width="534" height="30" valign="middle"  bgcolor="#FFFFFF"><IMG height=1 src="img/spacer.gif"  width=1></TD>
              <TD width="22" height=10 rowspan="2" valign="top"  bgcolor="#eeeeee"><IMG 
      height=44 hspace=5 
      src="img/icn_projeto.jpg" width=63 align=left 
      vspace=5 border=0></TD>
              <TD width=1 height="10" rowSpan=3 bgColor=#697CB4><IMG height=1 src="img/spacer.gif"  width=1></TD>
            </TR>
            <TR> 
              <TD rowspan="2" valign="top"  bgcolor="#FFFFFF"> 
                <%Dim CN, CNb, DRV, DRVb, RS, RSb, SQL, SQLb, DEFINIPORNAME,DEFINIPORNAME2, DEFINIPORNAME3, NOMEDEPROJETO, CNa, DRVa, RSa, SQLa, BANCO, DIR

                    DIR = "../Projetos_do_TCU\"
                                          
                If Request.form("PROJETO") = "ANDAMENTO" OR Request.form("PROJETO")= "ENCERRADO" OR Request.form("PROJETO") = "SUSPENSO" OR Request.form("PROJETO") = "EXTINTO" then
                    DEFINIPORNAME = "SELECT DISTINCTROW Patrocinadoras.SIGUP" &_
                    " FROM Patrocinadoras RIGHT JOIN Projetos ON Patrocinadoras.CODUP = Projetos.CODUP" &_
                    " where Estado='" &RTrim(Request.form("PROJETO"))& "' ORDER BY SIGUP"
                %>
                    <!--#Include file = "projetos/projetos2.asp"-->
                <%  else
                    DEFINIPORNAME = "SELECT Projetos.PROJETO, Patrocinadoras.SIGUP, Projetos.ESTADO" &_
                    " FROM Patrocinadoras INNER JOIN Projetos ON Patrocinadoras.CODUP = Projetos.CODUP" &_
                    " Where SIGUP = '" &Request.form("PROJETO")& "'" &_
                    " Order By Patrocinadoras.SIGUP, Projetos.ESTADO;"
                %>
                    <!--#Include file = "projetos/projetos3.asp"-->
                <% End If %>
                <!--#Include file = "anc/projetos_seleciona_dir.asp"-->
                &lt;script language="JavaScript">
                function GetProject(uops){
                if (uops.style.display==''){
                uops.style.display='none'
                /** uops.bgColor='#EEEEEE'; **/}
                else
                uops.style.display=''
                }
                </script>                    
        </TABLE></TD>
      <HR size="1" color="#CCCCCC">
    </TR>
  </TBODY>
</TABLE>
<TABLE width=<%=Tamanho%> border=0 cellPadding=0 cellSpacing=0 align="center">
  <TBODY>
    <TR> 
      <TD colSpan=3 align="right" valign="top">
    <IMG src="img/bottom_bar.gif"  width=<%=Tamanho%> height=13 hspace="2" vspace="2" border=0>
    </TD>
    </TR>
    <TR> 
      <TD align=right colSpan=3>
        &lt;script>creditos();</script>
        </TD>
    </TR>
  </TBODY>
</TABLE>
</BODY></HTML>

Link para o comentário
Compartilhar em outros sites
  • 0
daviddominio

daviddominio

Postado
  • Autor
Postado

é esta a pagina, é a mesma da que postei no inicio.

banco_abre_projetosb.asp

<%
                 'Cria a Conexão'
                 Set CNb = CreateObject("ADODB.CONNECTION")

                 'Cria o driver - Access OLEDB
                 DRVb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
                 DRVb = DRVb & Server.MapPath("projetos\banco\SGP.mdb")

                 'Cria a Instrução SQL'
                 SQLb = DEFINIPORNAME3

                 'Cria o RecordSet'
                 Set RSb = CreateObject("ADODB.RECORDSET")

                 'Abre a conexão'
                 CNb.Open DRVb

                 'Abre o recordset
                 RSb.Open SQLb,CNb,adOpenForwardOnly,adLockOptimistic %>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...