Ir para conteúdo
Fórum Script Brasil

AlbertoRT

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    116

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que AlbertoRT postou

  1. AlbertoRT
    Emilio, Bom Dia, Vou tentar de explicar melhor: É seguinte: Tenho um banco de dados em MySQL, chamado integracao, com 1 (uma) tabela chamada Livros com os campos "livro", "autor", "editora", todos com tipo de campo VARCHAR. O objetivo desse sisteminha é fazer com que as páginas ASP com os nomes: "inserir.asp", "lista.asp" e "gerencia-registro.asp" venham a interagir com o banco de dados de forma que possa se "Incluir", "Alterar" e "Excluir" registros. Importante: Essa é uma proposta de um livro e tudo sendo feito conforme o livro funciona perfeitamente bem sem qualquer erro. Acontece que eu estou precisando aprender a fazer com MySQL e ASP, Inclusões, Alterações e Exclusão com esses tipos de campos (VARCHAR), mas também com outros tipos de campos como por exemplo "Date". Aqui mora o meu problema que já dura semanas. Emilio, fui orientado a colocar uma função no código. Coloquei, mas na hora de Editar para alterar dava erro no campo data. Depois sugeriram criar uma SQL que era mais simples, melhor...Criei assim por exemplo: INSERT INTO livros (livro, autor, editora, DATE_FORMAT(data_inicio, '%d/%m/%Y') VALUES ('EU TESTE', 'TU TESTE', 'ELES TESTES', 26/07/2017); Não funciona só mostra Erro syntax. Não se devo colocar as HTML e ASP para um melhor entendimento. Página inserir.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <% ' Dados para a conexão com o banco de dados driver = "{MySQL ODBC 3.51 Driver}" ' Driver para conexão ODBC servidor = "localhost" ' Nomw DNS ou IP do seu servidor HTTP usuario = "root" ' Nome de usuário para acesso ao MySQL senha = "admin" ' Senha de acesso banco = "integracao" ' Nome do banco de dados ' Cria um objeto de conexão com banco de dados Set cnnDB = Server.CreateObject("ADODB.Connection") ' Cria a strind de conexão connStr = "driver=" + driver + "; uid=" + usuario + "; " connStr = connStr + "pwd=" + senha + "; database=" + banco 'Set a string de conexão e realiza a conexão cnnDB.ConnectionString = connStr cnnDB.Open ' Caso ocorra um erro, prossiga até o tratamento de erro On error resume next ' Verifica se o arquivo foi chamado a partir de um formulário If Request.QueryString("acao") = "editar" then ' Cria a expressão que captura os dados do registro a ser alterado sql = "SELECT * FROM livros WHERE id = " sql = sql + Request.QueryString("buscacodigo") ' Cria um objeto para armazenar o retorno da consulta Set rs = Server.CreateObject("ADODB.Recordset") ' Ativa a conexão criada para ResultSet Set rs.ActiveConnection = cnnDB 'Execute a expressão SQL no servidor rs.Open sql 'Armazena os valores capturados em variáveis auxiliares, se existir Codigo = rs("id") Livro = rs("livro") Autor = rs("autor") Editora = rs("editora") data_inicio = rs("data_inicio") End if %> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Gerenciando Registros</title> </head> <body> Preencha os campos abaixo: <% If Request.QueryString("acao") = "editar" then acao = "editar" Else acao = "adicionar" End if %> <form method="POST" action="gerencia-registro.asp?acao=<%=acao%>"> <input type="hidden" name="FormCodigoLivro" value="<%=Codigo%>" /> <table> <tr> <td>Nome do Livro:</td> <td> <input name="FormNomeLivro" size="80" maxlength="64" value="<%=Livro%>" /> </td> </tr> <tr> <td>Nome do Autor:</td> <td> <input name="FormNomeAutor" size="80" maxlength="100" value="<%=Autor%>" /> </td> </tr> <tr> <td>Nome da Editora:</td> <td> <input name="FormNomeEditora" size="60" maxlength="80" value="<%=Editora%>" /> </td> </tr> <tr> <td>Data Inicio:</td> <td> <input name="FormDataInicio" size="15" maxlength="15" value="<%=data_inicio%>" /> </td> </tr> <tr> <td colspan="2" align="right"> <input type="reset" value="Limpar" /> <% if Request.QueryString("acao") = "editar" then NomeBotao = "Alterar" Else NomeBotao = "Cadastrar" End if %> <input type="submit" value="<%=NomeBotao%>" /> </td> </tr> </table> </form> </body> </html> Página gerencia-registro.asp. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <% ' Dados para a conexão com o banco de dados driver = "{MySQL ODBC 3.51 Driver}" ' Driver para conexão ODBC servidor = "localhost" ' Nomw DNS ou IP do seu servidor HTTP usuario = "root" ' Nome de usuário para acesso ao MySQL senha = "admin" ' Senha de acesso banco = "integracao" ' Nome do banco de dados ' Cria um objeto de conexão com banco de dados Set cnnDB = Server.CreateObject("ADODB.Connection") ' Cria a strind de conexão connStr = "driver=" + driver + "; uid=" + usuario + "; " connStr = connStr + "pwd=" + senha + "; database=" + banco 'Set a string de conexão e realiza a conexão cnnDB.ConnectionString = connStr cnnDB.Open ' Caso ocorra um erro, prossiga até o tratamento de erro On error resume next ' Verifica se o arquivo foi chamado a partir de um formulário If Request.QueryString("acao") = "adicionar" then sql = "INSERT INTO livros (livro, autor, editora, data_inicio) VALUES (" sql = sql & "'" & Request.Form("FormNomeLivro") & "', " sql = sql & "'" & Request.Form("FormNomeAutor") & "', " sql = sql & "'" & Request.Form("FormNomeEditora") & "', " sql = sql & "'" & Request.Form("FormDataInicio") & "' " sql = sql & ")" 'Exucuta a expressão SQL no servidor cnnDB.Execute sql 'Verifica o sucesso da operação, baseada na variável 'err' If err.number = 0 then Response.Write("Operação realizada com sucesso") Else Response.Write("Erro: " + err.description) End if 'Executa a alteração do registro, se solicitada Elseif Request.QueryString("acao") = "editar" then sql = "UPDATE livros SET " sql = sql & "livro = '" & Request.Form("FormNomeLivro") & "', " sql = sql & "autor = '" & Request.Form("FormNomeAutor") & "', " sql = sql & "editora = '" & Request.Form("FormNomeEditora") & "', " sql = sql & "data_inicio = '" & Request.Form("FormDataInicio") & "' " sql = sql & "WHERE id = " & Request.Form("FormCodigoLivro") 'Executa a expressão SQL no servidor cnnDB.Execute sql ' Verifica o sucesso da operação, baseada na variável 'err' If err.number = 0 then Response.Write("Operação realizada com sucesso") Else Response.Write("Erro: " + err.description) End if ' Execute a exclusão do registro se solicitada Elseif Request.QueryString("acao") = "excluir" then sql = "DELETE FROM livros WHERE id = " sql = sql & Request.QueryString("buscacodigo") ' Executa a expressão SQL no servidor cnnDB.Execute sql ' Verifica o sucesso da operação, baseada na variável 'err' If err.number = 0 then Response.Write("Operação realizada com sucesso") Else Response.Write("Erro: " + err.description) End if End if %> <br /><a href="inserir.asp">Clique aqui para inserir um novo registro.</a> <br /><a href="lista.asp">Clique aqui para visualizar os registros.</a> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> </head> <body> </body> </html> 12. Página lista.asp <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <% ' Dados para a conexão com o banco de dados driver = "{MySQL ODBC 3.51 Driver}" ' Driver para conexão ODBC servidor = "localhost" ' Nomw DNS ou IP do seu servidor HTTP usuario = "root" ' Nome de usuário para acesso ao MySQL senha = "admin" ' Senha de acesso banco = "integracao" ' Nome do banco de dados ' Cria um objeto de conexão com banco de dados Set cnnDB = Server.CreateObject("ADODB.Connection") ' Cria a strind de conexão connStr = "driver=" + driver + "; uid=" + usuario + "; " connStr = connStr + "pwd=" + senha + "; database=" + banco 'Set a string de conexão e realiza a conexão cnnDB.ConnectionString = connStr cnnDB.Open ' Cria a expressão SQL de consulta sql = "SELECT * FROM livros ORDER BY livro ASC" 'Cria um objeto para armazenar o retorno da consulta, 'conhecido como ResultSet (Conjunto de Resultado) Set rs = Server.CreateObject("ADODB.RecordSet") 'Ativa a conexão criada para o Resultado Set rs.ActiveConnection = cnnDB 'Executa a expressão SQL no servidor rs.Open sql %> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Lista</title> </head> <body> <table border="1" cellpadding="1" cellspacing="0"> <tr align="center" bgcolor="#999999"> <td width="10%">Cód.</td> <td width="10%">Livro</td> <td width="10%">Autor</td> <td width="10%">Editora</td> <td width="5%">Data Início</td> </tr> <% ' Executa um while para navegar nos registros de retorno while not rs.EOF Codigo = rs("id") Livro = rs("livro") Autor = rs("autor") Editora = rs("editora") Data_inicio = rs("data_inicio") %> <tr> <td><%=Codigo%> <a href='inserir.asp?acao=editar&buscacodigo=<%=Codigo%>'> (Editar)</a> <a href='gerencia-registro.asp?acao=excluir&buscacodigo=<%=Codigo%>'> (Excluir)</a></td> <td><%=Livro%></td> <td><%=Autor%></td> <td><%=Editora%></td> <td><%=data_inicio%></td> </tr> <% ' Avança para o próximo registro rs.MoveNext ' Fim do while Wend %> </table> <br /><a href="inserir.asp">Clique aqui para inserir um novo registro.</a> </body> </html> 13. Volto a afirmar que se retirar o campo data_inicio de todos os códigos tudo funciona perfeitamente. Meu problema é a questão incluir um campo "Date" no MySQL e interagir com as páginas (sabemos que campo Date é assim 2017-07-27 formatado. 14. Por último vou colocar a função que me sugeriram que gerou problema e não funcionou na Edição (Alterar"). Função: <% Function InverteDataMySql(data_inicio) if not isdate(data_inicio) then exit function if instr(data_inicio, " ") > 0 then hora = split(data_inicio, " ")(1) end if InverteDataMySql = year(cdate(data_inicio)) & "-" & month(cdate(data_inicio)) & "-" & day(cdate(data_inicio)) if hora <> "" then InverteDataMySql = InverteDataMySql & " " & hora End Function %> Obrigado. Desculpe ficou muito grande a postagem.
  2. AlbertoRT
    Tenho uma banco de dados um dos campos tipo date. A página está em ASP interagindo com banco de dados MySQL. A pág. inserir.asp criei uma função assim: <% Function InverteDataMySql(data_inicio) if not isdate(data_inicio) then exit function if instr(data_inicio, " ") > 0 then hora = split(data_inicio, " ")(1) end if InverteDataMySql = year(cdate(data_inicio)) & "-" & month(cdate(data_inicio)) & "-" & day(cdate(data_inicio)) if hora <> "" then InverteDataMySql = InverteDataMySql & " " & hora End Function %> Chamei a função aqui: <tr> <td>Data Inicio:</td> <td> <input name="FormDataInicio" size="10" maxlength="80" value="<%=Response.Write(InverteDataMySql())%>"/> </td> </tr> Entrando com a data por exemplo: 2017-07-11 ou 11/07/2017 abre o erro: Erro: [MySQL][ODBC 3.51 Driver][mysqld-5.7.13-log]Incorrect date value: '' for column 'data_inicio' at row 1 Obrigado
  3. AlbertoRT
    Tenho uma página em ASP interagindo com banco de dados em MySQL. Existem 4 (três) campos em uma tabela com nome de "livro" do tipo "varchar" e um campo do tipo "date". Acontece que ao digitar uma data assim 2017-07-17 ou 11/07/2017 na página de inserir.asp mostra esse erro: Erro: [MySQL][ODBC 3.51 Driver][mysqld-5.7.13-log]Incorrect date value: '' for column 'data_inicio' at row 1 Coloquei no HTML com ASP (inserir.asp) a seguinte função: <% Function InverteDataMySql(data_inicio) if not isdate(data_inicio) then exit function if instr(data_inicio, " ") > 0 then hora = split(data_inicio, " ")(1) end if InverteDataMySql = year(cdate(data_inicio)) & "-" & month(cdate(data_inicio)) & "-" & day(cdate(data_inicio)) if hora <> "" then InverteDataMySql = InverteDataMySql & " " & hora End Function %> Na pág. inserir.asp chamei a função, mas não adianta não grava e só mostra erro. <tr> <td>Data Inicio:</td> <td> <input name="FormDataInicio" size="10" maxlength="80" value="<%=Response.Write(InverteDataMySql())%>"/> </td> </tr> Por favor! Obrigado
  4. AlbertoRT
    Muito obrigado por tudo. Vou reinstalar. abraços.
  5. AlbertoRT
    Olá Jhonas, OK. entendi. Só que a minha licença do Windows no CD é para um computador, se eu for instalar no notebook vou criar problema. Aqui onde estou digitando é o meu PC e está instalado o Windows 7 Profissional. Formatando o Notebook não estarei usando ilengamente mas uma licença?
  6. AlbertoRT
    Jhones, Obrigado, mas tenho dúvidas sobre a formatação hd e a reinstalação do Windows 7. E se a Microsoft não permitir a minha licença que já veio com o notebook? Não sou rico, mas os três PCs considerando os das minhas e o meu tem instalado Windows 7 Profissional com licença. Mesmo pedindo outra licença o notebook ele é 64 bits. E agora? Há quem diga que não pode instalar 31 bits em notebook com 64 bits.
  7. AlbertoRT
    Por favor, já comprei há alguns anos um notebook, que já veio com o Windows 7 - Home Premium (64 bits). Só uso para entrar em alguns sites. Já faz algum tempo que tenho observado que ao ligar, acessar site, mudar de páginas ele demora muito (lento demais). Já fiz tudo que é possível com o Avast, que poderia resolver, mas não adianta. Inclusive, agora, na parte central do notebook, onde podemos passar o dedo (não sei o nome) para acessar as página, abrir outras abas etc não funciona mais. Será que eu desabilitei sem saber essa parte? E, agora, só funciona com o mouse? Pode ser problema de configuração e é problema de máquina? Como já informei, já comprei o notebook com o Windows 7 e não sei se formatando a notebook tenho direito de reinstalar o Windows 7. Obrigado
  8. AlbertoRT

    Reinstação MySQL

    uma questão postou AlbertoRT MySQL

    Prezados, Por diversos motivos tive de desinstalar completamente e reinstalar tudo relativo ao MySQL. Antes tomei a seguinte providencia: a) Sem experiência fiz apenas cópia dos "bancos de dados" que se encontravam em: C:\Program Files\MySQL\MySQL Server 5.0\data. Fiz porque identifiquei que nessa pasta é onde se encontram os meus banco de dados que criava no SQLyog; b) Depois que reinstalei o MySQL salvei todos os arquivos nessa pasta, ou seja, em C:\Program Files\MySQL\MySQL Server 5.0\data; c) Ocorre que agora o SQLyog mostra todos os bancos de dados, mas o pior é que nenhuma tabela abre, muito mesmo minhas páginas em ASP interagindo com MySQL; d) Diante disso lembrei que na empresa de hospedagem tem condições de fazer um backup do meu banco de dados. A empresa fez o backup do banco de dados chamou de info16br; e) Mas não me adiantou porque não sei como vou restaurar esse backup deforma que fique minhas tabelas dentro do meu MySQL. Por favor, como poderei restaurar meu backup de forma que meu MySQL venha a trabalhar abrindo as tabelas como antes? Muito obrigado.
  9. AlbertoRT
    Olá, atualmente meu Dreamweaver é o CS3. Basta eu abrir a página no DW para aparecer uma pequena tela com os seguintes dizeres: "Adobe Dreamweaver CS3 Adobe Dreamweaver CS3 parou de funcionar Um problema fez com que o programa parasse de funcionar corretamente. O Windows fechará o programa e o notificará caso uma solução esteja disponível. botão "Fechar programa" Não gera nenhuma solução. Por favor, o que devo fazer. As outras páginas funcionam normalmente. Mas esse não está me permitindo nem copiar o código. Tem como corrigir esse problema? Obrigado!
  10. AlbertoRT

    WEBMAIL

    pergunta respondeu ao uttylar de AlbertoRT em ASP

    Olá Uttylar, Eu uso HTML e funciona. Veja se ajuda: O código é esse na integra. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <script type="text/javascript"> //<![CDATA[ window.onload = function() { id('form1').onsubmit = function() { var erro = 0; erro = !obr('Nome') ? erro + 1 : erro; erro = !obr('Estado') ? erro + 1 : erro; erro = !obr('Email') ? erro + 1 : erro; erro = !obr('Assunto') ? erro + 1 : erro; erro = !obr('Mensagem') ? erro + 1 : erro; if (!checkMail(id('Email'))) { alert('Digite um email válido!'); return false; } if (erro > 0) return false; }; }; function obr(campo) { if (id(campo).value == '' || id(campo).value == 0 || id(campo).value == 'Escolha uma opção/assunto' || id(campo).value == 'Estado') { alert('O campo ' + campo + ' é obrigatório!'); return false; } else return true; } function id(el) { return document.getElementById(el); } function checkMail(mail) { var er = new RegExp(/^[A-Za-z0-9_\-\.]+@[A-Za-z0-9_\-\.]{2,}\.[A-Za-z0-9]{2,}(\.[A-Za-z0-9])?/); if (typeof(mail) == "string") { if (er.test(mail)) { return true; } } else if (typeof(mail) == "object") { if (er.test(mail.value)) { return true; } } else { return false; } } //]]> </script> <title>Blog Teixeira - Contato</title> <meta name="description" content="divulgar diversos assuntos" /> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <meta content="pt-br" name="language" /> <meta content="Teixeira" name="title" /> <link type="text/css" media="all" rel="stylesheet" href="css/geral.css" /> <link type="text/css" media="all" rel="stylesheet" href="css/formulario.css" /> </head> <body> <!--Início da div tudo--> <div id="tudo"> <!--Início da div topo--> <div id="topo"> <h1>Blog <span>do Teixeira</span></h1> <!--Início da div sobre--> <div id="sobre"> <p>Teixeira teve um bom aproveitamento em diversos cursos da Área de WebDesign e WebMaster. Atualmente aposentado tem esse espaço para postar comentários, artigos, reportagens, pesquisas. Tudo que ache relevante para o debate e a livre expressão de opiniões.</p> </div> <!--Fim da div sobre--> <!--Início da div nav--> <ul id="nav"> <li><a href="index.asp">Inicial</a></li> <li><a href="politica.html">Política</a></li> <li><a href="geografia.asp">Geografia</a></li> <li><a href="radioamadordefinicao.html">Radioamador</a></li> <li><a href="informatica.html">Informática</a></li> <li><a href="religiao.asp">Religião</a></li> <li><a href="pesquisa.html">Pesquisa</a></li> <li><a href="samba.html">Samba</a></li> <li><a href="index.asp">Eu indico</a></li> <li><a href="blog.html">Blog</a></li> </ul> </div> <!-- Fim da div#topo --> <!--Início da div principal contato--> <div id="principal-contato"> <form method="post" id="form1" action="sendmail.asp" name="Inputform"/> <input type="hidden" name="email" value="carlos.teixeira@terra.com.br"/> <table id="table"> <tbody> <tr> <td id="td" colspan="2"><p class="p-top">Todas as mensagens serão lidas, analisadas e publicadas em seguida.<br /> Muito Obrigado.<br /> 1 - Serão, automaticamente, descartados os comentários que contenham insultos, agressões e ofensas;<br/> 2 - que contenham qualquer espécie de anexo ou <strong>link,</strong> casos extremos contatar proprietário do site.<br /> </p></td> </tr> <tr> <td width="46%" id="td-nome"><span>Nome:</span></td> <td width="54%"><input type="text" name="name" id="Nome" size="60"/></td> </tr> <tr> <td id="td-estado"><span>Estados/Other countries/comment:</span></td> <td><select name="Estado" id="Estado"> <option value="0">Estado</option> <option value="AC">AC</option> <option value="AL">AL</option> <option value="AM">AM</option> <option value="AP">AP</option> <option value="BA">BA</option> <option value="CE">CE</option> <option value="DF">DF</option> <option value="ES">ES</option> <option value="GO">GO</option> <option value="MA">MA</option> <option value="MG">MG</option> <option value="MS">MS</option> <option value="MT">MT</option> <option value="PA">PA</option> <option value="PB">PB</option> <option value="PE">PE</option> <option value="PI">PI</option> <option value="PR">PR</option> <option value="RJ">RJ</option> <option value="RN">RN</option> <option value="RO">RO</option> <option value="RR">RR</option> <option value="RS">RS</option> <option value="SC">SC</option> <option value="SE">SE</option> <option value="SP">SP</option> <option value="TO">TO</option> <option value="Other">Other continents</option> </select></td> </tr> <tr> <td id="td-email"><span>seu email:</span></td> <td><input type="text" name="mailfrom" id="Email" size="40"/></td> </tr> <tr> <td id="td-opcao"><span>Opção/assunto:</span></td> <td><select name="Assunto" id="Assunto"> <option value="0">Escolha uma opção/Assunto</option> <option value="Legislação de Telecomunicações">Legislação de Telecomunicações</option> <option value="Informática">Informática</option> <option value="Pesquisa">Pesquisa</option> <option value="Política">Política</option> <option value="Prestação de Serviços">Prestação de Serviços</option> <option value="Religião">Religião</option> <option value="Samba">Samba</option> </select></td> </tr> <tr> <td id="td-mensagem"><span>Comentários:</span></td> <td><textarea name="mensagem" cols="80" rows="10" id="Mensagem"></textarea></td> </tr> <tr> <td class="td-mensagem"><span> </span></td> <td height="35"><input type="submit" name="Enviar" value="Enviar" /> <input type="reset" value="Cancelar" /></td> </tr> <tr> </tr> </tbody> </table> </form> </div> <!-- Fim da div principal contato --> <!--Início da div#rodape --> <div id="rodape"> <strong> &nbsp;&nbsp;Site criado em 2010 por Teixieira - Copyright &reg; 2010 - Rio de Janeiro/RJ</strong> </div> <!--Fim da div#rodape--> </div> <!--Fim da div#tudo--> </body> </html> Já teve momentos que enviando para o meu próprio e-mail não funciona. Procures fazer um teste enviando para outros e-mails. Desculpe se não ajudar.
  11. AlbertoRT

    Erro na sintaxe do MySQL

    pergunta respondeu ao AlbertoRT de AlbertoRT em ASP

    Salve, salve Getpaulo, Ok. Já verifiquei e não estava salvando as alterações no banco de dados. Já foi identificado o erro que estava em outro arquivo desse mesmo programa com o nome inserir.asp Que tem esse código: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <% 'Dados para a conexão com o banco de dados driver = "{MySQL ODBC 3.51 Driver}" ' Driver para conexão ODBC servidor = "localhost" ' Nome DNS ou IP do seu servidor HTTP usuario = "root" ' Nome de usuário para acesso ao MySQL senha = "admin" ' Senha de acesso banco = "integracao" ' Nome do banco de dados ' Cria um objeto fr conexão com banco de dados Set cnnDB = Server.CreateObject("ADODB.Connection") ' Cria a string de conexão connStr = "driver=" + driver + "; uid=" + usuario + "; " connStr = connStr + "pwd=" + senha + "; database=" + banco ' Seta a string de conexão, e realiza a conexão cnnDB.ConnectionString = connStr cnnDB.Open ' Caso ocorra um erro, prossiga até o tratamento dp erro On error resume next ' Verifica se o arquivo foi chamado em modo de edição If Request.QueryString("acao") = "editar" then ' Cria a expressão que captura os dados do registro a ser alterado sql = " SELECT * FROM Livros WHERE ID = " sql = sql + Request.QueryString("buscacodigo") response.write ' Cria um objeto para armazenar o registro da consulta Set rs = Server.CreateObject("ADODB.RecordSet") ' Ativa a conexão criada para o ResultSet Set rs.ActiveConnection = cnnDB ' Executa a expressão SQL no servidor rs.Open sql ' Armazena os valores capturados em variáveis auxiliares, se existir Codigo = rs("ID") Livro = rs("LIVRO") Autor = rs("AUTOR") Editora = rs("EDITORA") End if %> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Gerenciando Registro</title> </head> <body> Preencha os campos a seguir: <% If Request.QueryString("acao") = "editar" then acao = "editar" Else acao = "adicionar" End if %> <form method="post" action="gerencia-registro.asp?acao=<%=acao%>"> <input type="hidden" name="FormCodigoLivro" value="<%=Codigo%>" /> <table> <tr> <td>Nome do Livro</td> <td> <input name="FormNomeLivro" size="80" maxlength="64" value="<%=Livro%>"> </td> </tr> <tr> <td>Nome do Autor:</td> <td> <input name="FormNomeAutor" size="80" maxlegth="64" value="<%=Autor%>" /> </td> </tr> <tr> <td>Nome da Editora:</td> <td> <input name="FormNomeEditora" size="60" maxlength="80" value="<%=Editora%>"/> </td> </tr> <tr> <td colspan="2" align="right"> <input type="reset" value="Limpar" /> <% If Request.QueryString("acao") = "editar" then NomeBotao = "Alterar" Else NomeBotao = "Cadastrar" End if %> <input type="submit" value="<%=NomeBotao%>" /> </td> </tr> </table> </form> </body> </html> Aqui eu tinha digitado: <input type="hidden" nome="FormCodigoLivro" value="<%=Codigo%>" /> E o correto é: <input type="hidden" name="FormCodigoLivro" value="<%=Codigo%>" /> O danado do name digitei nome. Obrigado pela dica. Vou aproveitar.
  12. AlbertoRT
    Estou precisando criar um formulário em ASP para interagir com meu Banco de Dados. Criação de página ASP para visualização das tabelas, acessando através <!--#Include file= "dbConexao.asp"--> estou executando. Tenho encontrado muita coisa em PHP com MySQL, ASP com Access porém ASP com MySQL não. Por favor, se alguém pude ajudar informe um link para entender a criação de Formulário com "Inclusão", "Alteração", "Exclusão". Obrigado
  13. AlbertoRT
    Tenho três formulários HTML, com as funcionalidades de inserção, edição e exclusão. Todos com integração do ASP com o MySQL Os formulário de inserção e exclusão estão funcionando corretamente. O formulário de edição, ao alterar um registro e clicar em "Alterar" mostra a seguinte mensagem: Erro: [MySQL][ODBC 3.51 Driver][mysqld-5.7.13-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1 O formulário que deve se referir ao erro é: gerencia-registro.asp Código: <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" lang="pt-br"> <% 'Dados para a conexão com o banco de dados driver = "{MySQL ODBC 3.51 Driver}" ' Driver para conexão ODBC servidor = "localhost" ' Nome DNS ou do seu servido HTTP usuario = "root" ' Nome de usuário para acesso ao MySQL senha = "admin" ' Senha de acesso banco = "integracao" ' Nome do banco de dados 'Cria um objeto de conexão com banco de dados Set cnnDB = Server.CreateObject("ADODB.Connection") 'Cria a string de conexão connStr = "driver=" + driver + "; uid=" + usuario + "; " connStr = connStr + "pwd=" + senha + "; database=" + banco 'Seta a string de conexão, e realiza a conexão cnnDB.ConnectionString = connStr cnnDB.Open 'Caso ocorra um erro, prossiga até o tratamento de erro On error resume next 'Verifica se o arquivo foi chamado a partir de um formulário If Request.QueryString("acao") = "adicionar" then sql = "INSERT INTO LIVROS (LIVRO, AUTOR, EDITORA) VALUES ( " sql = sql & "'" & Request.Form("FormNomeLivro") & "'," sql = sql & "'" & Request.Form("FormNomeAutor") & "'," sql = sql & "'" & Request.Form("FormNomeEditora") & "'" sql = sql & ")" 'Executa a expressão SQL no servidor cnnDB.Execute sql 'Verifica o sucesso da operação, baseada ma variável 'err' If err.number = 0 then Response.Write("Operação realizada com sucesso") Else Response.Write("Erro: " + err.description) End if 'Executa a alteração do registro, se solicitada Elseif Request.QueryString("acao") = "editar" then sql = "UPDATE LIVROS SET " sql = sql & "LIVRO = '" & Request.Form("FormNomeLivro") & "', " sql = sql & "AUTOR = '" & Request.Form("FormNomeAutor") & "', " sql = sql & "EDITORA = '" & Request.Form("FormNomeEditora") & "' " sql = sql & "WHERE ID = " & Request.Form("FormCodigoLivro") 'Executa a expressão SQL no servidor cnnDB.Execute sql 'Response.Write "Query = " & sql ' Verifica o sucesso da operação, baseada na variável 'err' If err.number = 0 then Response.Write("Operação realizada com sucesso") Else Response.Write("Erro: " + err.description) End if ' Execute a exclusão do registro, se solicitada Elseif Request.QueryString("acao") = "excluir" then sql = " DELETE FROM LIVROS WHERE ID = " sql = sql & Request.QueryString("buscacodigo") ' Ececuta a expressão SQL no servidor cnnDB.Execute sql 'Verifica o sucesso da operação, baseada na variável 'err' If err.number = 0 then Response.Write("Operação realizada com sucesso") Else Response.Write("Erro: " + err.description) End if End if %> <br /><a href="inserir.asp">Clique aqui para inserir um novo registro.</a> <br /><a href="lista.asp">Clique aqui para visualizar os registros.</a> </body> </html> Obrigado.
  14. AlbertoRT
    Funcionou com o código (abaixo), mas quando abre tem na no código anterior com banco de dados anterior com Access tinha um totalContatos (total da pesquisa) e agora com MySQL faz a pesquisa mas não consigo totalContatos na página pesquisa.asp. <% call abrecon DIM totalContatos strSql = "SELECT " strSql = strSql & " indicativo_ja_registrado, " strSql = strSql & " qra," strSql = strSql & " fez_contato, " strSql = strSql & " data_qso, " strSql = strSql & " hora_qso, " strSql = strSql & " faixa_simplex_MHz, " strSql = strSql & " faixa_MHz_qso_trans_repetidora, " strSql = strSql & " faixa_MHz_qso_trans_outras, " strSql = strSql & " nome_pais " strSql = strSql & " FROM qry_pesquisa " strSql = strSql & " " + " WHERE " + request.Form("modo") + " LIKE " + "'%" + request.Form("valor") + "%' " strSql = strSql & " ORDER BY data_qso DESC " Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open strSql, cn %> Só falta quando gerar a página pesquisa.asp o total de registros que foi filtrado. Nessa página pesquisa.asp tem: <tr> <td class="texto-para-registro-pesquisa" colspan="2">Sua pesquisa encontrou: <b><%=totalContatos%></b> Contatos(s) 73!73!</td> </tr> Anteriormente com Access o código erra: <!--#Include file="dbConexao.asp"--> <% Response.Expires = 0 DIM conexaoDataBase, sqlDados, rsDados, totalContatos, estilo Call abreConexao sqlDados = "SELECT * FROM qry_pesquisa " sqlDados = sqlDados + " WHERE " + request.Form("modo") + " LIKE " + "'%" + request.Form("valor") + "%' " sqlDados = sqlDados + " ORDER BY data_qso DESC" Set rsDados = conexaoDataBase.Execute(sqlDados) totalContatos = rsDados.recordcount estilo = "Pesq" %> Observe o totalContatos tentei no novo código isso: <!--#Include file="bdmysqlConexao.asp"--> <% call abrecon Dim totalContatos strSql = "SELECT " strSql = strSql & " indicativo_ja_registrado, " strSql = strSql & " qra," strSql = strSql & " fez_contato, " strSql = strSql & " data_qso, " strSql = strSql & " hora_qso, " strSql = strSql & " faixa_simplex_MHz, " strSql = strSql & " faixa_MHz_qso_trans_repetidora, " strSql = strSql & " faixa_MHz_qso_trans_outras, " strSql = strSql & " nome_pais " strSql = strSql & " FROM qry_pesquisa " strSql = strSql & " " + " WHERE " + request.Form("modo") + " LIKE " + "'%" + request.Form("valor") + "%' " strSql = strSql & " ORDER BY data_qso DESC " Set rs=Server.CreateObject("ADODB.RecordSet") totalContatos = rs.recordcount rs.Open strSql, cn %> Mas não funciona.
  15. AlbertoRT
    Caro Denis, Só você dando essa atenção já é muito bom. Estou no início de tudo. Peço perdão pela falta de entendimento imediato. Eu tendi para colocar a string de conexão na página pesquisa.asp dessa forma: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% option explicit %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <html lang="pt-br"> <head> <!--#Include file="bdmysqlConexao.asp"--> <% Response.Expires = 0 /*Inclui conforme meu entedimento - Denis*/ strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=localhost; DATABASE=info16br; Uid=root; Pwd=admin" call abrecon strSql = "SELECT * FROM qry_pesquisa " strSql = strSql & + " WHERE " + request.Form("modo") + " LIKE " + "'%" + request.Form("valor") + "%' " strSql = strSql & + " ORDER BY data_qso DESC" Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open strSql, cn totalContatos = rs.recordcount estilo = "Pesq" %> Denis, todas as páginas funcionam com o banco de dados MySQL considerando o <!--#Include file="bdmysqlConexao.asp"--> Que tem esse código: <% Response.CodePage = 65001 Response.CharSet = "utf-8" Session.LCID = 1046 Dim cn, strConexao, lhost Sub abrecon() ' PARA USO LOCAL servidor = "localhost" base_de_dados = "info16br" logindb = "root" senhadb = "admin" ' PARA CONEXAO COM SERVIDOR (FALAR COM CENTRAL SERVER) ' servidor = "robb0150.publiccloud.com.br" ' base_de_dados = "nome_do_banco" ' logindb = "login_do_banco" ' senhadb = "SenhDoBanco" strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & servidor strConexao = strConexao & "; DATABASE=" & base_de_dados strConexao = strConexao & "; Uid=" & logindb strConexao = strConexao & "; Pwd=" & senhadb On error resume next Err.clear() set cn = server.CreateObject("ADODB.Connection") cn.cursorlocation = 3 cn.CommandTimeout = 1800 cn.open strConexao 'SE HOUVER ERRO COM BANCO, EXIBE PÁGINA PERSONALIZADA 'if Err.number <> 0 then ' cn.Close ' Set cn = Nothing ' response.Redirect("aviso.html") 'end if End Sub Sub fechacon() cn.Close Set cn = Nothing End Sub %> Com relação se está faltando algo entre o LIKE e o %? A página pesquisa que trabalha com o banco de dados Access está assim: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% option explicit %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <html lang="pt-br"> <head> <!--#Include file="dbConexao.asp"--> <% Response.Expires = 0 DIM conexaoDataBase, sqlDados, rsDados, totalContatos, estilo Call abreConexao sqlDados = "SELECT * FROM qry_pesquisa " sqlDados = sqlDados + " WHERE " + request.Form("modo") + " LIKE " + "'%" + request.Form("valor") + "%' " sqlDados = sqlDados + " ORDER BY data_qso DESC" Set rsDados = conexaoDataBase.Execute(sqlDados) totalContatos = rsDados.recordcount estilo = "Pesq" %> Observe por favor que o include é outro: <!--#Include file="dbConexao.asp"--> Depois de strSql = strSql & + " WHERE " + request.Form("modo") + " LIKE " + "'%" + request.Form("valor") + "%' " strSql = strSql & + " ORDER BY data_qso DESC" Tem o acima indicado. Não consigo entender como que: Aqui se digitar por exemplo PY1SFF funciona a pesquisa A diferença e grande é que o link ainda trabalha com o banco de dados Access. Não sei sinceramente como você Denis consegue entender as minhas explicações. Meu muito obrigado.
  16. AlbertoRT
    Tenho esse código: <!--#include file="conexaodbdicas.asp"--> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>Untitled Document</title> <% strSql = " SELECT " strSql = strSql & " IFNULL(empId,'Totals') AS Empid, " strSql = strSql & " sums.2005, sums.2006, sums.2007, " strSql = strSql & " sums.2005 + sums.2006 + sums.2007 AS Sums " strSql = strSql & " FROM ( " strSql = strSql & " SELECT EmpID, " strSql = strSql & " SUM(IF(Yr=2005,sales,0)) AS '2005', " strSql = strSql & " SUM(IF(Yr=2006,sales,0)) AS '2006', " strSql = strSql & " SUM(IF(Yr=2007,sales,0)) AS '2007' " strSql = strSql & " FROM Sales " strSql = strSql & " GROUP BY EmpID WITH ROLLUP " strSql = strSql & " ) AS sums " set rs=Server.CreateObject("ADODB.RecordSet") rs.Open strSql, cn %> </head> <body> <table width="50%" border="1" cellpadding="1" cellspacing="0"> <thead> <tr align="center" bgcolor="#999999"> <th>EmpId</th> <th>2005</th> <th>2006</th> <th>2007</th> <th>Sums</th> </tr> <% if not rs.eof then do while not rs.eof %> <tr> <td><%=rs("empId")%></td> <td><%=rs("2005")%></td> <td><%=rs("2006")%></td> <td><%=rs("2007")%></td> <td><%=rs("sums")%></td> </tr> <% rs.MoveNext Loop end if %> </thead> </table> </body> </html> Erro ao abrir a página: "ADODB.Recordset erro '800a0bb9' Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /dicas sql/pivot_soma_por_ano.asp, linha 24 " No MySql funciona com a mesma essa SQL que digitei na página: SELECT IFNULL(EMPid, 'Totals') AS Empid, sums.2005, sums.2006, sums.2007, sums.2005 + sums.2006 + sums.2007 AS Sums FROM ( SELECT EmpID, SUM(IF(Yr=2005,sales,0)) AS '2005', SUM(IF(Yr=2006,sales,0)) AS '2006', SUM(IF(Yr=2007,sales,0)) AS '2007' FROM Sales GROUP BY EmpID WITH ROLLUP ) AS SUMS;
  17. AlbertoRT
    Estou há dias tentado e não consigo. Não gostaria de ficar sem funcionalidade para pesquisar na minha página. Na página logs.asp tem uma Caixa Combo com o "form" menuPesquisa (action="pesquisa.asp) com o código: <select name="modo" class="CaixaCombo"> <option value="indicativo_ja_registrado">Indicativo</option> <option value="qra">QRA</option> <option value="nome_pais">Entidade</option> </select> <input name="valor" type="text" class="CaixaTexto" size="25" maxlength="50" /> <input name="imageField" type="image" class="CaixaTexto" src="images/btn_OkLogo.gif" align="top" width="25" height="20" border="0" /> Na página logs.asp tem a Caixa Combo com parte do código: <div class="div-pesquisa" > <form name="form1" method="post" action="pesquisa.asp"> <tr> <samp class="caption-cor-font">We have already made contact? See: (Pesquisa por:)&nbsp;&nbsp;&nbsp;</samp></tr> <tr> </tr> <tr> <!--#include file="menuPesquisa.asp"--> </td> </tr> </form> </div> Na página pesquisa.asp em esse código: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% option explicit %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <html lang="pt-br"> <head> <!--#Include file="bdmysqlConexao.asp"--> <% Response.Expires = 0 call abrecon strSql = "SELECT * FROM qry_pesquisa " strSql = strSql & + " WHERE " + request.Form("modo") + " LIKE " + "'%" + request.Form("valor") + "%' " strSql = strSql & + " ORDER BY data_qso DESC" Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open strSql, cn totalContatos = rs.recordcount estilo = "Pesq" %> Obs.: a qry_pesquisa funciona perfeitamente no MySQL (testada). Por favor, estou tendo dificuldade para explicar por isso vou colocar o link onde tem a página para fazer a pesquisa (observem na parte superior a direita). Essa ainda funciona com com banco de dados Access. Clique no link abaixo e digite o indicado, por favor: Digite por exemplo PY1SFF Vai abrir uma página com o nome http://www.informacaoteixeira.com.br/pesquisa.asp com todos os registros do PY1SFF. Tentando abrir a mesma página porem trabalhando com o banco de dados MySQL (<!--#Include file="bdmysqlConexao.asp"-->) aparece a seguinte mensagem de erro: "Erro de tempo de execução do Microsoft VBScript erro '800a01f4' Variável não definida: 'servidor' /meu novo site nova versao/bdmysqlConexao.asp, linha 11" O "bdmysqlConexao.asp" tem o seguinte código: <% Response.CodePage = 65001 Response.CharSet = "utf-8" Session.LCID = 1046 Dim cn, strConexao, lhost Sub abrecon() ' PARA USO LOCAL servidor = "localhost" base_de_dados = "info16br" logindb = "root" senhadb = "admin" strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & servidor strConexao = strConexao & "; DATABASE=" & base_de_dados strConexao = strConexao & "; Uid=" & logindb strConexao = strConexao & "; Pwd=" & senhadb On error resume next Err.clear() set cn = server.CreateObject("ADODB.Connection") cn.cursorlocation = 3 cn.CommandTimeout = 1800 cn.open strConexao 'SE HOUVER ERRO COM BANCO, EXIBE PÁGINA PERSONALIZADA 'if Err.number <> 0 then ' cn.Close ' Set cn = Nothing ' response.Redirect("aviso.html") 'end if End Sub Sub fechacon() cn.Close Set cn = Nothing End Sub %> Já tentei de tudo é não sei qual a variável não definida no servidor: Mensagem de Erro: "Variável não definida: 'servidor' /meu novo site nova versao/bdmysqlConexao.asp, linha 11" A linha 11 é essa: servidor = "localhost" do bdmysqlConexao.asp Obrigado
  18. AlbertoRT

    IIS Windows 7

    uma questão postou AlbertoRT ASP

    Olá, Bom Dia, Recentemente mudei meu HD. Fiz backup de tudo, inclusive das minhas pastas em "C:\inetpub\wwwroot\". Instalei IIS, fiz as configurações. Tão logo instalei e configurei o IIS fiz o teste digitando http://localhost e abril a aquela página indicando que foi instalado o IIS (Windows 7 - Profissional 32 Bits). Depois de copiar as minhas páginas em HTML, ASP fiz o teste e constatei que as página HTML, ASP estão funcionando normalmente. Porém agora ao digitar http://localhost abre uma das minhas páginas e não a página do IIS mostrando como antes que estava instalado o IIS. Mesmo estando abrindo as páginas HTML, ASP tem algum problema não é? O certo não seria ao digitar http://localhost abrir a página IIS?
  19. AlbertoRT

    Copiar e colar

    uma questão postou AlbertoRT Photoshop

    Por favor, estou usando adobe photoshop cs5 e não sei o que está ocorrendo. Ao abrir um arquivo PSD, clico na camada que desejo copiar e em seguida clico na ferramenta selecionar. Observo que não fica habilitado para copiar e colar o que eu selecionei. O que estou deixando de observar? Obrigado
  20. AlbertoRT
    Tudo resolvido. Não foi necessário alterar o código. Depois de muita pesquisa; uma informação leva a outra e cheguei a conclusão que era necessário reinstalar o drive do Access (*.mdb, *.accdb). Caso ocorra a mensagem de erro acima, vai até o "Administrador de fonte de dados ODBC" e em "Fonte de dados do Usuário" verifica de existe "MS Access Database". Observe que na mesma direção existem as duas extensões de banco de dados 2003 ou inferior e 2007) se existirem clique no botão "Configuração". Se for necessário a reinstalação vai se aberto uma tela informado da necessidade. Eu baixei do site da Microsoft o aplicativo AccessDatabaseEngine.exe. Ainda não sei se futuramente venha criar um banco de dados Access 2013 se vou ter que criar mais uma conexão ODBC manualmente. Obrigado
  21. AlbertoRT

    Office 2013

    pergunta respondeu ao AlbertoRT de AlbertoRT em Microsoft Office

    Resolvido. Na instalação o Office 2013 mandei o arquivo mdb normalmente.
  22. AlbertoRT
    O nome do arquivo está o mesmo, o banco de dados abre normalmente mas a pagina "asp" não abre e aponta para: Sub AbreConexao Set conexaoDataBase = Server.CreateObject("ADODB.Connection") conexaoDataBase.CursorLocation=3 const cntCaminho = "C:\inetpub\wwwroot\Meu novo site\dados\info16br.accdb" conexaoDataBase.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & cntCaminho end sub sub FechaConexao conexaoDataBase.close set conexaoDataBase = nothing end sub %> conexaoDataBase.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & cntCaminho Como estava com o Access 2007 mudei para 2013 tem que mudar a conexaoDataBase.Open? Da forma como está não abre. Obrigado Obrigado
  23. AlbertoRT
    Tenho na minha máquina Office 2003 e 2007. Comprei o Office 365 Home (2013) minhas dúvidas: Um pessoa do suporte da Microsoft orientou-me para desistalar os Office 2003 e 2007 pois ao instalar o Office 2013 vai entrar em conflito; Com relação a pasta o Outlook "pst" do Office 2007, orientou o mesmo para criar uma outra pasta em outro local "pst" e salvar os arquivo "pst". Depois de instalar o Office 2013 salvar esse arquivo (ele não lembrou o nome do local no Office 2013); Com relação aos arquivos do Excel, Word, Acces do Office 2007 e garantiu que pode deixar no mesmo local e desinstalar o Office 2007 que no Office 2013 todos vão abrir normalmente; Medo maior. Tenho um programa de radioamador criado nos EUA para registrar uma séries de dados de contatos etc. Todos estão com a extesão "mdb" que abrem no Office 2003. Pelo que pude observar vou ter que passar primeiro todos os meus arquivos com "extensão" "mdb" para o Office 2007 (extensão "accdb") e depois que estiver no Office 2013 converter para o "mdb" novamente. Mas será que o Office 2007 convertido para Offices 2003 (mdb)?
  24. AlbertoRT
    Tenho observado que o meu notebook com Windows sete em qualquer página (Mozilla) a tela fica subindo se está mexendo na barra çateral. O que pode ser isso?
  25. AlbertoRT
    Trata-se office 2007, estava tudo normal e hoje derrepente Outlook 2007, ao abrir está indo até até 66% e indica erro. Dando um F9 - Processa depois informa " Atarefa 'carlois.teixeira@terra.com.br - Recebendo' relatou um erro (0x800CCCOF): 'Conexão com o serrvidor interrompida. Se o problema continuar, contate o administrador do servidor ou o provedor de serviços da Internet'." Se eu entra pela página do terra e clicar no ícone abrir email abre normal. No Outlook, já entrei em "Ferramentas", "Configurações da Conta", pedi para "Reparar", Como tem anos que não altrei nada mandei "Avançar". É feito o processamento, passa pela "Estabelecer Conexão de rede", depois passa por "Procurar pelas configurações do servidor carlos.teixeira@terra.com.br" e no ultimo item fica um X - em "Faça logon no servidor e envie um email de teste". Na parte superior dessa tela indica "Não é Possível Fazer Logon no Servidor". O model está trabalhando normal, eu acesso a Internet, como já informei, inclusive os emails pela páginna do terra. Corre que uso o Outlook há muitos anos e não gostaria de parar. Acabei de pedir as minhas filhas para enviar um email. Dei um F9 no Outlook 2007 e continua dando omeus erro. Fui através da página do Terra e recebi o email. O problema está com o Outlook. Correto? Reparei agora que na pasta do Outlook tem dois arquivos muito grandes um com o nome archive.pst com 2.193.825 KB e outro outlook.pst com 995.985 KB. Posso fazer backup dos dois arquivos e quando necessario abri-los? Será esse o problema de não estar abrindo o outlook?
×
×
  • Criar Novo...