Autor Tema: Busqueda Exacta??? (Leído 4728 veces)

neorent · « **en:** Jueves 6 de Abril de 2006, 19:51 »

Hola a todos:
ojala me puedan ayuar, trabajo con access97 y vb6.0 y quiero hacer lo siguiente, en una tabla tengo un campo cargosistema y resulta que quiero contar todos los registro de este campo solo buscando la palabra sistema, ej Administrativo,+1pc,sistema bueno solo quiero que me diga si este registro tiene sistema si no pase al otro registro, otro ejemplo seria asi "algo,sistema,algo" eso si todos estos estan separados por coma osea puede aparacer asi tambien en la base ",sistema,otro" no se si entiende la idea solo buscar esta palabra en cualquier parte del registro y si esta lo cuente si no esta no lo cuente solo quiero saber como puedo hacer la busqueda lo demas lo hago yo si pueden ayudarme seria genial adios y muchas gracias.

cpmario · « **Respuesta #1 en:** Jueves 6 de Abril de 2006, 21:24 »

Te escribí una subrutina que supongo te ayudará en lo que deseas. No la probé, ya que no una base de datos en que basarme, pero espero que funcione cuando la adecues a tu programa.

Código: Text

 
'strPalabraBuscada = &#34;sistema&#34; o cualquier palabra que desees buscar
Sub test(strPalabraBuscada As String)
    Dim DBPrincipal As Database
    Dim rstID As Recordset
    Dim strSQL As String
    
    Set DBPrincipal = DBEngine.OpenDatabase(&#34;MiDataBase.mdb&#34;)
    strSQL = &#34;SELECT * FROM MiTabla&#34;
    Set rstID = DBPrincipal.OpenRecordset(strSQL, dbOpenDynaset)
    rstID.MoveFirst
    While Not rstID.EOF
        'el signo (*) es un comodín, la palabra puede estar en cualquier _
        parte del texto del campo a buscar
        rstID.FindFirst &#34;Micampo='*&#34; & strPalabraBuscada & &#34;*'&#34;
        If Not rstID.NoMatch Then
            MsgBox &#34;No encontré &#34; & strPalabraBuscada
        Else
            MsgBox &#34;Encontré &#34; & strPalabraBuscada
        End If
        rstID.MoveNext
    Wend
    rstID.Close
    DBPrincipal.Close
End Sub
 

neorent

Cita de: "cpmario"

Te escribí una subrutina que supongo te ayudará en lo que deseas. No la probé, ya que no una base de datos en que basarme, pero espero que funcione cuando la adecues a tu programa.

Código: Text

'strPalabraBuscada = "sistema" o cualquier palabra que desees buscar
Sub test(strPalabraBuscada As String)
   Dim DBPrincipal As Database
   Dim rstID As Recordset
   Dim strSQL As String

   Set DBPrincipal = DBEngine.OpenDatabase("MiDataBase.mdb")
   strSQL = "SELECT * FROM MiTabla"
   Set rstID = DBPrincipal.OpenRecordset(strSQL, dbOpenDynaset)
   rstID.MoveFirst
   While Not rstID.EOF
   'el signo (*) es un comodín, la palabra puede estar en cualquier _
   parte del texto del campo a buscar
   rstID.FindFirst "Micampo='*" & strPalabraBuscada & "*'"
   If Not rstID.NoMatch Then
   MsgBox "No encontré " & strPalabraBuscada
   Else
   MsgBox "Encontré " & strPalabraBuscada
   End If
   rstID.MoveNext
   Wend
   rstID.Close
   DBPrincipal.Close
End Sub

bueno muchas gracias por tu ayuda sabes trate de adaptar el code a lo que yo queria, pero no me resulta cuando empiezo el conteo en la base por ejemplo tengo 200 registros y me cuenta que ya paso como 3000 veces osea no me funciona lo que yo hice quizas algo esta mal te puedo dejar el code para que lo veas y me puedas indicar cual puede ser mi error, te lo agradeceria muchisimo ya que haci podria entregar la aplicacion que me estan pidiendo y esto es lo unico que me retrasa un poco bueno es mi primera vez que realizo una busqueda con sql jejeje bueno te dejo el code y espero me cuentes ok adios y gracias

Dim prueba As Database
Dim tabla As Recordset
Dim strSQL As String
Dim strpalabrabuscada As String
Dim cuentasistema As Integer

strpalabrabuscada = "SISTEMA"
Set prueba = DBEngine.OpenDatabase("\\obiwan\soporte\inventario06.mdb")
strSQL = "SELECT * FROM maestra"
Set tabla = prueba.OpenRecordset(strSQL, dbOpenDynaset)
tabla.MoveFirst
While Not tabla.EOF
tabla.FindFirst "perfilusuario='*" & strpalabrabuscada & "*'"
If Not tabla.NoMatch Then
MsgBox "No encontré " & strpalabrabuscada
Else
MsgBox "Encontré " & strpalabrabuscada
cuentasistema = cuentasistema + 1
Label31.Caption = cuentasistema
End If
tabla.MoveNext
Wend
tabla.Close
prueba.Close

Juanolo

Hola Neorent!

Creo que tu código puede mejorar con un par de cosillas:

En primer lugar, creo que el error del código está en:

Código: Text

If Not tabla.NoMatch Then
MsgBox &#34;No encontré &#34; & strpalabrabuscada
Else
 

Pues, si encuentra la palabra te dirá que no la encontró. Me explico. Si no encuentra la palabra, tabla.nomatch es Verdadero. U sea, Si tabla.nomatch, entonces "No encontré la palabra" (El Not está de más)

Pero yendo al código (Puede que me equivoque en algo, no tengo Visual cerca; pero si algo falla sin duda te dará las pistas para corregirlo:

Código: Text

Dim prueba As Database
Dim tabla As Recordset
Dim strSQL As String
Dim strpalabrabuscada As String
 
strpalabrabuscada = &#34;SISTEMA&#34;
Set prueba = DBEngine.OpenDatabase(&#34;&#092;&#092;obiwan&#092;soporte&#092;inventario06.mdb&#34;)
strSQL = &#34;SELECT * FROM maestra WHERE perfilusuario='*&#34; & strpalabrabuscada & &#34;*'&#34;
Set tabla = prueba.OpenRecordset(strSQL, dbOpenDynaset)
 
With Tabla
  If .EOF and .BOF   'Si está al comienzo y al final del Recordset al mismo tiempo.
     MsgBox &#34;La Palabra no existe&#34;
     Goto SAlida
  Else
     .MoveLast
     .MoveFirst   'Voy al primer y al último registros
     msgbox &#34;La palabra se encuentra &#34; & .Recordcount & &#34; veces&#34;
  endif
  .close
end With
Salida:
prueba.close
 

neorent · « **Respuesta #4 en:** Lunes 10 de Abril de 2006, 15:17 »

hola juanolo bueno gracias por la ayuda pero igual me da errores, osea no que me de un error de ejecucion o algo asi solo que cuando sigo contando igual me sobre pasa lo que deberia tener no se si me entiendes igual dejo la inquietante para ver quien me echa la manito y se agradece mucho el aporte adios

Juanolo · « **Respuesta #5 en:** Lunes 10 de Abril de 2006, 16:36 »

Hola Neorent!
Mira, estuve perfeccionando un poco el código que te entregué anteriormente (lo vi con cuidado y me dio vergüenza). Prueba este:

Código: Text

Private Sub TestNeorent()
    Dim pRueba As Database
    Dim taBla As Recordset
    Dim strSQL As String
    Dim strPalabrabuscada As String
    
    strPalabrabuscada = &#34;SISTEMA&#34;
    Set pRueba = DBEngine.OpenDatabase(&#34;&#092;&#092;obiwan&#092;soporte&#092;inventario06.mdb&#34;)
    strSQL = &#34;SELECT * FROM maestra WHERE perfilUsuario like '*&#34; & strPalabrabuscada & &#34;*'&#34;
    Set taBla = pRueba.OpenRecordset(strSQL, dbOpenDynaset)
    
    With taBla
     If .EOF And .BOF Then   'Si está al comienzo y al final del Recordset al mismo tiempo.
        MsgBox &#34;La Palabra nos e encuentra&#34;
        GoTo Salida
     Else
        .MoveLast
        .MoveFirst   'Voy al primer y al último registros con el objetivo de contar los registros.
                              'Por algún motivo, si no lo hago, DAO no los cuenta bien.
        MsgBox &#34;La palabra se encuentra &#34; & .RecordCount & &#34; veces&#34;
        'La siguiente rutina recorre el recordset generado mostrando cada uno de los registros que contienen
        'la palabra buscada.
        Do While Not .EOF
            MsgBox &#34;Encontre: &#34; & !PerfilUsuario
            .MoveNext
        Loop
        
     End If
Salida:
     taBla.Close
    End With
    pRueba.Close
End Sub
 

Respecto al error que se te produce..., bueno, debí verlo antes, pero ahora he notado lo siguiente:

La comparación (para lo que querías) debía ser 'like' y no '='.
Como buscabas el primer registro que cumpliera la condición, al ir al principio del loop, siempre llegarías al mismo registro. Luego: Era imposible que llegara al final de la tabla; condición para que saliera del loop.
Como yo había modificado tu código original, 'heredé' algunos de esos errores en mi propuesta.
En fin, quien se explica se complica. El error está reparado y el código anterior debería funcionarte sin problemas.

Chau!.. Y suerte!

cpmario · « **Respuesta #6 en:** Lunes 10 de Abril de 2006, 16:52 »

Es dificíl proponer una rutina sin tener la base de datos original para hacer pruebas, esta otra rutina debiera funcionar:

Código: Text

 
Private Sub Contar()
    Dim prueba As Database
    Dim tabla As Recordset
    Dim strSQL As String
    Dim strpalabrabuscada As String
    Dim cuentasistema As Integer
 
    strpalabrabuscada = &#34;SISTEMA&#34;
    Set prueba = DBEngine.OpenDatabase(&#34;&#092;&#092;obiwan&#092;soporte&#092;inventario06.mdb&#34;)
    strSQL = &#34;SELECT * FROM maestra where perfilusuario= '*&#34; & strpalabrabuscada & &#34;*'&#34;
    Set tabla = prueba.OpenRecordset(strSQL, dbOpenDynaset)
    
    tabla.MoveLast
    cuentasistema = tabla.RecordCount
    Label31.Caption = cuentasistema
    tabla.Close
    prueba.Close
End Sub
 

neorent · « **Respuesta #7 en:** Lunes 10 de Abril de 2006, 18:55 »

hey!!! muchisimas gracias a los dos bueno leyendo un poco el codigo que han posteado he podido entender como funciona una instruccion sql

ais que se los agradesco, respecto a los code los dos son lo que necesitaba solo que no sabia como se debia preguntar y aplicar gracias por su ayuda y su tiempo adios.

SoloCodigo

Autor Tema: Busqueda Exacta??? (Leído 4728 veces)

neorent

Busqueda Exacta???

cpmario

Re: Busqueda Exacta???

neorent

Re: Busqueda Exacta???

Juanolo

Re: Busqueda Exacta???

neorent

Re: Busqueda Exacta???

Juanolo

Re: Busqueda Exacta???

cpmario

Re: Busqueda Exacta???

neorent

Re: Busqueda Exacta???