Do Access para MySQL

TeixeiraRamos · Outubro 31, 2016

Vou tentar informar a minha dificuldade.

Todos as minha páginas estavam com banco de dados Access trabalhando com ASP.

Dentre todos as página tenho apenas uma com o nome logs.asp que tem na parte superior uma CaixaCombo para se fazer pesquisa. Com isso a página logs.asp tem dois include;

um  que trabalha com a página e o

 da pesquisa.

Essa é a página logs.asp com banco de dados em Access:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!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"-->

<%
'Chamando a sub de conexão database
Dim conexaoDatabase
'Abrir Conexão
call AbreConexao

'Fechando a conexão
set conexaoDataBase = nothing
%>
</head>

<body>
<div class="div-pesquisa" >

<form name="form1" method="post" action="pesquisa.asp">

<tr>
  <!--#include file="menuPesquisa.asp"-->
</td>
</tr>
</form>

Com esse código e com o banco de dados Access a pesquisa é feita normalmente sem problema.

A página do  tem esse 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" />

Ocorre que ao passar a página log.asp com banco de dados Access para MySQL indiquei o meu novo include para o banco de dados em MySQL que tem o nome:

com o seguinte código:

<%
Response.CodePage = 65001
Response.CharSet = "utf-8"

Session.LCID = 1046
Dim cn, strConexao, lhost, totalContatos, estilo 

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
%>

Todas as páginas com com o include acima funcionam perfeitamente.

O problema é fazer com que a CaixaCombo funcione com MySQL.

A página pesquisa.asp tem 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
DIM strConexao, cn, sqlDados, rsDados, totalContatos, estilo
call abrecon
sqlDados = " SELECT * FROM qry_pesquisa "
sqlDados = sqlDados + " WHERE " + request.Form("modo") + " LIKE " + "'%" + request.Form("valor") + "%'" 
sqlDados = sqlDados + " ORDER BY data_qso DESC"
set rsDados=Server.CreateObject("ADODB.RecordSet")
rs.Open strSql, cn 
totalContatos = strSql.recordcount
estilo = "Pesq"
%>
</head>
<body>
.
.
.
.
.
</body>
</html>
<%
Call Fechacon
%>

Essa página abre perfeitamente bem porém a pesquisa não funciona.

Resumindo, observe, por favor, a página aqui http://www.informacaoteixeira.com.br/logs.asp

que ainda funciona com banco de dados em Access. Se você digitar por exemplo: PY1SFF vai abrir a página pesquisa.asp com todos os registros do PY1SFF.

A mesma página com include 
do banco de dados MySQL a página abre mas a página da pesquisa não abre mostra o erro:

Erro de compilação do Microsoft VBScript erro '800a0411'

Redefinição do nome

/meu novo site nova versao/pesquisa.asp, linha 14
DIM strConexao, cn, sqlDados, rsDados, totalContatos, estilo----^

Tenho que mudar alguma coisa na página pesquisa.asp que deve ser aqui:

<head>
<!--#Include file="bdmysqlConexao.asp"-->

<%
Response.Expires = 0
DIM strConexao, cn, sqlDados, rsDados, totalContatos, estilo
call abrecon
sqlDados = " SELECT * FROM qry_pesquisa "
sqlDados = sqlDados + " WHERE " + request.Form("modo") + " LIKE " + "'%" + request.Form("valor") + "%'" 
sqlDados = sqlDados + " ORDER BY data_qso DESC"
set rsDados=Server.CreateObject("ADODB.RecordSet")
rs.Open strSql, cn 
totalContatos = strSql.recordcount
estilo = "Pesq"
%>

Adianto que a query qry_pesquisa abre normalmente na área de teste do SQLyog. Já tentei muito mas a pesquisa não funciona.

Obrigado, não gostaria de perder essa funcionalidade de uma pesquisa com MySQL.

Entrar

Arquivado

Do Access para MySQL

Recommended Posts

TeixeiraRamos 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante