estoy desarrollando una aplicacion con VB.Net para un dispositivo con Windows CE 4.2 y tengo el problema en la busqueda de un registro en archivo que tiene datos pero nunca me trae el que busco de acuerdo al parametro sino que siempre me dice que no se encuentra el codigo usado es este.
Private Sub TxtCodigo_Validated(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtCodigo.Validated
Dim cn As SqlCeConnection
Dim ds As New DataSet
Dim adp As SqlCeDataAdapter = Nothing
Try
adp = New SqlCeDataAdapter
cn = New SqlCeConnection(CLA.sConn)
cn.Open()
Dim cmd As SqlCeCommand = cn.CreateCommand
cmd.CommandText = "SELECT * FROM TBLINV where CLAVE = " & Me.TxtCodigo.Text
adp.SelectCommand = cmd
adp.Fill(ds)
Catch ex As Exception
'MessageBox.Show(ex.Message, "Sistema de Inventario")
Finally
cn.Close()
End Try
'
Dim cRow As Integer = ds.Tables.Count()
If cRow = 0 Then
MessageBox.Show("Codigo de Inventario NO Existe", "Sistema de Inventario")
Me.TxtCodigo.Text = ""
TxtCodigo.Focus()
Else
Me.TxtClave.Text = ds.Tables(0).Rows(0)(0) 'Codigo de Inventario
Me.TxtUndMil.Text = ds.Tables(0).Rows(0)(1) 'Unidad Militar
Me.TxtDepto.Text = ds.Tables(0).Rows(0)(2) 'Dependnecia
Me.txtArticulo.Text = ds.Tables(0).Rows(0)(3) 'Equipo
Me.TxtMarca.Text = ds.Tables(0).Rows(0)(4) 'Marca
Me.TxtModelo.Text = ds.Tables(0).Rows(0)(5) 'Modelo
Me.TxtSerie.Text = ds.Tables(0).Rows(0)(6) ' Serie
End If
End Sub
Si me pueden ayudar a resolver este problema Agradesco mucho
