none
Comunicação de banco de dados com uma página da web RRS feed

  • Pergunta

  • Olá pessoal, eu sou uma iniciante no ramo e preciso de ajuda com a situação a seguir:

    Minha função é pegar uma tabela de um banco de dados MySql, fazer com que os dados da mesma sejam exibidos em uma página da web e também permir que os mesmos sejam visualizados de maneira detalhada e alterados via web de modo que a alteração também apareça no banco de dados quando verificado através do DBTools ou do Navicat. Para isso utilizei os seguintes códigos:

    _____________________________________________________________________________________________

    <%
    Set CadastrosSite = Server.CreateObject("ADODB.Connection")
    CadastrosSite.Open = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=mysql.fpinovacoes.com.br;DATABASE=fpinovbr20;USER=fpinovbr20;PASSWORD=06fpin45;"
    set qrParcCom = CadastrosSite.Execute("Select * From ParcCom")
    %>
    <html>
    <head>
    <title>Registros disponíveis para consulta e alteração no sistema.</title>
    </head>
    <body>
    <table border='1' cellpadding='2' cellspacing='0'>
    <%Do While Not qrParcCom.Eof%>
    <tr>
       <td><a href = "Detalhes.asp?Seq1 = <% = qrParcCom ("Seq")%>"> <% = qrParcCom("RazaoSocial") %></a></td>
    </tr>
      <%
      qrParcCom.MoveNext
      Loop
      %>
      </table>
      </body>
      </html>

    Este é o que deveria me permitir visualizar uma lista com todos os clientes da tabela, mas só me retorna cerca de 20. Estando nessa página, os nomes Fantasia de cada cliente aparecem como links, para que possa ser aberto e visualizado em uma nova página todos os dados do mesmo. Para executar essa segunda função utilizo o seguinte código:

    <%
    Set CadastrosSite = Server.CreateObject("ADODB.Connection")
    CadastrosSite.Open = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=mysql.fpinovacoes.com.br;DATABASE=fpinovbr20;USER=fpinovbr20;PASSWORD=06fpin45;"
    set qrParcCom = CadastrosSite.Execute("Select * From ParcCom")
    %>
    <html>
    <head>
    <title>Registro de clientes cadastrados</title>
    <SCRIPT LANGUAGE = "JAVASCRIPT">
    function validaForm() {
    if (document.formCadastros/Parceiros Comerciais.txtCadastro.value.length <1)
    {alert("O campo Data não pode ficar em branco.");
    formCadastros/Parceiros Comerciais.txtCadastro.focus();
    return false;
    }
    if (document.formCadastros/Parceiros Comerciais.txtInscEst.value.length <1)
    {alert("O campo Inscrição Estadual não pode ficar em branco.");
    formCadastros/Parceiros Comerciais.txtInscEst.focus();
    return false;
    }
    if (document.formCadastros/Parceiros Comerciais.txtCNPJ.value.length <1)
    {alert("O campo CNPJ não pode ficar em branco.");
    formCadastros/Parceiros Comerciais.txtCNPJ.focus();
    return false;
    }
    if (document.formCadastros/Parceiros Comerciais.txtF_J.value.length <1)
    {alert("O campo Pessoa não pode ficar em branco.");
    formCadastros/Parceiros Comerciais.txtF_J.focus();
    return false;
    }
    if (document.formCadastros/Parceiros Comerciais.txtFantasia.value.length <1)
    {alert("O campo Nome Fantasia não pode ficar em branco.");
    formCadastros/Parceiros Comerciais.txtFantasia.focus();
    return false;
    }
    if (document.formCadastros/Parceiros Comerciais.txtRazaoSocial.value.length <1)
    {alert("O campo Razão Social não pode ficar em branco.");
    formCadastros/Parceiros Comerciais.txtRazaoSocial.focus();
    return false;
    }
    if (document.formCadastros/Parceiros Comerciais.txtCidade.value.length <1)
    {alert("O campo Cidade não pode ficar em branco.");
    formCadastros/Parceiros Comerciais.txtCidade.focus();
    return false;
    }
    return true;
    }
    </SCRIPT>
    </head>
    <body>
    <form name= "formCadastros/Parceiros Comerciais" method= "POST" ACTION= "AtualizaRegistro.asp" onSubmit= "return validaForm(this);">
    Inclusão de Parceiros<br><br>
    Informe os dados do Parceiro a ser inserido. Os campos com (*) são de digitação obrigatória.<br>
    <table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tr>
    <td width="20%">Pessoa: </td>
    <td width="80%"> <input type="text" name="txtF_J" value="<%= qrParcCom("F_J") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Data do Cadastro: </td>
    <td width="80%"> <input type="text" name="txtCadastro" value="<%= qrParcCom("Cadastro") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Tipo de Parceiro: </td>
    <td width="80%"> <input type="text" name="txtTipo" value="<%= qrParcCom("Tipo") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">CNPJ: </td>
    <td width="80%"> <input type="text" name="txtCNPJ" value="<%= qrParcCom("CNPJ") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Inscrição Estadual: </td>
    <td width="80%"> <input type="text" name="txtInscEst" value="<%= qrParcCom("InscEst") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Nome Fantasia: </td>
    <td width="80%"> <input type="text" name="txtFantasia" value="<%= qrParcCom("Fantasia") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Razão Social: </td>
    <td width="80%"> <input type="text" name="txtRazaoSocial" value="<%= qrParcCom("RazaoSocial") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">CEP: </td>
    <td width="80%"> <input type="text" name="txtCEP" value="<%= qrParcCom("CEP") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Endereço: </td>
    <td width="80%"> <input type="text" name="txtRua" value="<%= qrParcCom("Rua") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Número: </td>
    <td width="80%"> <input type="text" name="txtNumero" value="<%= qrParcCom("Numero") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Complemento: </td>
    <td width="80%"> <input type="text" name="txtComplemento" value="<%= qrParcCom("Complemento") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Estado: </td>
    <td width="80%"> <input type="text" name="txtEstado" value="<%= qrParcCom("Estado") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Bairro: </td>
    <td width="80%"> <input type="text" name="txtBairro" value="<%= qrParcCom("Bairro") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Cidade: </td>
    <td width="80%"> <input type="text" name="txtCidade" value="<%= qrParcCom("Cidade") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Telefone: </td>
    <td width="80%"> <input type="text" name="txtFone" value="<%= qrParcCom("Fone") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">Celular: </td>
    <td width="80%"> <input type="text" name="txtCelular" value="<%= qrParcCom("Celular") %>"> *</td>
    </tr>
    <tr>
    <td width="20%">E-mail: </td>
    <td width="80%"> <input type="text" name="txtEMail" value="<%= qrParcCom("EMail") %>"> *</td>
    </tr>
    <tr>
    <td width="20%"></td>
    <td width="80%">
    <input type="hidden" name="Seq" value="<%= qrParcCom("Seq") %>">
    <input type="submit" value="Alterar" name="btInserir">
    <input type="reset" value="Limpar" name="btLimpar">
    </td>
    </tr>
    </table>
    </form>
    </body>
    </html>

    O problema aqui é que, quando eu clico no nome de um cliente, não importa qual, ele me mostra só os detalhes do primeiro da lista e eu não sei como fazer um código que defina isso.

    Caso seja necessário aqui estão os links para a visualização de ambas as páginas e suas falhas:

    www.fpinovacoes.com.br/Site/AlteraRegistro.asp (primeiro código)

    www.fpinovacoes.com.br/Site/Detalhes.asp (segundo código)

    Se alguém souber como corrigir esses erros ou uma outra fonte de informações BEM detalhadas será de grande ajuda.

    Desde já agradeço.


    segunda-feira, 6 de janeiro de 2014 18:31

Respostas

  • O seu problema se encontra nessa linha:

    set qrParcCom = CadastrosSite.Execute("Select * From ParcCom")

    Pois você sempre da um select geral na tabela e como pega apenas um registro para preencher os text's ele sempre utiliza a primeira linha.

    O que precisa fazer é criar o select do registro em específico identificando por algum ID que possa passar via parâmetro.

    Mudaria apenas isso:

    set qrParcCom = CadastrosSite.Execute("Select * From ParcCom Where ID=" & seu_parametro_aqui)


    Atenciosamente, Samuel dos Anjos


    segunda-feira, 6 de janeiro de 2014 19:26

Todas as Respostas

  • O seu problema se encontra nessa linha:

    set qrParcCom = CadastrosSite.Execute("Select * From ParcCom")

    Pois você sempre da um select geral na tabela e como pega apenas um registro para preencher os text's ele sempre utiliza a primeira linha.

    O que precisa fazer é criar o select do registro em específico identificando por algum ID que possa passar via parâmetro.

    Mudaria apenas isso:

    set qrParcCom = CadastrosSite.Execute("Select * From ParcCom Where ID=" & seu_parametro_aqui)


    Atenciosamente, Samuel dos Anjos


    segunda-feira, 6 de janeiro de 2014 19:26
  • Muito obrigada Samuel.

    Você por acaso não saberia onde encontro códigos em PHP para executar ambas funções acima? Estou estudando tanto Asp como PHP. Desculpe a chatice.

    Desde já grata


    terça-feira, 7 de janeiro de 2014 13:31
  • Existem alguns conversores onlines como por exemplo esse abaixo:

    http://www.resources.fortunedesign.co.uk/jspack/asp2php.html

    Mas aconselho você a ler bastante sobre a linguagem e procurar na internet códigos para fazer do zero para você conseguir entender o que fez.


    Atenciosamente, Samuel dos Anjos

    terça-feira, 7 de janeiro de 2014 15:48