Buscar con like

Iniciado por fedefrankk, 2 Junio 2009, 07:34 AM

0 Miembros y 1 Visitante están viendo este tema.

fedefrankk

Hola a todos tengo el siguiente codigo :

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

Angeldj27

#1

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...


"Que vamos a hacer Mañana?..... Lo mismo que hacemos todos los dias Pinky tratar de Conquistar el Mundoooo!!!!!

fedefrankk

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