Ir para conteúdo
alrai

Erro 80020009

Recommended Posts

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

  • Conteúdo Similar

    • Por Maicon Santos
      Foi me passada a tarefa de fazer um sistema onde o usuário (funcionário 1) (Funcionário da empresa X) irá fazer um cadastro com suas informações, após esse cadastro essas informações serão avaliadas por outro funcionário (funcionário 2) da empresa X que fica responsável apenas por verificar as informações desse usuário e dar permissões a ele. Até então é um sistema simples de cadastro.
      Após o funcionário 1 fazer o cadastro o funcionário 2 avaliará essas informações para ver se esse usuário pode ter acesso a conta bancária da empresa. (Pera! Como assim?) Exatamente isso, o usuário vai se cadastrar e se ele for apto a acessar a conta bancária da empresa o sistema terá que fazer o login na conta bancária da empresa, ou seja o sistema deve apenas verificar os dados do funcionário 1, se ele for apto abrir a conta da empresa o sistema terá que passar os dados pelo internet banking do Santander.
       
      Um outro exemplo que talvez facilite entender:
      Os funcionários 1, 2 e 3 trabalham juntos gerenciando as finanças da empresa, então todos eles precisam acessar a conta bancaria da empresa, mas o gerente para não ter que passar o login e senha para eles quer que o sistema faça esse login, sem que os funcionários saibam esses devidos dados, então os funcionários farão um cadastro no sistema e após fazer o login no mesmo eles automaticamente fazem o login na conta do Santander da empresa
       
      Basicamente isso, minhas dúvidas até o momento:
      Isso é realmente possível? Fazer o login no internet banking, que tem a função de ser muito seguro, através de um outro sistema
      Eu tenho a disponibilidade para escolher entre fazer um sistema desktop (usando C#, que eu tenho mais domínio) ou fazer um sistema WEB (que eu não possuo tanto domínio assim das linguagens), para fazer esse tipo de trabalho, o que seria mais indicado?
      Quais dicas vocês podem me dar para essa tarefa? Eu trabalho na área de desenvolvimento a pouco tempo, por isso não tenho muito conhecimento de sistemas desse nível, qualquer direção será de grande ajuda.
      Grato!
    • Por amenum
      Pessoal, tudo bem? Fiquei parado da programação um bom tempo, e agora que retornei, queria dar manutenção nas minhas aplicações web que estão em vb.net webforms. Comprei um template de bootstrap (https://seantheme.com/color-admin-v4.2/admin/html/index_v2.html) e queria controlar os elementos via code behind in vb.net, mas estou sofrendo aqui por conta do meu limitado conhecimento.
       
      Alguém poderia me dar uma luz em base neste link:
      https://seantheme.com/color-admin-v4.2/admin/html/ui_modal_notification.html
       
      Ao clicar na maioria dos botões dessa página, abre um modal ou alert. Pois bem, eu gostaria de simular essa abertura a partir de uma lógica no code behind, por exemplo, em um formulário, caso alguma regra não esteja sendo cumprida. Simples assim.
       
      No código original, temos:
      Chamada:
      <a href="#modal-dialog" class="btn btn-sm btn-success" data-toggle="modal">Demo</a>
       
      Div do modal
      <div class="modal fade" id="modal-dialog" runat="server">
                                      <div class="modal-dialog">
                                          <div class="modal-content">
                                              <div class="modal-header">
                                                  <h4 class="modal-title">Modal Dialog</h4>
                                                  <button type="button" class="close" data-dismiss="modal" aria-hidden="true">×</button>
                                              </div>
                                              <div class="modal-body">
                                                  <p>
                                                      Modal body content here...
                                                  </p>
                                              </div>
                                              <div class="modal-footer">
                                                  <a href="javascript:;" class="btn btn-white" data-dismiss="modal">Close</a>
                                                  <a href="javascript:;" class="btn btn-success">Action</a>
                                              </div>
                                          </div>
                                      </div>
                                  </div>
       
      o que eu preciso?
      No code behind
       
       Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            try
                if verificaCampos() = false then ABRE O MODAL DIV COM A MENSAGEM DE ERRO          
           Catch ex As Exception
                     Throw ex
            end try
          End Sub
       
      Alguém pode me ajudar?
       
      muito obrigado.
       
    • Por ZecaLoteiro
      Bom dia senhores.
      Estou com um problema. Estou abrindo uma planilha, editando, salvando-a, e exportando um PDF.
      Na última etapa, no comando
      ExportAsFixedFormat  está dando um erro:
      System.ArgumentException: 'O valor não recai no intervalo esperado.'  
      Segue o código:
      Private Sub GeraExcel() Dim template As xL.Workbook = New xL.Application().Workbooks.Open(ModeloPath) Dim sh As xL.Worksheet = template.Sheets("PDF") sh.Cells(1, 1).value = "PDF" If IO.File.Exists(Destino) Then Try IO.File.Delete(Destino) Catch ex As Exception End Try End If template.SaveAs(Destino) sh.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, "C:\Temp\pdf.pdf") template.Close(False) Process.Start("EXCEL.EXE", Destino) RaiseEvent ThreadCompleted() End Sub Este erro é muito genérico, não sei nem por onde começar a tentar analisar...
      Alguém já passou por isso? 
       
      Obrigado.
    • Por BrendonPawn
      Boa tarde, gostaria de saber se é possível filtrar os arquivos selecionados em uma OpenFileDialog não só pela extensão, mas também pelo nome deles.
       
      Como mostra a imagem abaixo, os arquivos são filtrados baseados na extensão... 
      openFileDialog.Filter = "*.txt|"
       
      Eu queria filtrar os arquivos por exemplo:
      openFileDialog.Filter = "txitens.txt|txoutro.txt|txteste.txt"; Onde somente esses 3 arquivos seriam exibidos na dialog (caso existam).
       
      Grato desde já!
      Brendon
       
       
    • Por rtavix
      Pessoal, estou com o seguinte problema, tenho uma pagina web, nela possuo um campo de pesquisa, eu preciso buscar um determinado comprovante, porém o mesmo está relacionando ao numero de um processo, o numero de processo deverá ser usado para fazer essa consulta, e retornar com as informações do banco de dados, possuo os seguinte campos na minha tabela: codProcInter, Interessado, Código de Barras, Data do pagamento e o Valor do comprovante. Como poderia inicar essa lógica para mostrar as informações em uma label?
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.