none
error '80020009' RRS feed

  • Pergunta


  • Olá pessoal,


    Estou com um sistema em asp com access. Estou tentando recuperar dados de um usuário, onde a seleção pelo usuário e exibição do mesmo fica na mesma tela: 1 table para selecionar o usuário e a 2 table para exibir os dados do usuário selecionado na table1.

    código

    <%
    Dim Nome, nomeUsuario, senhaUsuario, tipoUsuario
    Nome = usuario
    sql = "SELECT codigo, nome, senha, tipo FROM tb_usuario WHERE nome = '" & "Nome" & "'"
    Set rsUsuarios = Conn.Execute(sql)
    if Nome = "" then
        nomeUsuario = rsUsuarios("nome") & ""      // Linha onde é informado o erro
        senhaUsuario = rsUsuarios("senha") & ""
        tipoUsuario = rsUsuarios("tipo") & ""
    end if
    %>

    A mensagem de erro

    error '80020009'

    /supervisao/listarUsuario.asp, line 177


    Se alguém puder me ajudar eu já agradeço.


    Atc.;

    Flávio Isidorio


    segunda-feira, 14 de abril de 2008 21:09

Respostas

  • Caro Thiago,

     

    Eu consegui resolver o problema. Nada mais era erro meu de programação, onde: eu passei no campo usuario o value sendo carregado com o codigo do usuario e não o nome como eu queria pegar.

    Fiz a mudança e agora está funcionando.

     

     

    Abraços e valeu mesmo pela ajuda

    Flávio Isidorio

     

    terça-feira, 15 de abril de 2008 18:44
  • Flavio, estava analisando o seu problema novamente agora.
    Que bom que você conseguiu resolver.

    Qualquer coisa, poste aí.

    []s.
    terça-feira, 15 de abril de 2008 18:51

Todas as Respostas

  • Uma pergunta, quais os dados que tem te retornado?
    O campo nome está vindo com valor Nulo?

    Bem, tente isso.

    Code Snippet

    <%
    Dim Nome, nomeUsuario, senhaUsuario, tipoUsuario
    Nome = usuario
    sql = "SELECT codigo, nome, senha, tipo FROM tb_usuario WHERE nome = '" & Nome & "'"
    Set rsUsuarios = Conn.Execute(sql)
    if Nome = "" then
        nomeUsuario = rsUsuarios("nome") 
        senhaUsuario = rsUsuarios("senha")
        tipoUsuario = rsUsuarios("tipo")
    end if
    %>

    terça-feira, 15 de abril de 2008 16:55
  •  

    Thiago,

     

    Os dados que preciso no retorno, são: Nome do Usuário, Senha do Usuário e Tipo de Usuário

     

    Fiz a mudança que você tinha solicitado, agora o erro é esse abaixo:

    ADODB.Field error '800a0bcd'

    Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

    /supervisao/listarUsuario.asp, line 177

     

    OBS: Thiago, minha tela possui duas tabelas, onde: Na primeira tabela eu seleciono o nome do usuário que eu quero editar, após isso era para os campos da outra tabela serem preenchidos com os valores.

     

    Atc.;

    Flávio Isidorio

    terça-feira, 15 de abril de 2008 17:27
  • Caro Thiago,

     

    Eu consegui resolver o problema. Nada mais era erro meu de programação, onde: eu passei no campo usuario o value sendo carregado com o codigo do usuario e não o nome como eu queria pegar.

    Fiz a mudança e agora está funcionando.

     

     

    Abraços e valeu mesmo pela ajuda

    Flávio Isidorio

     

    terça-feira, 15 de abril de 2008 18:44
  • Flavio, estava analisando o seu problema novamente agora.
    Que bom que você conseguiu resolver.

    Qualquer coisa, poste aí.

    []s.
    terça-feira, 15 de abril de 2008 18:51