Imprimir Página - Buscar con like

Título: Buscar con like
Publicado por: fedefrankk en 2 Junio 2009, 07:34 am

Hola a todos tengo el siguiente codigo :

Código:

If IsNumeric(Text1) = False Or Val(Text1) < 1 Or Text1 = "" Then
MsgBox "INGRES UN CODIGO"
Text1 = ""
Text1.SetFocus
Else
Call abrir
x = "Select * from plan_de_cuentas where numero_cta like " & Val(Text1) & ""
apertura.Open x, conectar
If apertura.EOF = True And apertura.BOF = True Then
If Text2.Enabled = False Then
Text1 = ""
Text1.SetFocus
Else
End If
Else
Text1 = ""
End If
End If
Call cerrar

la idea es que si pongo 1, que me muestre lod datos asosiados al 1, pero si pongo 12, que me muetre los datos asociados al 12, que pasa, cuando ingreso 1, y despues apreto el 2, me sale el cartel "INGRESE CODIGO" y el objeto esta cerrado, no se como acomodarlo y si esta bien echo el "like"
desde ya muchas gracias
saludos a todos

Título: Re: Buscar con like
Publicado por: Angeldj27 en 2 Junio 2009, 15:06 pm

Código:

 numero_cta like '" & Val(Text1) & "%'"

Creo k asi te debe funcionar y tambien si buscas bien puedes controlar que solo se pueda digitar numeros hay funciones por aki para eso :-\

Talves esto te pueda ayudar
http://foro.elhacker.net/programacion_vb/dao_y_sql-t244092.0.html;msg1174014#msg1174014

Saludos...

Título: Re: Buscar con like
Publicado por: fedefrankk en 2 Junio 2009, 20:06 pm

Buenas, muchas gracias por tu repuesta hora voy a ver que honda si me sirve..
muchas gracias
saludos

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: fedefrankk en 2 Junio 2009, 07:34 am