Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Marcelo Pescador

Migrando de Access para MySql

Recommended Posts

Pessoal,

 

Estou tentando migrar meu sistema de Access para MySql.

Já gerei o Banco MySql e fiz a conexão com o banco.

 

Só que quando ele vai ler o login do usuário ele da a seguinte msg:

 

 

 

banco conectado

Microsoft VBScript runtime error '800a01a8'

Object required

/controle_mysql/login.asp, line 6

 

Esse é o código do login.asp

<!--#include file="conexao.asp"-->

<%

strsql = "select * from usuario where login = '" & Request("login") & "' and senha = '" & Request("senha") & "'"
set rs = Conn.execute(strsql)
If Not Rs.EOF Then
Session("cod_usuario") 	= rs("codigo")
Session("login") 		= rs("login")
Session("senha") 		= rs("senha")
Response.Redirect "saidas_confirmadas.asp"

%>

A linha 6 é essa: "set rs = Conn.execute(strsql)"

 

Alguém pode me ajudar.

Compartilhar este post


Link para o post
Compartilhar em outros sites

conexao.asp

<%
'Criamos o objeto de conexão
Set conn = Server.CreateObject("ADODB.Connection")

'Abrimos uma conexão com o banco de dados - [IMPORTANTE] altere os dados abaixo com as informações de sua base de dados
conn.Open("DRIVER={MySQL ODBC 5.1 Driver};SERVER=SERVIDOR;PORT=3306;DATABASE=NOME;USER=NOME;PASSWORD=SENHA;")

response.write "banco conectado"

'Fechamos a conexão com o banco de dados
conn.Close()

'Destruímos o objeto
Set conn = Nothing
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Vc esta dando um include na conexão mas esta fechando ela dentro do proprio arquivo.

 

Tem que ser um include de abertura e outro de fechamento

 

Pegue tudo o que esta dessa linha para baixo e jogue isso em outro arquivo, exemplo

conexao-out.asp

 

Fechamos a conexao....

 

Depois na sua pagina, depois da ultima linha vc da um include conexao-out.asp

Compartilhar este post


Link para o post
Compartilhar em outros sites

Não entendi, vc disse para "pegar tudo o que esta dessa linha para baixo e jogue isso em outro arquivo, exemplo

conexao-out.asp".

Que linha?

 

O arquivo login.asp que tem o <!--#include file="conexao.asp"-->

No final tem o <%end if%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

geralmente este erro é porque você já tentou fechar ou definir nothing um objeto que ainda não foi definido. Para reproduzir, tente este código. Verifique seu include de conexão.

 

Você também pode usar o MS Access to MySQL ou a migração com o MySQL Migration Toolkit.

Download Migration Toolkit: http://download.cnet...4-10284565.html

Compartilhar este post


Link para o post
Compartilhar em outros sites

Estamos evoluindo.

Já entrou, mas pareceu a seguinte msg:

 

 

 

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

 

Essa é a linha 124:

rsQuery.AbsolutePage = Session("PaginaAtual")

Esse é o código onde se encontra essa linha.

<% 
'--- Define o numero de registros por pagina ---

Const TamanhoPagina = 10 
set rsQuery = Server.CreateObject( "ADODB.RecordSet" ) 

rsQuery.PageSize   = TamanhoPagina 
rsQuery.CacheSize  = TamanhoPagina 
rsQuery.CursorType = 3 

'rsQuery.Open "select * from roteiros where status='A' order by aluno" , Conn
rsQuery.Open "select * from saidas where status_saida='C' order by cod_saida desc", Conn 

if Session("PaginaAtual") = "" then Session("PaginaAtual") = 1 
select case Request.QueryString( "modo" ) 
       case "proxima" 
            Session("PaginaAtual") = min( Session("PaginaAtual") + 1, rsQuery.PageCount ) 
       case "anterior" 
            Session("PaginaAtual") = max( Session("PaginaAtual") - 1, 1 ) 
       case "pagina" 
            if isNumeric( request.QueryString("numero") ) then 
               Session("PaginaAtual") = cint( request.QueryString("numero") ) 
               Session("PaginaAtual") = max( min( Session("PaginaAtual"), rsQuery.PageCount ), 1 ) 
            end if 
end select 

rsQuery.AbsolutePage = Session("PaginaAtual")

cod_saida=rsQuery("cod_saida")
cod_roteiro=rsQuery("cod_roteiro")
cod_pacote=rsQuery("cod_pacote")

%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

adicione o CursorLocation = 3

 

rsQuery.CursorLocation= 3

Compartilhar este post


Link para o post
Compartilhar em outros sites

10622710_773229106054221_124848798412765

Compartilhar este post


Link para o post
Compartilhar em outros sites

geralmente este erro é porque você já tentou fechar ou definir nothing um objeto que ainda não foi definido. Para reproduzir, tente este código. Verifique seu include de conexão.

 

Você também pode usar o MS Access to MySQL ou a migração com o MySQL Migration Toolkit.

Download Migration Toolkit: http://download.cnet...4-10284565.html

Xanburzum estou aproveitando o final de ano e o recesso da minha empresa apra tentar migrar do access para o mysql, tenho algumas duvidas so preciso mudar o arquivo de conexão?eu uso uma pagina chamada conn.asp como seguinte codigo:

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim ConnectString, conn
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/cyder/dados/CYDER.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
%>
e outra duvida os comandos de select que tenho nas outras paginas preciso mudar algo?

nova informaçao: fiz a conversando usando o tutorial da localweb:

http://wiki.locaweb.com.br/pt-br/Converter_.mdb(Access)_em_.sql_(MySQL))

e com isso criei o arquivo banco.sql abri ele com o bloco de notas é todo embolado acredito que seja por nao ser com um programa proprio para visualização.

usando a ajuda do meu servidor de hospedagem consegui o seguinte codigo alterando para minhas informações:

 

'Conexao banco MySQL
'Conectar ao banco de dados(MySQL)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open = "Driver=MySQL ODBC 5.1 Driver; DATABASE=base; SERVER=mysql.rafaeldupalio.net; UID=base; PASSWORD=xxx;"
mais duvidas que database é esse? e que uid e password e esse tbm

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.