Banco De Dados Com 02 Tabelas Uma Transferindo

psljesus · Janeiro 18, 2005

Olá Caros amigos espero que me ajudem!!!

Criei um site que tem um Mural de Recados que utiliza um banco de dados em ACCESS chamado visitas e nele possui 02 tabelas: analise e visitas.

A Tabela analise é onde ficará todas as mensagens que foram encaminhadas pela pagina Deixe seu Recado, sendo que as mensagens encaminhadas ficaram na tabela análise, que será liberada em outra pagina com um botão de liberação para as mensagens que forem selecionadas para o banco de dados visitas aonde aparecerá na página Mural de Recados. Já tentei diversas vezes mas aparece erros como:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Driver ODBC para Microsoft Access] O campo 'VISITAS.VISMENSAGEM' não pode ser uma seqüência de caracteres de comprimento nulo.

/bancoadm/inserir_visita.asp, line 45

-------------------------------------------------------------------------------------------------------

Pagina: administracao_envio.asp (Página aonde aparece as mensagens do banco de dados - analise)

<%
Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery
Dim strConnection

'Conectando com o banco de dados visitas.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("visitas.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

'Seleciona da tabela contato
strQuery = "SELECT * FROM ANALISE"
Set ObjRs = objConn.Execute(strQuery)
%>
<html>
<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">
<head>
<STYLE type=text/css>
A:link { text-decoration: none}
A:visited { text-decoration: none}
</STYLE>
</head>
<body background="../background/backgroundacesso.jpg" link="#000000" vlink="#666666" alink="#B70000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center" style="width: 756; height: 119">
  <table width="710" border="0" cellspacing="0" cellpadding="0" height="1">
    <tr>
      <td width="448" valign="top" height="136"> 
        <table width="740" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr bgcolor="ffffff"> 
            <td width="740" colspan="3"> <table width="759" height="148" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  <td width="759" height="148"> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="759" height="148">
                      <param name="movie" value="../flash/cabecalho.swf">
                      <param name="quality" value="high">
                      <embed src="../flash/cabecalho.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="759" height="148"></embed></object></td>
                </tr>
              </table>
              <table width="741" border="0" align="center" cellpadding="2" cellspacing="2">
                <tr> 
                  <td width="24%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="escolhe_pra_auterar.asp" class="menu">Alterar</a></font></b></font></div></td>
                  <td width="25%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Excluir</font></b></font></div></td>
                  <td width="25%" bgcolor="#f5f5f5"> <div align="center"><font color="#000099"><b><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:history.back(-1)" class="menu">Voltar</a></font></b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"></font></b></font></div></td>
                </tr>
              </table>
              
            </td>
          </tr>
          <tr> 
            <td colspan="3"> 
              <table width="741" height="18" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  <td width="741" height="1" align="center"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b><br>
                    </b></font><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#B70000">:: 
                    Administra&ccedil;&atilde;o - Exclus&atilde;o::</font></b></font></td>
                </tr>
              </table>
              <table width="740" height="18" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                  <td align="center" height="1" width="735"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b><br>
                    </b> <font color="#000000" size="2">Selecione a(s) mensagem(s) a ser(em) exclu&iacute;da(s)</font></font></td>
                </tr>
              </table>
             <form method="post" action="inserir_visita.asp" name="form" >
                <table width="736" border="0" cellspacing="0" cellpadding="0" height="1">
                  <tr> 
                    <td height="1" align="center" width="734"> 
                      <table width="740" height="63" border="0" align="center" cellpadding="2">
                        <tr bgcolor="#B70000"> 
                          <td width="18" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">N&ordm;:</font></b> 
                            </font></td>
                          <td width="125" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Nome:</font></b> 
                            </font></td>
                          <td height="1" colspan="2" align="center"> <font size="1" color="FFFFFF"><b></b> 
                            </font> <font size="1" color="FFFFFF"><b><font size="1" color="FFFFFF"><b><font face="Verdana">Data</font></b></font><font face="Verdana">:</font></b> 
                            </font></td>
                          <td width="155" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">E-mail:</font></b> 
                            </font></td>
                          <td width="266" height="1" align="center"><font size="1" color="FFFFFF"><b><font size="1" color="FFFFFF"><b><font face="Verdana">Mensagem</font></b></font><font face="Verdana">:</font></b> 
                            </font></td>
                          <td width="60" height="1" align="center"> <font size="1" color="FFFFFF"> 
                            <input type="submit" name="Submit" value="Liberar">
                            </font></td>
                        </tr>
                        <%While Not objRS.EOF %>
                        <tr bgcolor="#FFFFFF"> 
                          <td width="18" height="1" align="center"> <font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                            <%Response.write objRS("VISCODIGO")%>
                            </font> </b></font></td>
                          <td width="125" height="1" align="center"> 
                            <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                              <%Response.write objRS("VISNOME")%>
                              </font> </b></font></div></td>
                          <td height="1" colspan="2" align="center"> <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                              </font> </b></font> <font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"> 
                              <%Response.write objRS("VISDATA")%>
                              </font></b></font></div></td>
                          <td width="155" height="1" align="center"> 
                            <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif"><a href="mailto:<%Response.write objRS("VISEMAIL")%>" class="menu"> 
                              <%Response.write objRS("VISEMAIL")%>
                              </a> </font></b></font></div></td>
                          <td width="266" height="1" align="center"> 
                            <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                              <%Response.write objRS("VISMENSAGEM")%>
                              </font></b></font></div></td>
                          <td width="60" height="1" align="center"> 
                            <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000"> 
                              <input type="checkbox" name="checkbox" value="<%=objRS(0)%>">
                              </font> </b></font></div></td>
                        </tr>
                        <%
  'Movendo para o proximo registro
  objRS.MoveNext
  Wend
  'Fechando as conexões
  objRs.close
  objConn.close
  Set objRs = Nothing
  Set objConn = Nothing
  %>
                      </table>
                    </td>
                  </tr>
                </table>
              </form>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</div>
<style type="text/css">
body {
  scrollbar-face-color: "#510006";   
  scrollbar-shadow-color: "#FFFFFF";
  scrollbar-highlight-color: "#FFFFFF";
  scrollbar-3dlight-color: "#74000A";
  scrollbar-darkshadow-color: "#74000A"; 
  scrollbar-track-color: "#74000A";  
  scrollbar-arrow-color: "#FFFFFF";
 } </style>
</body>
</html>

------------------------------------------------------------------------------------------------------- Pagina: inserir_visita.asp (Página aonde as mensagens serao enviadas para o banco de dados - visitas)

<%@Language=VBScript%>
<%Option Explicit%>
<%
  Const adCmdText = &H0001
  Const adExecuteNoRecords = &H00000080


  Dim strSQL
  Dim objConn
  

  'retira as aspas simples de um texto para
  'ser passado ao banco de dados
  Function Aspas(T)
    Dim i
    Dim Letra
    Dim Texto

    Texto = T
    Aspas = ""
    If IsNull(Texto) Or IsEmpty(Texto) Then
      Exit Function
    End If
    For i=1 To Len(Texto)
      Letra = Mid(texto, i, 1)
      If Letra = "'" Then
        Aspas =  Aspas & "''"
      Else
        Aspas = Aspas & Letra
      End If
    Next
  End Function


  Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & _
                             Server.MapPath("visitas.mdb")
  objConn.Open 



  strSQL = "INSERT INTO VISITAS (VISNOME, VISEMAIL, VISMENSAGEM) VALUES ('" & _ 
           Aspas(Request("NOME")) & "', '" & Aspas(Request("EMAIL")) & "', '" & Aspas(Request("MENSAGEM")) & "')"

  objConn.Execute strSQL, , adCmdText 


  objConn.Close 
  Set objConn = Nothing  

  If Err.Number = 0 Then
    Response.Redirect "visitas.asp"
  Else
    Response.Redirect "erro.asp"
  End If%>

----------------------------------------------------------------------------------------------------

POR FAVOR ME AJUDEM!!!!

cyberalexxx · Janeiro 18, 2005

me parece que voce esta tentando fazer um insert, só que o campo não aceita o registro em branco.

De um response.write na instrução SQL pra vez se ela esta de acordo.

Caso o campo ira receber realmente um valor em branco, habilite essa opção na estrutura da sua tabela.

bareta · Janeiro 18, 2005

ou utilize um if para testar....

if request.form("campo")="" then

response.write "tá em branco"

else

response.write "certo"

end if

ai você pode mudar fazer response.redirect ou outra coisa

Entrar

Banco De Dados Com 02 Tabelas Uma Transferindo

Pergunta

psljesus

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

cyberalexxx

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades