Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » Aplicaciones/Fragmentos de Código

Busquedas Inteligentes MYSQL And TableView

Responder al tema

 

Fenriz07
Citar
Mensajes: 118
Viernes, 22 Febrero 2013, 20:53
Objetivo: Busquedas Inteligentes MYSQL And TableView
Saludos estoy realizando un proyecto de iventario, en donde trabajo, y bueno van hacer tantos articulos, que me estoy preparando bien, para que todo sea frescooo. asi que e preparado unos codigos que posibilitan mejores resultados en busquedas a la base de dato y se reflejan un tableview. Aqui se los dejo.

Public Sub buscador_Activate()
Dim i As Integer
'Busqueda exacta' COMENTADA LA BUSQUEDAD EXACTA POR SER TAN MALA XD
'If bs.Value = True Then
'rs = cn.Exec("select * from iventario where nombre_m = '" & buscador.Text & "';")
' tiv.Clear
'tiv.Rows.Count = rs.Count
'For i = 0 To (rs.Count - 1)
' tiv[i, 0].Text = rs["codigo"]
' tiv[i, 1].Text = rs["nombre_m"]
' tiv[i, 2].Text = rs["presentacion_m"]
'tiv[i, 3].Text = rs["cantidadm"]
'rs.Movenext
'Next
'Endif
'FIN

'Busquedad por letra o letras'
If bl.Value = True Then
rs = cn.Exec("select * from iventario where nombre_m LIKE '" & buscador.Text & "%" "';")
tiv.Clear
tiv.Rows.Count = rs.Count
For i = 0 To (rs.Count - 1)
tiv[i, 0].Text = rs["codigo"]
tiv[i, 1].Text = rs["nombre_m"]
tiv[i, 2].Text = rs["presentacion_m"]
tiv[i, 3].Text = rs["cantidadm"]
rs.Movenext
Next
Endif
'FIN'

'Busquedad Por cualquier letra'

If bcp.Value = True Then
rs = cn.Exec("select * from iventario where nombre_m LIKE '" "%" & buscador.Text & "%" "';")
tiv.Clear
tiv.Rows.Count = rs.Count
For i = 0 To (rs.Count - 1)
tiv[i, 0].Text = rs["codigo"]
tiv[i, 1].Text = rs["nombre_m"]
tiv[i, 2].Text = rs["presentacion_m"]
tiv[i, 3].Text = rs["cantidadm"]
rs.Movenext
Next
Endif
'FIN'

buscador.Text = ""
End


Aqui les dejo la documentación con la cual me guie

http://dev.mysql.com/doc/refman/5.0/es/pattern-matching.html

Tambien pienso implementar este tipo de busqueda: http://dev.mysql.com/doc/refman/5.0/es/fulltext-search.html pero cuando lo implemente les dejo el codigo jeje

Al parecer el LIKE, se queda atras... la busquedad Full Text es muy buena! http://www.fabio.com.ar/959

última edición por Fenriz07 el Viernes, 22 Febrero 2013, 21:18; editado 4 veces
Perfil MP   MSN
drojas
Citar
Mensajes: 22
Viernes, 24 Febrero 2017, 15:51
Objetivo: Re: Busquedas Inteligentes MYSQL And TableView
Muchas gracias!!!!!

Estaba buscando mucho este ejemplo ya que no estaba pudiendo hacer funcionar mi buscador

Por las dudas no tenes el código completo como ejemplo de funcionamiento de TableView para sacarle el jugo a esta herramienta

Perfil MP  
Responder al tema
 

Página 1 de 1


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.1391s (PHP: -20% SQL: 120%)
Consultas SQL: 23 - Debug off - GZIP Activado