Jump to content
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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By Darwin Osi
      Estou com o Visual Studio 2013 instalado sob o Windows 10. Quando tento abrir o primeiro projeto do livro supracitado, chamado Music Trivia, o Visual Studio 2013 montra na janela Solution Express a mensagem:
       
      > Solution 'Music Trivia' (0 projects)
          > Music Trivia (Windows 8.1 required)
              > This computer must be upgraded to Windows 8.1 to load this project.
       
      Como resolver isso e carregar esse e os outros projetos do livro? Desde já agradeço qualquer ajuda.
    • By rl28
      Bom dia,
       
      Estou querendo ler todos arquivos que meu sistema gerou na minha máquina no formato .txt e carregar os mesmos em uma gridview, assim deixando apenas uma tela de consulta dos dados salvos nos arquivos txt, porém, meu código não está conseguindo consultar os arquivos, podem me ajudar?
       
      Obs.: Quando utilizo o nome fixo do arquivo, funciona.
       
      Código abaixo:

       
      Public Class formListaTransacao Private Sub formListaTransacao_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim dt As New DataTable dt.Columns.Add("Código") dt.Columns.Add("Descrição") dt.Columns.Add("Ação") Dim Arquivo As New System.IO.StreamReader("C:\Users\rl\Desktop\" & Me.Text & ".txt", System.Text.Encoding.Default) While Arquivo.Peek() <> -1 dt.Rows.Add(Arquivo.ReadLine()) End While DataGridView2.DataSource = dt End Sub  
      Tela do gridview:

       
      Informação que consta no txt e que deve carregar no gridview:
       
      Primeiro arquivo

       
      Segundo arquivo:

    • By luiz-om
      Estou começando a aprender c#, e estou com a seguinte duvida. Tenho as tabelas lote, leitura e consumo. A tabela leitura herda de lote o ID. um lote tem muitas leituras. E uma leitura tem um consumo.
      A real duvida e a seguinte: quando faço a inserção de uma leitura o consumo já é salvo automático, porém quero buscar a última leitura inserida com aquele ID fazer a subtração do número dela pra poder gerar o valor certo na tabela consumo. e não estou conseguindo fazer isso.
      [Table("Lote")] public class Lote { [Key] public int Id { get; set; } [Required] [MinLength(2, ErrorMessage ="O nome deve ter no minimo 2 caracters")] [MaxLength(140, ErrorMessage ="O nome pode ter no maximo 140 caracteres")] public string Proprietario { get; set; } public string CPF { get; set; } //Gera um checkbox public Boolean Socio { get; set; } public string Cavalete { get; set; } public virtual ICollection<Leitura> Leituras { get; set; } } [Table("Leitura")] public class Leitura { [Key] public int Id { get; set; } [ForeignKey("Lote")] public int LoteId { get; set; } public DateTime DataLeitura { get; set; } public int NumeroLeitura { get; set; } public virtual Lote Lote { get; set; } public virtual Consumo Consumo { get; set; } } public class Consumo { [Key, ForeignKey("Leitura")] public int Id { get; set; } public Double Valor { get; set; } public DateTime? DataPagamento { get; set; } public virtual Leitura Leitura { get; set; } } A parte de create da controller é essa
      [HttpPost] [ValidateAntiForgeryToken] public ActionResult Create([Bind(Include = "Id,LoteId,DataLeitura,NumeroLeitura")] Leitura leitura) { if (ModelState.IsValid) { //aki tudo que ja tentei /* * var leitura2 = from l in db.Leitura select l; leitura2 = leitura2.OrderByDescending(l => l.Id); db.Leitura.Where(l => l.LoteId == leitura.LoteId).OrderByDescending(l=> l.NumeroLeitura); // db.Leitura.leitura2.NumeroLeitura = db.Leitura.Where(l => l.LoteId == leitura.LoteId).FirstAsync; // db2.Leitura.Find(leitura2.LoteId).; var sql = db.Leitura.SqlQuery("select ID from Leitura Order by ID DESC;"); */ var consumo = new Consumo(); consumo.Leitura = leitura; //Essa parte que faz a conta apra salvar o consumo consumo.Valor =( leitura.NumeroLeitura) * 0.71; //quero fazer +- isso //consumo.Valor = (leitura.NumeroLeitura< <- ESSE SERIA O VALOR DA LEITURA ANTERIOR> - leitura.NumeroLeitura) * 0.71; db.Leitura.Add(leitura); db.Consumo.Add(consumo); db.SaveChanges(); return RedirectToAction("Index"); } ViewBag.LoteId = new SelectList(db.Lote, "Id", "CPF", leitura.LoteId); return View(leitura); }
    • By Neto Dinizz
      Olá bom dia,

      tenho um projeto MVC, preciso adicionar uma classe WCF e aproveitar as referencias já existente do entity, crei uma pasta e adicionei o serviço, Service.svc e IService.cs, o WCF alterou webconfig do projeto e parou de rodar, voltei o webconfig para o original, antes do de incluir a classe WCF, voltou a funcionar, porém o serviço WCF não funciona. Tenho algo para alterar no webconfig, para os dois rodarem juntos? Segue abaixo o código do webconfig alterado após incluir a classe WCF:

      <!-- //EXCLUÍDO AO ADICIONAR CLASSE WCF -->
      <system.webServer>
      <validation validateIntegratedModeConfiguration=false/>
      <modules>
      <remove name=ApplicationInsightsWebTracking/>
      <add name=ApplicationInsightsWebTracking type=Microsoft.ApplicationInsights.Web.ApplicationInsightsHttpModule, Microsoft.AI.Web preCondition=managedHandler/>
      </modules>
      </system.webServer>
      <!-- //EXCLUÍDO AO ADICIONAR CLASSE WCF -->

      <!-- //INSERIDO AO ADICIONAR CLASSE WCF
      <system.serviceModel>
      <behaviors>
      <serviceBehaviors>
      <behavior name=>
      <serviceMetadata httpGetEnabled=true httpsGetEnabled=true />
      <serviceDebug includeExceptionDetailInFaults=false />
      </behavior>
      </serviceBehaviors>
      </behaviors>
      <serviceHostingEnvironment aspNetCompatibilityEnabled=true
      multipleSiteBindingsEnabled=true />
      </system.serviceModel>
      -->

      Muito obrigado!
×

Important Information

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