• Jueves 14 de Noviembre de 2024, 16:43

Autor Tema:  Ayuda Para Generar Consultas  (Leído 1546 veces)

ricardozl

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Ayuda Para Generar Consultas
« en: Jueves 27 de Mayo de 2004, 02:03 »
0
:scream: Hola que tal mi nombre es Ricardo, quisiera saber si alguien puede ayudarme con el siguiente problema:

tengo un programa que hace consultas utilizando una llave que es NUMERO_PARTE,  la cual se compone de entre 8 y diez caracteres puede variar, segun la base de datos que yo tengo, ahora tengo una consulta facilisima que si se saben el numero de parte ya se con 8 o 10 caracteres, la encuentra y en automatico muestra los datos, ahora mi pregunta es la siguiente como puedo hacer una consulta utilizando un dbgrid o un dblist, en donde al momento de yo meter un numero de parte, no necesariamente completo imaginemos que es asi mi numero 0000ATM3, pero yo solo me se ATM, pero yo quiero que en cuanto haga mi consulta me busque el primero que tenga este valor y lo marque con un puntero en el dbgrid o me lo despliegue en el dblist, pero sin que me actualize el dbgrid, porque yo hice un select pero no me sirve ya que me despliega todos los que contienen dicha combinacion de caracteres, ojala que me puedan ayudar con este problema, muchas gracias. bye.

Brroz

  • Miembro de PLATA
  • *****
  • Mensajes: 1058
    • Ver Perfil
Re: Ayuda Para Generar Consultas
« Respuesta #1 en: Jueves 27 de Mayo de 2004, 10:33 »
0
Hola ricardozl.

No comprendo muy bien cuál es el problema.

Citar
en cuanto haga mi consulta me busque el primero que tenga este valor y lo marque con un puntero en el dbgrid o me lo despliegue en el dblist, pero sin que me actualize el dbgrid

Si muestras el resultado de una selección en un grid, cualquier visualización de un conjunto de registros que hubiese anteriormente será remplazada por otra con los nuevos registros. Lo lógico será entonces utilizar una búsqueda en los registros que tienes.

Te adjunto un pequeño ejemplo por si es lo que necesitas.

Abur.
El mensaje contiene 1 archivo adjunto. Debes ingresar o registrarte para poder verlo y descargarlo.

ricardozl

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: Ayuda Para Generar Consultas
« Respuesta #2 en: Jueves 27 de Mayo de 2004, 20:35 »
0
hola brroz, sabes ya descargue el ejemplo pero no puedo correrlo, me manda un error y se detiene en un recordset, no se porque lo haga, ahora bien mi situacion es la siguiente:

mi programa tiene una busqueda sencilla que es la siguiente:

LLAVE4 = "NUMERO_PARTE=" + "'" + LLAVE5 + "'"
    WLLAVE54 = LLAVE5
    Data1.Recordset.FindFirst LLAVE4
    If "NUMERO_PARTE" <> " " Then
    If Not Data1.Recordset.NoMatch And LLAVE4 <> " " Then
       WNUMERO_PARTE = Data1.Recordset.Fields("NUMERO_PARTE")
       Text1 = Data1.Recordset.Fields("NUMERO_PARTE")

asi yo declaro mi busqueda, me funciona de maravilla desplegandome los datos en textbox y moviendose al registro que busco en un dbgrid, solo para efectos de ubicacion sin renovar los campos, solo se mueve de posicion al campo que me encontro, este funciona solo si me se el numero de parte completo ejemplo 0000atm3 o 0000atm3aa, ya sea de 8 digitos o 10, el problema que tengo es asi, si yo solamente me se por ejemplo "atm" como puedo hacer la busqueda con solo estos caracteres, y que me haga lo mismo que en mi busqueda original, que me despliegue los datos en los textbox y mueva el puntero en el dbgrid del registro que encontre.

Juanolo

  • Miembro MUY activo
  • ***
  • Mensajes: 202
    • Ver Perfil
Re: Ayuda Para Generar Consultas
« Respuesta #3 en: Jueves 27 de Mayo de 2004, 22:49 »
0
¡¡Hay Ricardo!!
  Haz nuevamente el intento con el ejemplo de Brroz, pues de acuerdo a lo que describes no se me ocurre algo que se ajuste más.
  Porqué no te funciona?
  -  Debes tener Visual 6.0 pues usa el control adodc.
  -  Si ya lo tienes, verifica la cadena de conexión pues está dirigida a una carpeta determinada.
La dirección que trae es C:\BORRAR\EjemGrid\bd1.mdb
O lo metes en una carpeta con la misma dirección (descartado!!), o presionas el botón derecho sobre el control adodc y eliminas el path de la cadena dejando sólo bd1.mdb

  Trata nuevamente pues hace exactamente lo que esperas.

Si usas Dao, puedes lograr la misma funcionalidad con una instrucción como:

    Data1.Recordset.FindNext "Campo1 LIKE '*" & Text1.Text & "*'"

   Utilizando el código que adjuntas, el cambio debería ser:

LLAVE4 = "NUMERO_PARTE Like " + "'*" + LLAVE5 + "*'"

Nota que lo importante es cambiar la instrucción '=' por 'Like' ... y los *s.

Salu2.
La luz que sólo se ilumina a sí misma, es oscuridad.

ricardozl

  • Nuevo Miembro
  • *
  • Mensajes: 4
    • Ver Perfil
Re: Ayuda Para Generar Consultas
« Respuesta #4 en: Viernes 28 de Mayo de 2004, 02:54 »
0
GRACIAS JUANOLO INTENTARE COMO ME DICES, YA QUE TENGO INSTALADO VB5, NO HE PODIDO APRENDER BIEN VB6, ESPERO APRENDERLO PRONTO, NUEVAMENTE GRACIAS, BYE.

RICARDO  :scream:

Juanolo

  • Miembro MUY activo
  • ***
  • Mensajes: 202
    • Ver Perfil
Re: Ayuda Para Generar Consultas
« Respuesta #5 en: Viernes 28 de Mayo de 2004, 22:27 »
0
Si no te resulta hazlo saber, pues lo probé y sí funciona.
La luz que sólo se ilumina a sí misma, es oscuridad.