Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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 conectadoMicrosoft 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.
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
%>
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
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%>
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/
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
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", Connif 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 selectrsQuery.AbsolutePage = Session("PaginaAtual")
cod_saida=rsQuery("cod_saida")
cod_roteiro=rsQuery("cod_roteiro")
cod_pacote=rsQuery("cod_pacote")
%>
adicione o CursorLocation = 3
rsQuery.CursorLocation= 3
Funcionou perfeito Xanburzum.
Muito obrigado a todos.
Até que enfim vou me livrar do access.
/applications/core/interface/imageproxy/imageproxy.php?img=https://fbcdn-sphotos-f-a.akamaihd.net/hphotos-ak-xfp1/t1.0-9/10622710_773229106054221_1248487984127656267_n.jpg&key=e2c66b6b29b04d37d441c0d14cd05169fca3b727757e8ef4a825ba32304c0a8b" alt="10622710_773229106054221_124848798412765" />
>
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))_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
Posta o codigo da conexao.
Esta faltando um end if