busqueda en bases

[juann2511]

Buenas gente,, estoy con un tema ya hace rato tratando de sacarlo pero no hay chance, a ver si a alguien se le ocurre algo
Tengo distintos libros con muchos datos, entre ellos, domicilios, telefonos, nombres, dnis, etc.
Mi trabajo consiste en ahora crear una especie de buscador en todos estos archivos y me devuelva todos los registros de cada libro en donde aparece almenos una vez en alguna de las celdas la palabra buscada.
Estoy lo estoy haciendo con una macro en excel (porque son todos archivos de excel) con conexiones ADOs. Lo que hice fue lo siguiente..

Código:

Sub ass()
    Dim i As Integer
    Dim Libros
    
    Libros = Array("")                   'la defino asi para poder hacer lo siguiente ->

' aca se van a ir guardando todas las direcciones de los archivos que yo vaya eligiendo
    If UBound(Libros) = 0 Then
        If MsgBox("En que archivo desea buscar?", vbOKCancel) <> vbCancel Then
            Libros(0) = Application.GetOpenFilename
            Do While MsgBox("Desea buscar en algun" & vbCr & "otro archivo?", vbOKCancel) <> vbCancel
                ReDim Preserve Libros(UBound(Libros) + 1)                                   ' se va agrandando Libros y le voy poniendo las
                Libros(UBound(Libros)) = Application.GetOpenFilename                        ' dir de los archivos que quiero
            Loop
        Else
            GoTo 2:
        End If
    Else
        Do While MsgBox("Desea ingresar algun archivo?", vbOKCancel) <> vbCancel
            ReDim Preserve Libros(UBound(Libros) + 1)
            Libros(UBound(Libros)) = Application.GetOpenFilename
        Loop
    End If

2:
    ' aca se hace el proceso de importacion para todos los elementos del array libro
    For j = 0 To UBound(Libros) Step 1
        Dim conexion As ADODB.Connection, rs As ADODB.Recordset
    
        Set conexion = New ADODB.Connection
        
        conexion.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                      "Data Source=" & Libros(j) & _
                      ";Extended Properties=""Excel 12.0;HDR=No;"""             'HDR = No, aparece con encabezado
                                                                                'HDR = Yes , no aparecen
          
        ' Nuevo recordset
        Set rs = New ADODB.Recordset
        
        With rs
            .CursorLocation = adUseClient
            .CursorType = adOpenStatic
            .LockType = adLockOptimistic
        End With
    
        rs.Open "SELECT * FROM [hoja1$]", conexion, , , adCmdTxt

        Cells(700000, 1).End(xlUp).Offset(2, 0).CopyFromRecordset rs
        
        rs.Close
        conexion.Close
    Next

End Sub

Lo que yo quisiera en realidad es en vez de esto: "SELECT * FROM [hoja1$]" que me trae todos los campos de la hoja1, poner una sentencia que me traiga todos los registros que cumplen en almenos un campo con una caracteristica especifica.
desde ya gracias. saludos

[Libras]

Pues has esto

Salect * from Hoja where campo=tu criterio de busqueda

Saludos!

[mortiprogramador]

Iniciado por Libras

Pues has esto

Salect * from Hoja where campo=tu criterio de busqueda

Saludos!

esto te sirve para buscar solo en un campo,
pero dices que usas n campos por ende
yo usaria además del where, varios OR
y si escribes solo una parte de lo que vas a buscar
no usaria igual sino LIKE
espero te sirvan las ideas
saludos

[juann2511]

de hecho yo tenia pensado algo mas como : "SELECT * FROM [hoja1$] WHERE Contains(*, 'texto') " ya que no se que campos voy a tener que traer de cada tabla, y necesito un comodin..
pero no se si se puede algo asi.
saludos

[juann2511]

alguien por favor que me diga si existe esa sentencia en vba ! se que existe para sql pero no se si lo puedo usar en este contexto o si necesito algun plugin , o algo extra

saludos

[aranasoftware]

por favor necesito ayuda trengo una lista en dreamweaver que toma los datos de mi base de datos pero yo deseo que al seleccionar un regristro de la lista me genere una consulta mostrando una informacion ejemplo.. la lista lleva

<li>comerciales</li>
<li>panaderias</li>
<li>farmacias</li>
<li>charcuteria</li>
<li>csupermercados</li>


y que al selecionar uno de ellos me busque en la base de datos todos los registros que sean comerciales si es la opcion comerciales que estoy seleccionando y y me los muestre en mi pagina

[mortiprogramador]

Iniciado por juann2511

alguien por favor que me diga si existe esa sentencia en vba ! se que existe para sql pero no se si lo puedo usar en este contexto o si necesito algun plugin , o algo extra

saludos

revisa en la documentación
saludos

[mortiprogramador]

Iniciado por aranasoftware

por favor necesito ayuda trengo una lista en dreamweaver que toma los datos de mi base de datos pero yo deseo que al seleccionar un regristro de la lista me genere una consulta mostrando una informacion ejemplo.. la lista lleva

<li>comerciales</li>
<li>panaderias</li>
<li>farmacias</li>
<li>charcuteria</li>
<li>csupermercados</li>


y que al selecionar uno de ellos me busque en la base de datos todos los registros que sean comerciales si es la opcion comerciales que estoy seleccionando y y me los muestre en mi pagina

Hola
y que lenguaje estas usando??
el caso es que yo haría otra página genérica llamada "consulta" por ej,
y estos li les pondría a href para que apunten a esa página donde
hare las consultas y les envío el parámetro a buscar (cada elemento del li)
y en esa pág consulta haría lo que necesito con la bd
saludos