RE:como hacer busquedas por nombre con codigo puro
Hola....
dim base as database
dim tabla as recordset
dim largo,encontrados as integer
set base=dbengine.workspaces(0).opendatabase("ruta base datos")
set tabla=base.openrecordset("nombre tabla",dbopentable)
largo=len(text1) 'cuadro de texto donde colocas parte del nombre
tabla.movefirst
do until tabla.eof()
if left(tabla!nombre,largo)=text1 then
list1.additem tabla!nombre
encontrados=encontrados + 1
endif
tabla.movenext
loop
if encontrados>0 then
label1.caption="Se han encontrado" & encontrados & "registros en la Tabla"
else
label1.caption="No hubieron coincidencias"
endif
bueno el codigo no esta probado porque lo digite ahora...aso que no tube tiempo de probar, pero no deberia caer..jejejejejejje
Chauuuuu....