Ir para conteúdo
Fórum Script Brasil
  • 0

Problemas na Migração de Access p/ MySQL


hellxande

Pergunta

Prezados amigos,

Venho novamente solicitar auxilio de vocês, pois estou fazendo a Migração de Acsess p/ MySQL e me deparei com um problema.

Em uma página faço a seleção de um registro através de um Combo (este é carregado com os dados de uma tabela) e ao realizar o envio p/ a outra página esta seleção entra em um Select de forma a me permitir obter outras informações deste registro p/ gravação em outra tabela.

Segue abaixo o código que estava usando com Banco Access e não funciona com o MySQL.

' Campo da 1ª Página
<select name="GaleriaTitulo" id="GaleriaTitulo">
<option value="00">--</option>
<% while not TabGaleria.eof %>
<option value="<%=TabGaleria("GaleriaTitulo")%>"><%=TabGaleria("GaleriaTitulo")%></option>
<%
TabGaleria.movenext
wend
%>
</select>
' Código da 2ª Página
<!--#include file="../Conexao.asp" -->
Session.LCID = 1046
Conexao.CursorLocation = 3

' Variável que recebe o conteúdo vindo da página anterior.
GaleriaTitulo = Request.Form("GaleriaTitulo")

'Select da Tabela com base na informação da Variável.
TabGaleria = Server.CreateObject("adodb.recordset")
sql = "select * from TabGaleria where GaleriaTitulo = '"&GaleriaTitulo&"'"
set GaleriaTitulo = Conexao.execute(sql)

' Variável que receber o Código do Registro da Tabela selecionada p/ poder grava-lo na outra Tabela.
GaleriaID = TabGaleria("GaleriaID") ' O problema esta neste ponto

Ao executar o Post da 1ª página retornar a seguinte mensagem de erro:

ADODB.Fields erro '800a0cc1'

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

Desde já agradeço a ajuda.

Atenciosamente

Hellxande

Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0

Prezado Bareta.

Obrigado pela resposta, porém este campo existe no Banco, segue abaixo a estrutura da tabela em questão.

--------------------------

Tabela: Galeria

--------------------------

Campo: GaleriaID

Tipo: Int(10)

Atributo: UNSIGNED

Nulo: Não

Extra: AutoIncremento

--------------------------

Campo: GaleriaTitulo

Tipo: Text

Nulo: Não

--------------------------

Atenciosamente

Hellxande

Link para o comentário
Compartilhar em outros sites

  • 0

Prezado Bareta e a quem interessar possa

Identifiquei e resolvi o problema.

Por alguma razão fiz a besteira de colocar errado o nome da chamada do Objeto.

Trecho errado

'Select da Tabela com base na informação da Variável.
TabGaleria = Server.CreateObject("adodb.recordset")
sql = "select * from TabGaleria where GaleriaTitulo = '"&GaleriaTitulo&"'"
set GaleriaTitulo = Conexao.execute(sql)
Trecho corrigido
'Select da Tabela com base na informação da Variável.
TabGaleria = Server.CreateObject("adodb.recordset")
sql = "select * from TabGaleria where GaleriaTitulo = '"&GaleriaTitulo&"'"
set TabGaleria = Conexao.execute(sql)

Agora esta funcionando perfeitamente.

De qualquer forma obrigado pela ajuda

Abraços a todos

Hellxande

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...