Buscar mientras escribo en un text

[fedefrankk]

Hola, estoy haciendo una Agende de telefonos y lo que quiero es escribir la primer letra y que salganm todos los nombres que empiezan con esa letra, escribo la segunda letra y que salgan todos los nombres que salgan con esas letras.. lo hice y funciona, los datos me lo muestra en un flexGrid, el tema es que no me borra los datos anteriores buscascados, como se puede hacer? aca les dejo el codigo y una foto de lo buscado..

En la foto primero busque on F y despues con M




Aca le dejo el codigo:

Código PHP:

  X = "Select * from contactos where nombre_apellido like '%" & Text2.Text & "%'"
apertura.Open X, conectar
i = 1
Do While Not apertura.EOF
  MSFlexGrid1.Sort = flexSortStringNoCaseAscending
  MSFlexGrid1.TextMatrix(i, 0) = apertura!nombre_apellido
  MSFlexGrid1.TextMatrix(i, 1) = apertura!domicilio
  MSFlexGrid1.TextMatrix(i, 2) = apertura!tel_personal
  On Error Resume Next
  MSFlexGrid1.TextMatrix(i, 3) = apertura!tel_comercial
  MSFlexGrid1.TextMatrix(i, 4) = apertura!email
  MSFlexGrid1.TextMatrix(i, 5) = apertura!cel
  MSFlexGrid1.TextMatrix(i, 6) = apertura!comentarios


  i = i + 1
   apertura.MoveNext
    Loop
    apertura.Close
    Call cerrar  
   

[Avellaneda]

Iniciado por fedefrankk

Hola, estoy haciendo una Agende de telefonos y lo que quiero es escribir la primer letra y que salganm todos los nombres que empiezan con esa letra, escribo la segunda letra y que salgan todos los nombres que salgan con esas letras.. lo hice y funciona, los datos me lo muestra en un flexGrid, el tema es que no me borra los datos anteriores buscascados, como se puede hacer? aca les dejo el codigo y una foto de lo buscado..

Hola, supongo que ése código está dentro del evento Change del TextBox.

Algunos comentarios:
El comodín de porcentaje (%) antes y después de la cadena a buscar, dá como resultado todas las palabras que contengan en cualquier parte lo escrito en el TextBox. Para que salgan los nombres que empiecen por esa letra, sólo se pone al final.

Cada vez que ejecutas la consulta tienes que asignar al Grid el número de filas igual al número de registros que devuelve el recordset.

La propiedad Sort del Grid la tienes que sacar del bucle (es mas, yo la pondría donde formateas el Grid).

Utilizar la instrucción "On Error Resume Next" es una mala práctica y puede dar resultados erroneos. Supongo que la pusiste ahí para que no dé error si algún campo es null. Eso lo puedes solventar concatenando el valor del campo con doble comilla.

En fin, yo dejaría el código así:

Código:

x = "Select * from contactos where nombre_apellido like '" & Text2.Text & "%'"
apertura.Open x, Conectar
MSFlexGrid1.Rows = apertura.RecordCount + 1
MSFlexGrid1.Sort = flexSortStringNoCaseAscending
i = 1
Do While Not apertura.EOF
    With MSFlexGrid1
        .TextMatrix(i, 0) = apertura!nombre_apellido
        .TextMatrix(i, 1) = apertura!domicilio
        .TextMatrix(i, 2) = apertura!tel_personal
        ' On Error Resume Next
        .TextMatrix(i, 3) = apertura!tel_comercial & ""
        .TextMatrix(i, 4) = apertura!email & ""
        .TextMatrix(i, 5) = apertura!cel & ""
        .TextMatrix(i, 6) = apertura!comentarios & ""
    End With
    i = i + 1
    apertura.MoveNext
Loop

Un saludo

[fedefrankk]

Hola Avellaneda, gracias por contestar, mira pego el codigo y me sale el error " el subindice esta fuera del intervalo", he estado tratando de verdonde esta el problema pero con mi escasa informacion no lo encuentro, te dejo todo el codigo..

en un boton tengo el siguiente codigo :

Código PHP:

  Call abrir
de = "Select count(*) as ultimo from contactos"
apertura.Open de, conectar
ultimo = apertura!ultimo + 1
apertura.Close
    MSFlexGrid1.FixedCols = 0
    MSFlexGrid1.Cols = 8
    MSFlexGrid1.FixedRows = 0
    MSFlexGrid1.Rows = ultimo
    MSFlexGrid1.ColWidth(0) = 1801
    MSFlexGrid1.ColWidth(1) = 1301
    MSFlexGrid1.ColWidth(2) = 1301
    MSFlexGrid1.ColWidth(3) = 1101
    MSFlexGrid1.ColWidth(4) = 1312
    MSFlexGrid1.Font = 8
    MSFlexGrid1.TextMatrix(0, 0) = "NOMBRE y APELLIDO"
    MSFlexGrid1.TextMatrix(0, 1) = "TEL PERSONAL"
    On Error Resume Next
    MSFlexGrid1.TextMatrix(0, 2) = "TEL COMERCIAL "
    MSFlexGrid1.TextMatrix(0, 3) = "CELULAR"
    MSFlexGrid1.TextMatrix(0, 4) = "E-MAIL"
    MSFlexGrid1.TextMatrix(0, 5) = ""
    MSFlexGrid1.TextMatrix(0, 6) = ""
    MSFlexGrid1.TextMatrix(0, 7) = ""
    Call cerrar  
   

que por ahora lo tengo en un boton.,.. mas adelante lo pondre donde corresponda... y en un "Private Sub Text2_Change()" tengo el codigo que diste..

Código PHP:

  x = "Select * from contactos where nombre_apellido like '" & Text2.Text & "%'"
apertura.Open x, Conectar
MSFlexGrid1.Rows = apertura.RecordCount + 1
MSFlexGrid1.Sort = flexSortStringNoCaseAscending
i = 1
Do While Not apertura.EOF
    With MSFlexGrid1
        .TextMatrix(i, 0) = apertura!nombre_apellido
        .TextMatrix(i, 1) = apertura!domicilio
        .TextMatrix(i, 2) = apertura!tel_personal
         On Error Resume Next
        .TextMatrix(i, 3) = apertura!tel_comercial & ""
        .TextMatrix(i, 4) = apertura!email & ""
        .TextMatrix(i, 5) = apertura!cel & ""
        .TextMatrix(i, 6) = apertura!comentarios & ""
    End With
    i = i + 1
    apertura.MoveNext
Loop  
   

y me sale ese error.. no se por donde seguir viendoY por ultimo ya avusando de tu confianza para que sirve esta sentencia? MSFlexGrid1.Sort = flexSortStringNoCaseAscendingSaludos Y muchisimas Gracias

[aldo1982]

buenas, no te interesa ahcerlo con un lsitView ? queda mejor y funca de 10 !!!

decime y te doy una mano :)

[ValentinoMolinari]

Hola como estas??, te sugiero una forma muy sencilla de resolver tu problema pero debo advertirte que te funcionará solo de acuerdo como tienes configurado tu visual:
debes declarar una variable tipo Recorset a la cual llamaremos Rs
luego debes hacer lo siguiente

private sub BuscoContactos()
Set Rs = New AdoDB.Recorset

CadenaSql = "Select * From Contactos Where '%" & me.txtbuscar & "%'
Rs.Open CadenaSql,"Aqui le Pasas la coneccion con la base de datos"


Antes que nada debes Utilizar el DataGrid o el MSHFlexGrid (si no lo tienes lo pùedes agregar en Componentes)

luego lo único que te queda es hacer lo siguente


Set Me.DataGrid1.DataSource = Rs

End Sub
y en el Evento Change del txt que vas a usar para buscar escribes el nombre del sub

Private sub TxtBuscar_Change
BuscoContactos
End Sub



si te da error Busca en las Referencias Microsoft Axtive X DataObjects 2.1 o 2.6 Agregala y funciona Seguro, Cualquier Duda me lo preguntas y te lo detallo mejor
Saludos

[Avellaneda]

Iniciado por fedefrankk

Hola Avellaneda, gracias por contestar, mira pego el codigo y me sale el error " el subindice esta fuera del intervalo", he estado tratando de verdonde esta el problema pero con mi escasa informacion no lo encuentro, te dejo todo el codigo..

en un boton tengo el siguiente codigo :


que por ahora lo tengo en un boton.,.. mas adelante lo pondre donde corresponda... y en un "Private Sub Text2_Change()" tengo el codigo que diste..

y me sale ese error.. no se por donde seguir viendoY por ultimo ya avusando de tu confianza para que sirve esta sentencia? MSFlexGrid1.Sort = flexSortStringNoCaseAscendingSaludos Y muchisimas Gracias

Hola, creo que el problema es que tu recordset no tiene el cursor de lado cliente y por lo tanto la propiedad RecordCount devuelve -1

Una vez declarado el recordset (a continuación de de la instrucción Set apertura =... ) pon esta instrucción:

apertura.CursorLocation = adUseClient

La propiedad Sort sirve para ordenar el Grid, que en este caso podrías eliminarla y en la consulta hacer un ORDER BY [campo]. Por cierto, elimina la instrucción On Error.. (en el ejemplo la puse comentada para que vieras que no es necesaria).

[fedefrankk]

Hola, lamentablemente me pierdo un poco al programar y se poco estoy empezando y hay cosas que no las tengo en clara..

Avellaneda, pego el codigo apertura.CursorLocation = adUseClient ,

y me sale un error que dice que "La operacion no esta permitida si el objeto esta abierto".. nose donde pegarla

no se por doinde seguir.. :(

Saludos a todos
fede

[Avellaneda]

Iniciado por fedefrankk

Hola, lamentablemente me pierdo un poco al programar y se poco estoy empezando y hay cosas que no las tengo en clara..

Avellaneda, pego el codigo apertura.CursorLocation = adUseClient ,

y me sale un error que dice que "La operacion no esta permitida si el objeto esta abierto".. nose donde pegarla

no se por doinde seguir.. :(

Saludos a todos
fede

Una vez declarado el recordset (a continuación de de la instrucción Set apertura =... ) pon esta instrucción

Es decir, antes de abrir el recordset!

Saludos

[fedefrankk]

Hola, muchas gracias por la ayuda, enserios que muchas gracias..!!!

Los efectos que hace mi programa no son los buscado por mi... ... pero bueno seguiremos insistiendo como siempre,,,

Cualquier cosa vuelvo a preguntar.

PD: si alguien conoce algun programita me dice donde bajarlo... gracias

Saludos a todos

Federico