Validacion

[robertocarrillo]

Hola, es la primera vez que escribo en el post de C#, sepan disculpar. Hace un mes comencé a tratar de entender este lenguaje y ya me topé con este problema.

Form_cons_ValidarSecuestro.vb

Código:

Public Class form_cons_ValidarActaSecuestro
    Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
        Dim DatoSecuestro As New class_datos_datos
        DatoSecuestro.secuestro = txtSecuestro.Text
        If ValidarActaSecuestro(DatoSecuestro) Then
            MessageBox.Show("YA ESTA ADENTRO", "VALIDA", MessageBoxButtons.OK, MessageBoxIcon.Error)
            limpiar()
            txtSecuestro().Focus()
        Else
            MessageBox.Show("OK, VA LA NUEVA", "VALIDA", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Me.Hide()
            form_ing_OrdenIngreso.Show()
        End If
    End Sub
    Public Sub limpiar()
        txtSecuestro.Clear()
    End Sub

    Private Sub form_cons_ValidarActaSecuestro_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
End Class

class_datos_datos.vb

Código:

Public Class class_datos_datos
    Private _secuestro As String
    Public Property secuestro() As String
        Get
            Return _secuestro
        End Get
        Set(ByVal value As String)
            _secuestro = value
        End Set
    End Property
 End Class

modo_cons_secuestro.vb

Código:

Imports MySql.Data
Imports MySql.Data.Types
Imports MySql.Data.MySqlClient
Module modo_cons_secuestro
    'VARIABLES PRIVADAS
    Private _adaptador As New MySqlDataAdapter
    'VARIABLES PUBLICAS
    Public _dttsecuestro As New DataTable
    Public Function ValidarActaSecuestro(ByVal datos As class_datos_datos) As Boolean
        Dim estado As Boolean
        Try
            conex_Global()
            _adaptador.SelectCommand = New MySqlCommand("select * from datos where secuestro=@secuestro limit 1", _conexion)
            _adaptador.SelectCommand.Parameters.Add("@secuestro", MySqlDbType.VarChar, 20).Value = datos.secuestro
            _conexion.Open()
            _adaptador.SelectCommand.Connection = _conexion
            _adaptador.SelectCommand.ExecuteNonQuery()
            _adaptador.Fill(_dttsecuestro)
            If _dttsecuestro.Rows.Count > 0 Then
                estado = True
            Else
                estado = False
            End If
        Catch ex As MySqlException
            MessageBox.Show(ex.Message, " secuestro")
            estado = False
        Finally
            cerrar()
        End Try
        Return estado
    End Function
End Module

En la base tengo el registro secuestro=1. Si realizo la primer consulta con el nro 2 me dá el form nuevo.... PERFECTO.
Si realizo la primer consulta con el nro 1 me dá el aviso que existe, pero al realizar la segunda consulta con el no 2 me vuelve a decir que existe... debo reabrir todo el programa para poder hacer nuevamente la consulta con el nro 2 y que me abra el form de ingreso. Alguien sabe por que se me traba si mi primer consulta es de un nro existente?. Muchas gracias