Detectar numero o caracter en un textbox

[cRz87]

Buenas tardes, mi pregunta es la siguiente:

Tengo dos textbox llamados codigoArticulo y articulo. La aplicación que estoy desarrollando es para una PDA y lo que me gustaría es que el usuario tuviera la opción de que si con la pistola no le detecta el código de barras del artículo, tuviera la opción de poderlo escribir a mano.

Resumiendo:

Que cuando en el tbcodigoArticulo detecte que hay un codigo, haga una consulta a la base de datos y me escriba el articulo en el otro textbox.
Y si en el tbcodigoArticulo detecta que he escrito una letra, que me haga una consulta a la base de datos con los articulos que empiezan por esa letra.

Espero vuestra ayuda, gracias y saludos!!

[sqyandmy]

No entiendo que es lo que quieres hacer, si lo que quieres hacer es un autorellenado en tbcodigoArticulo es un poco mas complicado que eso; si lo que quieres saber que es lo que ocurrio, para eso esta el evento de textchange

[cRz87]

Digamos que la idea es que la gente que vaya con las pda's detecten el codigo de barras con la pistola, pero en el caso de que fallara, quiero que en el textbox CodArticulo haya la opcion de escribir a mano ese articulo.

Puesto que la gente que haga este trabajo no tiene porque saberse exactamente el articulo, quiero que conforme escriba vayan saliendo los articulos en relacion a la letra escrita.

Espero haberme explicado mejor!

[galletica12]

Utiliza un combobox envez del texbox y creas un filtro de lo que quieras mostrar.

Saludos...

[jhonwilliams]

Considero que es mas complejo implementar esa logica en el objeto tbcodigoArticulo seria mas facil, cuando tienen que buscar lanzar una pantalla auxiliar de filtro y medida que van digitando vaya filtrando y cuando se encuentre el articulo deseado se da aceptar o doble clik (ya tu decides) y retornar el codigo a objeto tbcodigoArticulo

Saludos

[cRz87]

Mmmm....ok partiendo de lo q dices, como se podria implementar esto?
Yo n se si es factible o no, es lo q ma pedido el jefe y es lo q cuenta....ademas al ser para una pda qiere que contra menos formularios haya mejor...
Cosas suyas...

Saludos!

[sqyandmy]

pero quieres que te aparezca como un autorellenado o como cuando buscas algo en google?

[jhonwilliams]

La otra es colocar el tbcodigoArticulo a buscar siempre que se vaya digitando, ocurre que si se hace con la pistola el digito ingresa tan rapido que seria practicamente transparente esa busqueda.

Si se va ingresando de caracter en caracter vaya filtrando la lista de codigos.

Saludos

[cRz87]

mmmm.... las dos ideas que me das estarían bien, pero no se como hacerlas amigo.
He buscado por ahi que está la opcion autocompletar pero no se porque pero en las propiedades del textbox, x lo menos en un proyecto SmartDevice no salen.

[galletica12]

Bueno talvez esto te sirva, es una pregunta siempre del foro.

http://www.forosdelweb.com/f29/buscar-textbox-765551/

o esta:

http://www.onglasses.net/Default.aspx?id=1115

[sqyandmy]

Yo me encontré con un problema similar lo que hice fue hacer un autorellenado manual, esto lo logre guardando la cadena original y con el evento textchange, igual deja busco el codigo y lo pego aquí y te lo explico a ver si te sirve de algo ;)

[sqyandmy]

Esta función recibe como parámetros el textbox, la sentencia sql y las opciones de búsquedas;
lo único que tienes que recordar es que en la sentencia sql tendrás que poner "<FILTRAR>" en donde deseas que se busque el codigo; por ejemplo si tienes un id y un código seria algo así:
"SELECT idproducto,codigo FROM tblproductos WHERE codigo LIKE <FILTRAR> limit 1;" como parámetro sql.
espero que eso es lo que buscas:


Function fAutoCompletadoTextBox(ByRef text As TextBox, ByVal sql As String, Optional ByVal BuscarEn As String = "INICIO") As Integer

Dim tmpIdentificador As Integer = 0

If text.Text.Length > 0 Then

Dim primero As String = "%"
Dim segundo As String = "%"

Const ENMEDIO As String = "ENMEDIO"
Const INICIO As String = "INICIO"
Const IGUAL As String = "IGUAL"

Dim sqlike = ""

Dim autotext As String = ""
Dim indexVal As Integer = 0

If AutoSql <> "" Then

If BuscarEn = IGUAL Then
primero = ""
segundo = ""
ElseIf BuscarEn = INICIO Then
primero = ""
segundo = "%"
End If

sqlike = " '" & primero & cadenaOriginal & segundo & "' "
sql = sql.Replace("<FILTRAR>", sqlike)
gLector = gClaseDatos.fEjecutaQuerySQL(sql)
Try

While gLector.Read()
tmpIdentificador = gLector.GetInt32(0)
autotext = gLector.GetString(1).ToUpper
Exit While
End While

Catch ex As Exception
tmpIdentificador = 0
End Try

gClaseDatos.fCierraConexiones()
End If

If tmpIdentificador > 0 Then

indexVal = autotext.IndexOf(cadenaOriginal, 0, StringComparison.CurrentCultureIgnoreCase)
Try
autotext = autotext.Substring(indexVal + cadenaOriginal.Length)
text.AppendText(autotext)
Catch
End Try

indexVal = cadenaOriginal.Length
text.Select(indexVal, autotext.Length)

If Not text.BackColor = Color.LightBlue Then
text.BackColor = Color.LightBlue
End If
Else
If Not text.BackColor = Color.LightSalmon Then
If txtBuscar.Text.Length > 0 Then
text.BackColor = Color.LightSalmon
End If
End If

End If
Else
If Not text.BackColor = Color.LightBlue Then
text.BackColor = Color.LightBlue
End If
End If

Return tmpIdentificador

End Function