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