Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Lyon Carlos Kunz Junior

[Resolvido] Erro na execução do programa compilado em outro computador

Por , em .NET

Recommended Posts

Lyon Carlos Kunz Junior    2

Lyon Carlos Kunz Junior
Postado

Bom dia,

 

Não estou conseguindo corrigir o erro durante a execução de um programa compilado, Segue o erro.

 

Consulte o final desta mensagem para obter detalhes sobre como chamar a
depuração just-in-time (JIT) em vez desta caixa de diálogo.

************** Texto de Exceção ************** 

System.InvalidOperationException: Coleção foi modificada; talvez a operação de enumeração não seja executada.
   em System.ThrowHelper.ThrowInvalidOperationException(ExceptionResource resource)
   em System.Collections.Generic.List`1.Enumerator.MoveNextRare()
   em System.Collections.Generic.List`1.Enumerator.MoveNext()
   em Microsoft.VisualBasic.PowerPacks.ShapeCollection.Dispose(Boolean disposing)
   em Microsoft.VisualBasic.PowerPacks.ShapeContainer.Dispose(Boolean disposing)
   em System.ComponentModel.Component.Dispose()
   em System.Windows.Forms.Control.Dispose(Boolean disposing)
   em System.Windows.Forms.Form.Dispose(Boolean disposing)
   em Portaria.frmRegistroDiario.Dispose(Boolean disposing)
   em System.ComponentModel.Component.Dispose()
   em Portaria.frmRegistroDiario.btnSair_Click(Object sender, EventArgs e)
   em System.Windows.Forms.Control.OnClick(EventArgs e)
   em System.Windows.Forms.Button.OnClick(EventArgs e)
   em System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
   em System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   em System.Windows.Forms.Control.WndProc(Message& m)
   em System.Windows.Forms.ButtonBase.WndProc(Message& m)
   em System.Windows.Forms.Button.WndProc(Message& m)
   em System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   em System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   em System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** Assemblies Carregados **************

Spoiler

mscorlib
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
    Base de Código: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
Controle Portaria
    Versão do Assembly: 1.0.1.11
    Versão do Win32: 1.0.1.11
    Base de Código: file://zegla-s1v-fs01/scv$/Controle%20Portaria.exe
----------------------------------------
Microsoft.VisualBasic
    Versão do Assembly: 10.0.0.0
    Versão do Win32: 12.0.20806.33440 built by: FX45W81RTMREL
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Core
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Windows.Forms
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
mscorlib.resources
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.34209 built by: FX452RTMGDR
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_pt-BR_b77a5c561934e089/mscorlib.resources.dll
----------------------------------------
System.Data
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.36372 built by: FX452RTMLDR
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Data/v4.0_4.0.0.0__b77a5c561934e089/System.Data.dll
----------------------------------------
System.Xml
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------
System.Transactions
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.Transactions/v4.0_4.0.0.0__b77a5c561934e089/System.Transactions.dll
----------------------------------------
System.EnterpriseServices
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.33440 built by: FX45W81RTMREL
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_32/System.EnterpriseServices/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.EnterpriseServices.dll
----------------------------------------
System.Configuration
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Numerics
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.36366 built by: FX452RTMLDR
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Numerics/v4.0_4.0.0.0__b77a5c561934e089/System.Numerics.dll
----------------------------------------
Microsoft.VisualBasic.PowerPacks.Vs
    Versão do Assembly: 10.0.0.0
    Versão do Win32: 10.0.20911.1
    Base de Código: file:///C:/Windows/assembly/GAC_MSIL/Microsoft.VisualBasic.PowerPacks.Vs/10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.PowerPacks.Vs.dll
----------------------------------------
System.Windows.Forms.resources
    Versão do Assembly: 4.0.0.0
    Versão do Win32: 4.0.30319.36213 built by: FX452RTMLDR
    Base de Código: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_pt-BR_b77a5c561934e089/System.Windows.Forms.resources.dll
----------------------------------------

 

************** Depuração JIT **************
Para habilitar a depuração just-in-time (JIT), o arquivo .config deste
aplicativo ou computador (machine.config) deve ter o valor
jitDebugging definido na seção system.windows.forms.
O aplicativo também deve ser compilado com a depuração
habilitada.

Por exemplo: 

<configuration>
    <system.windows.forms jitDebugging="true" />
</configuration>

Quando a depuração JIT está habilitada, qualquer exceção sem tratamento
será enviada ao depurador JIT registrado no computador,
em vez de ser tratada nesta caixa de diálogo.

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

Lyon Carlos Kunz Junior    2

Lyon Carlos Kunz Junior
Postado 
Public Class frmRegistroDiario
    Dim txtLike As String = String.Empty
    Dim CODIGOVIS As Integer
    Dim NOMEVIS As String
    Dim EMPRESAVIS As String
    Dim ProxRegistro As String


    Private Sub frmRegistroDiario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        mskData.Text = Date.Now
        rdbNaEmpresa.Checked = True
        VisitanteNaEmpresa = False
        grpJustificativa.Visible = False

        'DefineToolTip()
        'tooltip1.ShowAlways = True
        'tooltip1.SetToolTip(Me.btnConsulta1, "C O N S U L T A R")
        'tooltip1.SetToolTip(Me.btnConsulta2, "C O N S U L T A R")
        'tooltip1.SetToolTip(Me.btnNovo, "N O V O   VISITANTE")
        'tooltip1.SetToolTip(Me.btnSair, "S A I R")

    End Sub

    Private Sub btnConsulta1_Click(sender As Object, e As EventArgs) Handles btnConsulta1.Click
        lstNomes.Items.Clear()
        If Len(txtNome.Text) > 0 Then
            ComandoSql = "Select * from visitante where nome_visitante like '%" & txtNome.Text & "%' order by nome_visitante "
            preencheListBox(lstNomes, "", "", ComandoSql, "PesqLike", 1)
        End If
    End Sub

Private Sub btnSair_Click(sender As Object, e As EventArgs) Handles btnSair.Click
        lstNaEmpresa.Dispose()
        lstNomes.Dispose()
        VisitanteNaEmpresa = False
        Me.Close()
        Me.Dispose()
    End Sub

Private Sub lstNomes_Click(sender As Object, e As EventArgs) Handles lstNomes.Click
        If Mid(lstNomes.Text, 1, 4) <> "" Then
            CODIGOVIS = Val(Mid(lstNomes.Text, 1, 4))
            NOMEVIS = Trim(Mid(lstNomes.Text, 8, 19))
            EMPRESAVIS = Trim(Mid(lstNomes.Text, 31, 30))

            frmRegistro.codigoVisitante = CODIGOVIS
            frmRegistro.txtNome.Text = NOMEVIS
            frmRegistro.txtEmpresa.Text = EMPRESAVIS
            lstNomes.Refresh()

            frmRegistro.ShowDialog()
        End If
    End Sub


Private Sub btnNovo_Click(sender As Object, e As EventArgs) Handles btnNovo.Click
        Call frmVisitantes.ShowDialog()
 End Sub


Private Sub btnConsulta2_Click(sender As Object, e As EventArgs) Handles btnConsulta2.Click
        atualizaConteudo()
End Sub


Public Sub atualizaConteudo()
        lstNaEmpresa.Items.Clear()
        If rdbNaEmpresa.Checked = True Then
            ComandoSql = "select * from registros where mid(horario_entrada,1,10) = #" & mskData.Text & "# and horario_saida is null  "
        Else
            ComandoSql = "select * from registros where mid(horario_entrada,1,10) = #" & mskData.Text & "#  "
        End If
        preencheListBox(lstNaEmpresa, "", "", ComandoSql, "RegVisitantes", 2)
    End Sub


Private Sub lstNaEmpresa_Click(sender As Object, e As EventArgs) Handles lstNaEmpresa.Click
        VisitanteNaEmpresa = True
        ComandoSql = "select * from registros where registro_id = " & Val(Mid(lstNaEmpresa.SelectedItem, 1, 9)) & " "
        If Trim(Mid(lstNaEmpresa.Text, 1, 9)) <> "" And Trim(Mid(lstNaEmpresa.Text, 1, 1)) <> "_" Then
            preencheTxtBox(ComandoSql, "consRegistro", "", 2)
            frmRegistro.ShowDialog()
        End If
    End Sub


Private Sub btnExcluir2_Click(sender As Object, e As EventArgs) Handles btnExcluir2.Click
        grpJustificativa.Visible = True
    End Sub


Private Sub btnJustExcluir_Click(sender As Object, e As EventArgs) Handles btnJustExcluir.Click
        Dim codigoreg As Integer = 0
        codigoreg = Val(Mid(lstNaEmpresa.Text, 1, 6))
        If codigoreg <> 0 Then
            ComandoSql = "INSERT INTO logregistros SELECT * FROM registros WHERE registros.registro_id = " & codigoreg & ""
            executaSql(ComandoSql)
            ComandoSql = "update logregistros set justificativa = '" & Trim(txtJustificativa.Text) & "' WHERE registro_id = " & codigoreg & ""
            executaSql(ComandoSql)
            ComandoSql = "delete * from registros where registro_id = " & codigoreg & ""
            executaSql(ComandoSql)
            MsgBox("OK, excluído!!", MsgBoxStyle.Information, "Registro Diário")
            txtJustificativa.Text = ""
            grpJustificativa.Visible = False
            Call atualizaConteudo()
        End If
    End Sub


End Class

bom dia,

 

segue o código. O erro acontece quando clico no botão sair.( Private Sub btnSair_Click()) Na intenção de resolver o problema coloquei uns disposes...

Tenho dois listbox . 

Public Class frmRegistroDiario
    Dim txtLike As String = String.Empty
    Dim CODIGOVIS As Integer
    Dim NOMEVIS As String
    Dim EMPRESAVIS As String
    Dim ProxRegistro As String

    Private Sub frmRegistroDiario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        mskData.Text = Date.Now
        rdbNaEmpresa.Checked = True
        VisitanteNaEmpresa = False
        grpJustificativa.Visible = False
        'DefineToolTip()
        'tooltip1.ShowAlways = True
        'tooltip1.SetToolTip(Me.btnConsulta1, "C O N S U L T A R")
        'tooltip1.SetToolTip(Me.btnConsulta2, "C O N S U L T A R")
        'tooltip1.SetToolTip(Me.btnNovo, "N O V O   VISITANTE")
        'tooltip1.SetToolTip(Me.btnSair, "S A I R")
    End Sub
    Private Sub btnConsulta1_Click(sender As Object, e As EventArgs) Handles btnConsulta1.Click
        lstNomes.Items.Clear()
        If Len(txtNome.Text) > 0 Then
            ComandoSql = "Select * from visitante where nome_visitante like '%" & txtNome.Text & "%' order by nome_visitante "
            preencheListBox(lstNomes, "", "", ComandoSql, "PesqLike", 1)
        End If
    End Sub
    Private Sub btnSair_Click(sender As Object, e As EventArgs) Handles btnSair.Click
        lstNaEmpresa.Dispose()
        lstNomes.Dispose()
        VisitanteNaEmpresa = False
        Me.Close()
        Me.Dispose()
    End Sub
    Private Sub lstNomes_Click(sender As Object, e As EventArgs) Handles lstNomes.Click
        If Mid(lstNomes.Text, 1, 4) <> "" Then
            CODIGOVIS = Val(Mid(lstNomes.Text, 1, 4))
            NOMEVIS = Trim(Mid(lstNomes.Text, 8, 19))
            EMPRESAVIS = Trim(Mid(lstNomes.Text, 31, 30))
            frmRegistro.codigoVisitante = CODIGOVIS
            frmRegistro.txtNome.Text = NOMEVIS
            frmRegistro.txtEmpresa.Text = EMPRESAVIS
            lstNomes.Refresh()
            frmRegistro.ShowDialog()
        End If
    End Sub
    Private Sub btnNovo_Click(sender As Object, e As EventArgs) Handles btnNovo.Click
        Call frmVisitantes.ShowDialog()
    End Sub
    Private Sub btnConsulta2_Click(sender As Object, e As EventArgs) Handles btnConsulta2.Click
        atualizaConteudo()
    End Sub
    Public Sub atualizaConteudo()
        lstNaEmpresa.Items.Clear()
        If rdbNaEmpresa.Checked = True Then
            ComandoSql = "select * from registros where mid(horario_entrada,1,10) = #" & mskData.Text & "# and horario_saida is null  "
        Else
            ComandoSql = "select * from registros where mid(horario_entrada,1,10) = #" & mskData.Text & "#  "
        End If
        preencheListBox(lstNaEmpresa, "", "", ComandoSql, "RegVisitantes", 2)

    End Sub
    Private Sub lstNaEmpresa_Click(sender As Object, e As EventArgs) Handles lstNaEmpresa.Click
        VisitanteNaEmpresa = True
        ComandoSql = "select * from registros where registro_id = " & Val(Mid(lstNaEmpresa.SelectedItem, 1, 9)) & " "
        If Trim(Mid(lstNaEmpresa.Text, 1, 9)) <> "" And Trim(Mid(lstNaEmpresa.Text, 1, 1)) <> "_" Then
            preencheTxtBox(ComandoSql, "consRegistro", "", 2)
            frmRegistro.ShowDialog()
        End If
    End Sub
    Private Sub btnExcluir2_Click(sender As Object, e As EventArgs) Handles btnExcluir2.Click
        grpJustificativa.Visible = True
    End Sub
    Private Sub btnJustExcluir_Click(sender As Object, e As EventArgs) Handles btnJustExcluir.Click
        Dim codigoreg As Integer = 0
        codigoreg = Val(Mid(lstNaEmpresa.Text, 1, 6))
        If codigoreg <> 0 Then
            ComandoSql = "INSERT INTO logregistros SELECT * FROM registros WHERE registros.registro_id = " & codigoreg & ""
            executaSql(ComandoSql)
            ComandoSql = "update logregistros set justificativa = '" & Trim(txtJustificativa.Text) & "' WHERE registro_id = " & codigoreg & ""
            executaSql(ComandoSql)
            ComandoSql = "delete * from registros where registro_id = " & codigoreg & ""

            executaSql(ComandoSql)

            MsgBox("OK, excluído!!", MsgBoxStyle.Information, "Registro Diário")
            txtJustificativa.Text = ""
            grpJustificativa.Visible = False
            Call atualizaConteudo()
        End If
    End Sub
End Class

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

Lyon Carlos Kunz Junior    2

Lyon Carlos Kunz Junior
Postado 
Public Class frmRegistroDiario
    Dim txtLike As String = String.Empty
    Dim CODIGOVIS As Integer
    Dim NOMEVIS As String
    Dim EMPRESAVIS As String
    Dim ProxRegistro As String


    Private Sub frmRegistroDiario_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        mskData.Text = Date.Now
        rdbNaEmpresa.Checked = True
        VisitanteNaEmpresa = False
        grpJustificativa.Visible = False

        'DefineToolTip()
        'tooltip1.ShowAlways = True
        'tooltip1.SetToolTip(Me.btnConsulta1, "C O N S U L T A R")
        'tooltip1.SetToolTip(Me.btnConsulta2, "C O N S U L T A R")
        'tooltip1.SetToolTip(Me.btnNovo, "N O V O   VISITANTE")
        'tooltip1.SetToolTip(Me.btnSair, "S A I R")

    End Sub

    Private Sub btnConsulta1_Click(sender As Object, e As EventArgs) Handles btnConsulta1.Click
        lstNomes.Items.Clear()
        If Len(txtNome.Text) > 0 Then
            ComandoSql = "Select * from visitante where nome_visitante like '%" & txtNome.Text & "%' order by nome_visitante "
            preencheListBox(lstNomes, "", "", ComandoSql, "PesqLike", 1)
        End If
    End Sub

Private Sub btnSair_Click(sender As Object, e As EventArgs) Handles btnSair.Click
        lstNaEmpresa.Dispose()
        lstNomes.Dispose()
        VisitanteNaEmpresa = False
        Me.Close()
        Me.Dispose()
    End Sub

Private Sub lstNomes_Click(sender As Object, e As EventArgs) Handles lstNomes.Click
        If Mid(lstNomes.Text, 1, 4) <> "" Then
            CODIGOVIS = Val(Mid(lstNomes.Text, 1, 4))
            NOMEVIS = Trim(Mid(lstNomes.Text, 8, 19))
            EMPRESAVIS = Trim(Mid(lstNomes.Text, 31, 30))

            frmRegistro.codigoVisitante = CODIGOVIS
            frmRegistro.txtNome.Text = NOMEVIS
            frmRegistro.txtEmpresa.Text = EMPRESAVIS
            lstNomes.Refresh()

            frmRegistro.ShowDialog()
        End If
    End Sub


Private Sub btnNovo_Click(sender As Object, e As EventArgs) Handles btnNovo.Click
        Call frmVisitantes.ShowDialog()
 End Sub


Private Sub btnConsulta2_Click(sender As Object, e As EventArgs) Handles btnConsulta2.Click
        atualizaConteudo()
End Sub


Public Sub atualizaConteudo()
        lstNaEmpresa.Items.Clear()
        If rdbNaEmpresa.Checked = True Then
            ComandoSql = "select * from registros where mid(horario_entrada,1,10) = #" & mskData.Text & "# and horario_saida is null  "
        Else
            ComandoSql = "select * from registros where mid(horario_entrada,1,10) = #" & mskData.Text & "#  "
        End If
        preencheListBox(lstNaEmpresa, "", "", ComandoSql, "RegVisitantes", 2)
    End Sub


Private Sub lstNaEmpresa_Click(sender As Object, e As EventArgs) Handles lstNaEmpresa.Click
        VisitanteNaEmpresa = True
        ComandoSql = "select * from registros where registro_id = " & Val(Mid(lstNaEmpresa.SelectedItem, 1, 9)) & " "
        If Trim(Mid(lstNaEmpresa.Text, 1, 9)) <> "" And Trim(Mid(lstNaEmpresa.Text, 1, 1)) <> "_" Then
            preencheTxtBox(ComandoSql, "consRegistro", "", 2)
            frmRegistro.ShowDialog()
        End If
    End Sub


Private Sub btnExcluir2_Click(sender As Object, e As EventArgs) Handles btnExcluir2.Click
        grpJustificativa.Visible = True
    End Sub


Private Sub btnJustExcluir_Click(sender As Object, e As EventArgs) Handles btnJustExcluir.Click
        Dim codigoreg As Integer = 0
        codigoreg = Val(Mid(lstNaEmpresa.Text, 1, 6))
        If codigoreg <> 0 Then
            ComandoSql = "INSERT INTO logregistros SELECT * FROM registros WHERE registros.registro_id = " & codigoreg & ""
            executaSql(ComandoSql)
            ComandoSql = "update logregistros set justificativa = '" & Trim(txtJustificativa.Text) & "' WHERE registro_id = " & codigoreg & ""
            executaSql(ComandoSql)
            ComandoSql = "delete * from registros where registro_id = " & codigoreg & ""
            executaSql(ComandoSql)
            MsgBox("OK, excluído!!", MsgBoxStyle.Information, "Registro Diário")
            txtJustificativa.Text = ""
            grpJustificativa.Visible = False
            Call atualizaConteudo()
        End If
    End Sub


End Class

olá  itlpps,

 

Ajustei o código para visualização.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos .NET

  • Conteúdo Similar

    • mr22robot
      Clausula IN no LINQ
      Por mr22robot
      Ola caros amigos. 
      Estou com uma dúvida aqui que embora nao tenho achado ainda uma resposta, acredito que haja.
      Estou estudando a tão sonhada linguagem de programação asp.net core mvc. Linguagem essa que demorei 5 anos pra iniciar os estudos rsrs.
      Mas estou agarrado em uma situação. 
      Estou usando como base de dados nos meus estudos um banco Oracle. Que já tem algumas informações nele. Utilizei o SCAFFOLD para criar as classes e o contexto baseado no banco e tabelas existentes. 
      Porem agora na fase das consultas, estou perdido em como utilizar o IN que eu utilizo no oracle; no LINQ.
      Ex: 
      SELECT CODPROD,DESCRICAO FROM PRODUTO WHERE CODPROD IN(1,2,3,4,5,6) Como eu utilizo esse filtro com uma restrição de códigos de produtos? no caso o where codprod in(1,2,3,4,5,6) ?.
      Desde já obrigado pela ajuda.
    • Rafael Massula
      Conversão de código .Net para Javascript
      Por Rafael Massula
      Boa noite pessoal, 
      Tenho o seguinte código em .Net que faz a comparação de uma senha que foi criptografada e salva no banco com a senha comum que o usuário conhece. O algoritmo que desenvolvi foi esse da image.png porem preciso converter essa verificação para JavaScript pela seguinte necessidade, será uma aplicação em electron e ela poderá funcionar offline então não terei como mandar a verificação para o servidor. Existe alguma possibilidade? Desde já agradeço. 

    • marceloDiegues
      Custo e Tecnologia.
      Por marceloDiegues
      Olá, amigos.
      Por favor,  me ajude com a seguintes perguntas.
       
      Qual a complexidade de um projeto desse?
      Qual o preçp de um projeto desse tipo?
       
      Quero contratar algum profissional para criar um site que tenha as seguintes funcionabilidades:
       
      1- Cadastro de usuário;
      2- Login e senha;
      3- O site seria muito parecido com o www.qconcursos.com, o usuário resolveria questões online.
      Contudo, haveria a possibilidade de criar salas tipo aqueles bate-papo da &nbsp;UOL.
      Então, o usuário criaria salas de estudos, em que , resolveria questões e conseguiria se comunicar por chat com usuários que estejam na mesma sala.
       
      Exemplo em anexo:
       
       
       
       

    • iveusername
      Umuly - Lógica de URL de suporte ao vivo
      Por iveusername
      Preciso de ajuda com o serviço de url de suporte ao vivo. Quando recebo um url de Umuly.com no Postman, outras pessoas não devem ter permissão para bater papo usando esse url. Supondo que 10.000 pessoas tenham um bate-papo ao vivo, o serviço deve criar 10.000 novos urls. Qual é a razão por trás disso? Como o serviço gera novos urls para cada um? (Em linguagem .NET Core)
    • Caio Henrique Bottigelli
      Conflito de informações quando sistema é aberto por vários usuários
      Por Caio Henrique Bottigelli
      Olá, estou desenvolvendo um sistema em asp.net Framework MVC, usando o banco de dados Postgresql. Quando 2 usuários diferentes usam o sistema acontece conflito de informações, por exemplo, no cadastro de clientes, preciso vincular uma pessoa a um determinado cliente, caso 2 usuários estiverem usando, e os 2 fizerem essa ação de vincular pessoas a um cliente, no 2º usuário vai aparecer a pessoa que o 1º usuário vinculou. É como se o sistema estivesse usando uma única Lista e os 2 usuários estivessem compartilhando essa lista.
      As variáveis de conexão não estão estáticas, toda vez que alguém entrar no sistema, vai ser criado uma nova instancia de conexão.
      Alguém sabe como resolver esse conflito de informação entre usuários?
×

Informação importante

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

  Aceito