Jump to content

alrai

Members
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Comum

About alrai

  1. alrai

    Erro 80020009

    Olá, estou criando uma rotina de cadastro simples, apos incluir uma verificação se o usuário existe no banco de dados , começou apresentar um erro error '80020009' na linha " if Cadastrar_CodEmpresa = verificar("Usuario") Then" . o erro apresenta quando o campo "verificar("Usuario")" está sem informações, ele deveria seguir adiante e executar o comando para gravar correto? Gostaria de uma luz, pois sou novo em asp..net e VB a rotina para verificar se existe um usuário Cadastrado: set verificar = conexao.execute ("select Usuario from empresas") while not verificar.eof verificar.movenext if Cadastrar_CodEmpresa = verificar("Usuario") Then response.Redirect("index.asp?pagina=login") if not verificar.eof Then verificar.movenext End if set cadastrar_cadastro = conexao.execute("insert into Empresas (Usuario,Telefone) Values ('" & Cadastrar_CodEmpresa & "' , '" & Cadastrar_Telefone & "')") End if Wend Codigo Completo if request.Form("commentForm") = "sim" then Cadastrar_CodEmpresa = request.Form("CodEmpresa") Cadastrar_Segmento = request.Form("Segmento") Cadastrar_Endereco = request.Form("Endereco") Cadastrar_Bairro = request.Form("Bairro") Cadastrar_Cidade = request.Form("Cidade") Cadastrar_CEP = request.Form("CEP") Cadastrar_Pais = request.Form("Pais") Cadastrar_Contato = request.Form("Contato") Cadastrar_Telefone = request.Form("Telefone") Cadastrar_Email = request.Form("email") set verificar = conexao.execute ("select Usuario from empresas") while not verificar.eof verificar.movenext if Cadastrar_CodEmpresa = verificar("Usuario") Then response.Redirect("index.asp?pagina=login") if not verificar.eof Then verificar.movenext End if set cadastrar_cadastro = conexao.execute("insert into Empresas (Usuario,Telefone) Values ('" & Cadastrar_CodEmpresa & "' , '" & Cadastrar_Telefone & "')") End if Wend
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.