Migrando de Access para MySql

[Marcelo Pescador 0]

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.

[Ronaldo Bueno 23]

Posta o codigo da conexao.

 

Esta faltando um end if

[Marcelo Pescador 0]

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

[Ronaldo Bueno 23]

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

[Marcelo Pescador 0]

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

[Ronaldo Bueno 23]

No arquivo conexao tem ....

 

`fechamos a conexao....

Sugiro que leia com atençao

 

http://forum.wmonline.com.br/topic/116061-criar-um-arquivo-de-conexao/

[xanburzum 169]

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

[Marcelo Pescador 0]

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")

%>

[xanburzum 169]

adicione o CursorLocation = 3

 

rsQuery.CursorLocation= 3

[Marcelo Pescador 0]

Funcionou perfeito Xanburzum.

Muito obrigado a todos.

 

Até que enfim vou me livrar do access.

[xanburzum 169]

[rafaeldupalio 5]

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