none
VSHOT32.EXE DEJO DE FUNCIONAR RRS feed

  • Pregunta

  • hola compañeros una pregunta por si acaso conocen o pueden estimar una razon porque cuando cambio en visual basic mi aplicacion de un formulario a otro se queda el vshot.32 y deja de funcionar el programa..?? le podria poner el codigo de el proyecto pero bueno creo que con un formulario tendriamos igual lo veo y no se que pueda ser si me ayudan con eso les agradeceria
    Public Class FrmContribuyente
        Dim tblContribuyentes As DataTable
        Private Sub txtId_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtId.KeyPress
            If InStr("0123456789", e.KeyChar) = 0 Then
                e.KeyChar = ""
            Else
                If Len(txtId.Text) >= 13 Then
                    e.KeyChar = ""
                End If
            End If
        End Sub
    
        Private Sub txtDenominacion_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtDenominacion.KeyPress
            e.KeyChar = UCase(e.KeyChar)
        End Sub
    
        Private Sub txtTelefono_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtTelefono.KeyPress
            If InStr("1234567890", e.KeyChar) = 0 Then
                e.KeyChar = ""
            End If
        End Sub
    
        Private Sub FrmContribuyente_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            DgvLIstActividades.Rows.Add()
            Dim tblComprobantes As DataTable = ObtenerCodigoComprobante()
            tblContribuyentes = ObtenerContribuyentes()
            cbTipoComprobante.DataSource = tblComprobantes
            cbTipoComprobante.ValueMember = tblComprobantes.Columns(0).ColumnName
            cbTipoComprobante.DisplayMember = tblComprobantes.Columns(2).ColumnName
            For Each valor As DataRow In tblContribuyentes.Rows
                tscbContribuyentes.Items.Add(valor.Item(1))
            Next
        End Sub
    
        Private Sub btBuscarId_Click(sender As Object, e As EventArgs) Handles btBuscarId.Click
            Dim connBuscar As String
            connBuscar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Application.Info.DirectoryPath & "\DatosContribuyente.accdb"
            Dim sqlBuscar = "SELECT * FROM Contribuyentes WHERE Identificacion LIKE '" & txtId.Text & "%'"
            Dim drBuscar As OleDb.OleDbDataReader
            Dim connexion As OleDb.OleDbConnection = New OleDb.OleDbConnection(connBuscar)
            Dim cmdBuscar As OleDb.OleDbCommand = New OleDb.OleDbCommand(sqlBuscar, connexion)
            Dim strRtAcc As String = ""
            connexion.Open()
            drBuscar = cmdBuscar.ExecuteReader()
            If drBuscar.HasRows Then
                While drBuscar.Read()
                    txtId.Text = drBuscar("Identificacion".ToString)
                    txtDenominacion.Text = drBuscar("NaRazonSocial".ToString)
                    txtTelefono.Text = drBuscar("Telefono").ToString
                    txtClave.Text = drBuscar("ClaveSRI").ToString
                    strRtAcc = drBuscar("RutaAcceso").ToString
                End While
                drBuscar.Close()
                cmdBuscar.Dispose()
                connexion.Close()
                If txtId.Text <> "" Then
                    connBuscar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strRtAcc & "\Codigo.accdb"
                    sqlBuscar = "SELECT * fROM codigosActividad"
    
                    connexion = New OleDb.OleDbConnection(connBuscar)
                    cmdBuscar = New OleDb.OleDbCommand(sqlBuscar, connexion)
                    connexion.Open()
                    drBuscar = cmdBuscar.ExecuteReader()
                    Dim intCont As Integer = 0
                    DgvLIstActividades.Rows.Clear()
                    While drBuscar.Read()
                        DgvLIstActividades.Rows.Add()
                        DgvLIstActividades.Rows(intCont).Cells(0).Value = drBuscar("codigo").ToString
                        DgvLIstActividades.Rows(intCont).Cells(1).Value = drBuscar("Actividad").ToString
                        intCont += 1
                    End While
                
                End If
                connexion.Close()
                drBuscar.Close()
                cmdBuscar.Dispose()
            Else
                MsgBox("No se encontraron Coincidencias")
            End If
        End Sub
    
        Private Sub BuscarDeno_Click(sender As Object, e As EventArgs) Handles BuscarDeno.Click
            Dim connBuscar, strRtAcc As String
            connBuscar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Application.Info.DirectoryPath & "\DatosContribuyente.accdb"
            Dim sqlBuscar = "SELECT * FROM Contribuyentes WHERE NaRazonSocial LIKE '%" & txtDenominacion.Text & "%'"
            Dim drBuscar As OleDb.OleDbDataReader
            Dim connexion As OleDb.OleDbConnection = New OleDb.OleDbConnection(connBuscar)
            Dim cmdBuscar As OleDb.OleDbCommand = New OleDb.OleDbCommand(sqlBuscar, connexion)
    
            connexion.Open()
            drBuscar = cmdBuscar.ExecuteReader()
            While drBuscar.Read()
                txtId.Text = drBuscar("Identificacion".ToString)
                txtDenominacion.Text = drBuscar("NaRazonSocial".ToString)
                txtTelefono.Text = drBuscar("Telefono").ToString
                txtClave.Text = drBuscar("ClaveSRI").ToString
                strRtAcc = drBuscar("RutaAcceso").ToString
            End While
            drBuscar.Close()
            cmdBuscar.Cancel()
            connexion.Close()
            If txtId.Text <> "" Then
                connBuscar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strRtAcc & "\Codigo.accdb"
                sqlBuscar = "SELECT * fROM codigosActividad"
    
                connexion = New OleDb.OleDbConnection(connBuscar)
                cmdBuscar = New OleDb.OleDbCommand(sqlBuscar, connexion)
                connexion.Open()
                drBuscar = cmdBuscar.ExecuteReader()
                Dim intCont As Integer = 0
                DgvLIstActividades.Rows.Clear()
                While drBuscar.Read()
                    DgvLIstActividades.Rows.Add()
                    DgvLIstActividades.Rows(intCont).Cells(0).Value = drBuscar("codigo").ToString
                    DgvLIstActividades.Rows(intCont).Cells(1).Value = drBuscar("Actividad").ToString
                    intCont += 1
                End While
    
            End If
            connexion.Close()
            drBuscar.Close()
            cmdBuscar.Dispose()
        End Sub
    
        Private Sub txtDesde_Enter(sender As Object, e As EventArgs) Handles txtDesde.Enter
            txtDesde.SelectionStart = Len(txtDesde.Text)
        End Sub
    
        Private Sub txtDesde_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtDesde.KeyPress
            numerosFijo(txtDesde, e)
    
        End Sub
    
        Private Sub txtDesde_Leave(sender As Object, e As EventArgs) Handles txtDesde.Leave
            If Len(txtDesde.Text) < 9 Then
                txtDesde.Text = Mid("000000000", 1, 9 - Len(txtDesde.Text)) & txtDesde.Text
            End If
        End Sub
    
        Private Sub txtHasta_Enter(sender As Object, e As EventArgs) Handles txtHasta.Enter
            txtHasta.SelectionStart = Len(txtHasta.Text)
        End Sub
    
        Private Sub txtHasta_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtHasta.KeyPress
            numerosFijo(txtHasta, e)
        End Sub
    
        Private Sub txtHasta_Leave(sender As Object, e As EventArgs) Handles txtHasta.Leave
            If Len(txtHasta.Text) < 9 Then txtHasta.Text = Mid("000000000", 1, 9 - Len(txtHasta.Text)) & txtHasta.Text
        End Sub
    
        Private Sub txtEstablecimiento_Enter(sender As Object, e As EventArgs) Handles txtEstablecimiento.Enter
            txtEstablecimiento.SelectionStart = Len(txtEstablecimiento.Text)
        End Sub
    
        Private Sub txtEstablecimiento_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtEstablecimiento.KeyPress
            numerosFijo(txtEstablecimiento, e)
        End Sub
    
        Private Sub txtEstablecimiento_Leave(sender As Object, e As EventArgs) Handles txtEstablecimiento.Leave
            If Len(txtEstablecimiento.Text) < 3 Then txtEstablecimiento.Text = Mid("000", 1, 3 - Len(txtEstablecimiento.Text))
        End Sub
    
        Private Sub txtPtoEmision_Enter(sender As Object, e As EventArgs) Handles txtPtoEmision.Enter
            txtPtoEmision.SelectionStart = Len(txtPtoEmision.Text)
        End Sub
    
        Private Sub txtPtoEmision_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtPtoEmision.KeyPress
            numerosFijo(txtPtoEmision, e)
        End Sub
    
        Private Sub txtPtoEmision_Leave(sender As Object, e As EventArgs) Handles txtPtoEmision.Leave
            If Len(txtPtoEmision.Text) < 3 Then txtPtoEmision.Text = Mid("000", 1, 3 - Len(txtPtoEmision.Text)) & txtPtoEmision.Text
        End Sub
    
        Private Sub tsbGuardar_Click(sender As Object, e As EventArgs) Handles tsbGuardar.Click
            Dim strValidacion As String
            strValidacion = ""
            If txtId.Text = "" Then strValidacion += "No se ha ingresado el RUC del Contribuyente." & Chr(13)
            If txtDenominacion.Text = "" Then strValidacion += "No se ha registrado el nombre del Contribuyente." & Chr(13)
            If txtClave.Text = "" Then strValidacion += "No se ha registrado la clave." & Chr(13)
            If txtTelefono.Text = "" Then strValidacion += "No se ha ingresado el Telefono." & Chr(13)
            If DgvLIstActividades.Rows(0).Cells(0).Value = "" Then strValidacion += "No se ha ingresado el codigo de la actividad." & Chr(13)
            If DgvLIstActividades.Rows(0).Cells(1).Value = "" Then strValidacion += "no se ha ingresado la actividad Principal." & Chr(13)
            Dim contador As Integer = 0
            For Each fla As DataGridViewRow In DgvLIstActividades.Rows
                If fla.Cells(0).Value = "" Or fla.Cells(1).Value = "" Then
                    contador += 1
                End If
            Next
            If contador > 1 Then strValidacion += "Existen " & contador - 1 & " filas imconpletas." & Chr(13)
            If strValidacion <> "" Then
                MsgBox(strValidacion, MsgBoxStyle.Critical)
            Else
                Dim strId, strDenominacion, strClave, strTelefono, strCodActEco, strDenoActEco, strCadenaConexion As String
    
                strId = txtId.Text
                strDenominacion = txtDenominacion.Text
                strClave = txtClave.Text
                strTelefono = txtTelefono.Text
                strCodActEco = DgvLIstActividades.Rows(0).Cells(0).Value
                strDenoActEco = DgvLIstActividades.Rows(0).Cells(1).Value
                Dim rutaArchivos As String
    
                rutaArchivos = (My.Application.Info.DirectoryPath & "\Contribuyentes\" & strId)
                If Not System.IO.Directory.Exists(rutaArchivos) Then
                    System.IO.Directory.CreateDirectory(rutaArchivos)
                    System.IO.File.Copy(My.Application.Info.DirectoryPath & "\ModeloBD\Codigo.accdb", rutaArchivos & "\Codigo.accdb")
                    System.IO.File.Copy(My.Application.Info.DirectoryPath & "\ModeloBD\RegCompra.accdb", rutaArchivos & "\RegCompra.accdb")
                    System.IO.File.Copy(My.Application.Info.DirectoryPath & "\ModeloBD\Proveedores.accdb", rutaArchivos & "\Proveedores.accdb")
                    System.IO.File.Copy(My.Application.Info.DirectoryPath & "\ModeloBD\Clientes.accdb", rutaArchivos & "\Clientes.accdb")
                    System.IO.File.Copy(My.Application.Info.DirectoryPath & "\ModeloBD\RegVentas.accdb", rutaArchivos & "\RegVentas.accdb")
                    
                    Dim strDirContr As String
                    strDirContr = My.Application.Info.DirectoryPath & "\DatosContribuyente.accdb"
                    Dim sqlComando As String = "INSERT INTO Contribuyentes (Identificacion, NaRazonSocial, ClaveSRI, Telefono, RutaAcceso) VALUES (@strId, @strDenominacion, @strClave, @strTelefono, @RutaAcceso)"
                    strCadenaConexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDirContr & ";"
                    Dim Conexion As OleDb.OleDbConnection = New OleDb.OleDbConnection(strCadenaConexion)
                    Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(sqlComando, Conexion)
                    Try
                        cmd.Connection.Open()
                        cmd.Parameters.Clear()
                        cmd.Parameters.AddWithValue("@strId", strId)
                        cmd.Parameters.AddWithValue("@strDenominacion", strDenominacion)
                        cmd.Parameters.AddWithValue("@strClave", strClave)
                        cmd.Parameters.AddWithValue("@strTelefono", strTelefono)
                        cmd.Parameters.AddWithValue("@RutaAcceso", rutaArchivos)
                        cmd.ExecuteNonQuery()
                        cmd.Connection.Close()
                        Conexion.Dispose()
                        cmd.Dispose()
    
                        strCadenaConexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & rutaArchivos & "\Codigo.accdb"
                        sqlComando = "INSERT INTO codigosActividad (codigo, Actividad) values (@Codigo, @Actividad)"
    
                        Conexion = New OleDb.OleDbConnection(strCadenaConexion)
                        cmd = New OleDb.OleDbCommand(sqlComando, Conexion)
                        cmd.Connection.Open()
                        For Each fila As DataGridViewRow In DgvLIstActividades.Rows
                            If fila.Index <= DgvLIstActividades.Rows.Count - 1 Then
                                cmd.Parameters.Clear()
                                cmd.Parameters.AddWithValue("@Codigo", fila.Cells(0).Value)
                                cmd.Parameters.AddWithValue("@Actividad", fila.Cells(1).Value)
                                cmd.ExecuteNonQuery()
                            End If
                        Next
                        cmd.Connection.Close()
                        cmd.Dispose()
                        Conexion.Dispose()
                        strCadenaConexion = ""
                        sqlComando = ""
                        MsgBox("Contribuyente Guardado Correctamente")
    
    
                    Catch ex As SyntaxErrorException
                        System.IO.Directory.Delete(rutaArchivos, True)
                    End Try
                Else
                    Dim MsgRucRegistrado = MsgBox("Ruc Registrado ya existe en base de Datos" & Chr(13) & "¿Desea Actualizarlo?", MsgBoxStyle.YesNo)
    
                    If MsgRucRegistrado = MsgBoxResult.Yes Then
                        Dim sqlComando As String = "UPDATE Contribuyentes SET Identificacion= @strId, NaRazonSocial= @strDenominacion, ClaveSRI= @strClave, Telefono=@strTelefono, RutaAcceso= @RutaAcceso WHERE Identificacion ='" & txtId.Text & "'"
                        strCadenaConexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Application.Info.DirectoryPath & "\DatosContribuyente.accdb" & ";"
                        Dim Conexion As OleDb.OleDbConnection = New OleDb.OleDbConnection(strCadenaConexion)
                        Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(sqlComando, Conexion)
    
                        cmd.Connection.Open()
                        cmd.Parameters.Clear()
                        cmd.Parameters.AddWithValue("@strId", strId)
                        cmd.Parameters.AddWithValue("@strDenominacion", strDenominacion)
                        cmd.Parameters.AddWithValue("@strClave", strClave)
                        cmd.Parameters.AddWithValue("@strTelefono", strTelefono)
                        cmd.Parameters.AddWithValue("@RutaAcceso", rutaArchivos)
                        cmd.ExecuteNonQuery()
                        cmd.Connection.Close()
                        Conexion.Dispose()
                        cmd.Dispose()
    
                        strCadenaConexion = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & rutaArchivos & "\Codigo.accdb"
                        sqlComando = "DELETE * FROM codigosActividad"
                        Conexion = New OleDb.OleDbConnection(strCadenaConexion)
                        cmd = New OleDb.OleDbCommand(sqlComando, Conexion)
                        cmd.Connection.Open()
                        cmd.ExecuteNonQuery()
                        cmd.Connection.Close()
                        cmd.Dispose()
                        Conexion.Dispose()
    
                        sqlComando = "INSERT INTO codigosActividad (codigo, Actividad) values (@Codigo, @Actividad)"
    
                        Conexion = New OleDb.OleDbConnection(strCadenaConexion)
                        cmd = New OleDb.OleDbCommand(sqlComando, Conexion)
                        cmd.Connection.Open()
                        For Each fila As DataGridViewRow In DgvLIstActividades.Rows
                            If fila.Index <= DgvLIstActividades.Rows.Count - 1 Then
                                cmd.Parameters.Clear()
                                cmd.Parameters.AddWithValue("@Codigo", fila.Cells(0).Value)
                                cmd.Parameters.AddWithValue("@Actividad", fila.Cells(1).Value)
                                cmd.ExecuteNonQuery()
                            End If
                        Next
                        cmd.Connection.Close()
                        cmd.Dispose()
                        Conexion.Dispose()
                        strCadenaConexion = ""
                        sqlComando = ""
    
                        MsgBox("Contribuyente Actualizado Correctamente")
    
                    End If
                End If
            End If
        End Sub
    
        Private Sub tsbNuevo_Click(sender As Object, e As EventArgs) Handles tsbNuevo.Click
            txtId.Text = ""
            txtDenominacion.Text = ""
            txtTelefono.Text = ""
            txtClave.Text = ""
            DgvLIstActividades.Rows.Clear()
            DgvLIstActividades.Rows.Add()
        End Sub
    
        Private Sub tsbEliminar_Click(sender As Object, e As EventArgs) Handles tsbEliminar.Click
            If txtId.Text <> pstrIdActiva Then
                Dim sqlComando As String = "DELETE FROM Contribuyentes WHERE Identificacion= @strId"
                Dim strCadenaConexion As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & My.Application.Info.DirectoryPath & "\DatosContribuyente.accdb;"
                Dim Conexion As OleDb.OleDbConnection = New OleDb.OleDbConnection(strCadenaConexion)
                Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(sqlComando, Conexion)
                Try
                    cmd.Connection.Open()
                    cmd.Parameters.Clear()
                    cmd.Parameters.AddWithValue("@strId", txtId.Text)
                    cmd.ExecuteNonQuery()
                    cmd.Connection.Close()
                    System.IO.Directory.Delete(My.Application.Info.DirectoryPath & "\Contribuyentes\" & txtId.Text, True)
                    MsgBox("Contribuyente Eliminado Correctamente")
                    txtId.Text = ""
                    txtDenominacion.Text = ""
                    txtTelefono.Text = ""
                    txtClave.Text = ""
                    DgvLIstActividades.Rows.Clear()
                    DgvLIstActividades.Rows.Add()
                Catch ex As SyntaxErrorException
                    MsgBox("Error al Eliminar Contribuyente", MsgBoxStyle.Critical)
                End Try
            Else
                MsgBox("si desea eliminar este contribuyente" & Chr(13) & "primero active otro contribuyente")
    
            End If
        End Sub
    
        Private Sub tsbGuardarAut_Click(sender As Object, e As EventArgs) Handles tsbGuardarAut.Click
            Dim strvalidacion As String = ""
            If txtAutorizacion.Text = "00000000000" Then strvalidacion &= "No se ha ingresado Autorizacion." & Chr(13)
            If txtEstablecimiento.Text = "000" Then strvalidacion &= "No se ha ingresado Establecimiento." & Chr(13)
            If txtPtoEmision.Text = "000" Then strvalidacion &= "No se ha Ingresado el Pto de Emision." & Chr(13)
            If txtDesde.Text = "000000000" Then strvalidacion &= "No se ha ingesado el Inicio de Secuencial." & Chr(13)
            If txtHasta.Text = "000000000" Then strvalidacion &= "No se ha ingresado el Fin de Secuencial." & Chr(13)
            If cbTipoComprobante.SelectedIndex = -1 Then strvalidacion &= "No se ha seleccionado el tipo de Comprobante." & Chr(13)
            If txtId.Text = "" Then strvalidacion &= "No se ha Seleccionado el Contribuyente." & Chr(13)
            If strvalidacion = "" Then
                RegistrarAutVentas(txtId.Text, txtAutorizacion.Text, dtpFechaAuto.Value.ToShortDateString, dtpFechaHasta.Value.Date.ToShortDateString, txtDesde.Text, txtHasta.Text, txtEstablecimiento.Text, txtPtoEmision.Text, cbTipoComprobante.SelectedValue)
                MsgBox("Autorizacion registrada")
            End If
        End Sub
    
        Private Sub txtAutorizacion_Enter(sender As Object, e As EventArgs) Handles txtAutorizacion.Enter
            txtAutorizacion.SelectionStart = Len(txtAutorizacion.Text)
        End Sub
    
        Private Sub txtAutorizacion_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtAutorizacion.KeyPress
            numerosFijo(txtAutorizacion, e)
        End Sub
    
        Private Sub txtAutorizacion_Leave(sender As Object, e As EventArgs) Handles txtAutorizacion.Leave
            If Len(txtAutorizacion.Text) < 11 Then txtAutorizacion.Text = Mid("00000000000", 1, 11 - Len(txtAutorizacion.Text)) & txtAutorizacion.Text
        End Sub
    
        Private Sub tscbContribuyentes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tscbContribuyentes.SelectedIndexChanged
            Dim strIdentificacion As String = ""
            Dim strRutaAcc As String = ""
            For Each fila As DataRow In tblContribuyentes.Rows
                If tscbContribuyentes.Text = fila.Item(1) Then
                    strIdentificacion = fila.Item(0)
                    txtId.Text = strIdentificacion
                    txtDenominacion.Text = fila.Item(1)
                    txtClave.Text = fila.Item(2)
                    txtTelefono.Text = fila.Item(3)
                    strRutaAcc = fila.Item(4)
                    txtCorreo.Text = fila.Item(5).ToString
                End If
            Next
            If strIdentificacion <> "" Then
                Dim tblAutorizacion As DataTable = ObtenerAutorizacionVentas(strIdentificacion)
                For Each auto As DataRow In tblAutorizacion.Rows
                    tscbAutorizaciones.Items.Add(auto.Item(2))
                Next
            End If
            Dim cnxCodigo As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strRutaAcc & "\Codigo.accdb")
            Dim cmdCodigo As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT  Codigo, Actividad froM codigosActividad")
            cmdCodigo.Connection = cnxCodigo
            Dim drCodigo As OleDb.OleDbDataReader
            cmdCodigo.Connection.Open()
            drCodigo = cmdCodigo.ExecuteReader
            DgvLIstActividades.Rows.Clear()
            While drCodigo.Read
                DgvLIstActividades.Rows.Add()
                DgvLIstActividades.Rows(DgvLIstActividades.Rows.Count - 1).Cells(0).Value = drCodigo.Item(0)
                DgvLIstActividades.Rows(DgvLIstActividades.Rows.Count - 1).Cells(1).Value = drCodigo.Item(1)
    
            End While
        End Sub
    
        
        Private Sub btAgFila_Click(sender As Object, e As EventArgs) Handles btAgFila.Click
            DgvLIstActividades.Rows.Add()
        End Sub
    End Class

    jueves, 11 de julio de 2019 22:57

Todas las respuestas

  • Hola Rolando Salvatierra,

    ¿De casualidad sabes para que sirven las herramientas de debug?

    ¿Podrías proporcionar el mensaje exacto de ruptura y si en tu consola de VS detecta alguna excepción o en que línea rompe ejecución?

    Si no tienes ninguno quizá quieras validar las características de tu hardware, ya que es un hecho que estas enviando una instrucción no soportada al ejecutable que rompe la ejecución.

    Revisa el visor de eventos de Windows en el apartado de sistema y de aplicación para conocer si logramos tener el stack antes de romper o qué es lo que lo causa.

    Gracias por usar los foros de TechNet.

     

    Erick Rivera

     ____

     

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.

     

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft. 

     

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    viernes, 12 de julio de 2019 16:14
  • Hola gracias por responder.. pues ni idea de que es el debug o como usarlo soy nuevo en esto de programar y nunca habia llegado mas lejos de hacer una aplicacion simple con un formulario ahora es la primera vez que uso multiples formularios con bases de datos interactuando entre todos...
    martes, 16 de julio de 2019 18:46