Busqueda dentro de base de datos

acc008 · #1 (**permalink**) 07/03/2009, 03:20

Hola gente les comento que empeze hace unos dias a programar en VB6 y decici comenzar con un simple prorgamita para leer y editar una base de datos echa en Acces 2003.

Lo que ando buscando es un codigo de busqueda con las siguientes opciones:

Buscar: (datos) -Busqueda exacta (buscar el valor "Datos" dentro de la base de datos)
- Busqueda Parcial (Buscar "Datos***" y q me de todos los resultados q coinsidan con eso)

pero quiero que me los devuelva en una MsFlexGrid y no encontre como ahcerlo :S..
andube buscando en el foro pero todo lo q vi utilizan ADO y yo estoy usando DAO 3.6.. no se si me pueden ayudar
se los agradeceria muchisimo :D

GABRIL · #2 (**permalink**) 07/03/2009, 11:55

con un sql resuelves tu problema:

consulta="select * from tutabla where campo1='varbusca'"

tal vez necesites el operador like para otro tipo de busquedas, como las parciales..
Nunca he probado con MsFlexGrid, pero intenta asi:

set MsflexGrid=consulta

suerte

acc008 · #3 (**permalink**) 09/03/2009, 01:02

Mira gracias por responder pero no te entiendo del todo.. tu dices q en ves de usar bases de dato en acces las pase a sql ?..

otra cosa.. Estube probando de algunas formas e intente usar el FindFirst.. te muestro como lo voy haciendo:

En un modulo declare esto:

Public DB As dao.Database
Public DATOS As dao.Recordset
Public ID As Integer

(tengo mas cosas pero no son de importancia)

y en un form para buscar esta lo siguiente:

Private Sub Form_Load()
Dim destsearch As String
grilla.Rows = 1
grilla.FormatString = "ID |Destino |Codigo |Precio "

destsearch = "Argentina"
DATOS.FindFirst "destsearch"

Do Until DATOS.NoMatch

grilla.AddItem DATOS!ID
grilla.TextMatrix(grilla.Rows - 1, 1) = DATOS!destino
grilla.TextMatrix(grilla.Rows - 1, 2) = DATOS!codigo
grilla.TextMatrix(grilla.Rows - 1, 3) = DATOS!Precio

DATOS.FindNext "Destsearch"

loop

end sub

Lo que deberia hacer esto es buscar en el recordset DATOS el valor "argentina" y que luego de eso lo me lo devuelva en un MsFlexGrid llamado Grilla junto a los datos de toda la fila.. pero me da un error con el criterio de busqueda.. y no se si lo estoy usando mal..

Avellaneda · #4 (**permalink**) 09/03/2009, 05:46

Hola, para estos casos es mejor utilizar una consulta WHERE:

Dim strSQL As String
strSQL = "SELECT * FROM LaTabla WHERE NombreCampo = '" & destsearch & "'"
Set DATOS = DB.OpenRecordset(strSQL)

y a continuación cargas el recordset en la grilla.

En tu código el error está en esta línea:

DATOS.FindFirst "destsearch"

debe ser:

DATOS.FindFirst "NombreCampo='" & destsearch & "'"

Igualmente para FindNext

Un saludo

totigo · #5 (**permalink**) 09/03/2009, 12:30

Tu quieres asignar el resultado de la consulta a un MSHflexgrid. hazlo a traves de la propiedad DataSource de tu control.+

Código vb:

Ver originalDim ADBrecordset As New ADODB.Recordset
Dim strParametro as String
       
    strSucursal = "cordoba"
    sql = " SELECT * FROM TABLA WHERE CAMPO='"   & strParametro & "'"
 
    Set ADBrecordset = New ADODB.Recordset
    ADBrecordset .Open sql, miAdoConexion, adOpenForwardOnly
    
    Set mi_MSHFlexGrid.DataSource = ADBrecordset

Avellaneda · #6 (**permalink**) 09/03/2009, 14:30

Cita:

Iniciado por totigo

Tu quieres asignar el resultado de la consulta a un MSHflexgrid. hazlo a traves de la propiedad DataSource de tu control.+

Código vb:

Ver originalDim ADBrecordset As New ADODB.Recordset
Dim strParametro as String
       
    strSucursal = "cordoba"
    sql = " SELECT * FROM TABLA WHERE CAMPO='"   & strParametro & "'"
 
    Set ADBrecordset = New ADODB.Recordset
    ADBrecordset .Open sql, miAdoConexion, adOpenForwardOnly
    
    Set mi_MSHFlexGrid.DataSource = ADBrecordset

Me parece que eso no le va a funcionar, ya que está utilizando DAO y no ADO y además creo que no es un control MSHFlexGrid sino un control MSFLEXGrid que no se puede enlazar a un recordset.

acc008 · #7 (**permalink**) 09/03/2009, 15:25

Muchisimas gracias por la ayuda ya me esta funcionando de la forma que me dio avellaneda :D:D.

ahora una consultita mas y listo. Con este metodo cuando yo busco "Argentina" me devuelve el resultado si y solo si en la BD esta Argentina. quisiera saber si puedo hacer q la busqueda me devuelca todas las filas que contienen argentina como:

Argentina
Argentina - Cordoba
Argentina - Buenos Aires
Argentina - Tucuman

Etc...

Avellaneda · #8 (**permalink**) 09/03/2009, 15:43

Solo cambia la consulta:

strSQL = "SELECT * FROM LaTabla WHERE NombreCampo LIKE '*" & destsearch & "*'"

Saludos

acc008 · #9 (**permalink**) 09/03/2009, 16:12

Cambie la consulta pero me sigue devolviendo el valor exacto.. aca esta mi form_load:

Private Sub Form_Load()
Dim strSQL As String
strSQL = "SELECT * FROM Datos WHERE Destino LIKE '*" & Destsearch & "*'"

Set DATOS = DB.OpenRecordset(strSQL)
Grilla.Rows = 1
Grilla.FormatString = "ID |Destino |Codigo |Precio "

DATOS.FindFirst "Destino='" & Destsearch & "'"

Do Until DATOS.NoMatch

Grilla.AddItem DATOS!ID
Grilla.TextMatrix(Grilla.Rows - 1, 1) = DATOS!destino
Grilla.TextMatrix(Grilla.Rows - 1, 2) = DATOS!codigo
Grilla.TextMatrix(Grilla.Rows - 1, 3) = DATOS!Precio

DATOS.FindNext "Destino='" & Destsearch & "'"

Loop

End Sub

Aclaro q a la variable Destsearch la tengo declarada en un modulo como String y le asigno un valor desde un Text.Value de otro formulario

Avellaneda · #10 (**permalink**) 09/03/2009, 16:35

Esa consulta te devolvería todos los registros que contengan la palabra Argentina, con lo cual sobran las instrucciones 'FindFirst' y 'FindNext'. solo tendrías que recorrer el recordset hasta EOF y mostrar los datos en el grid.

acc008 · #11 (**permalink**) 09/03/2009, 16:50

pero como hago q el programa muestre los resultados sin usar el findfirst ni el findnext

Avellaneda · #12 (**permalink**) 10/03/2009, 03:49

Cita:

Iniciado por acc008

pero como hago q el programa muestre los resultados sin usar el findfirst ni el findnext

Con un bucle de principio a fin del recordset. Este sería el código completo:

Código vb:

Ver originalDim strSQL As String
strSQL = "SELECT * FROM LaTabla WHERE NombreCampo = '" & destsearch & "'"
Set DATOS = DB.OpenRecordset(strSQL)
 
Dim i As Integer, j As Integer
With Grilla
    .Rows = DATOS.RecordCount + 1
    .Cols = DATOS.Fields.Count
    .FixedCols = 0
    For i = 0 To .Cols - 1
        ' poner en el encabezado el nombre de los campos
        .TextMatrix(0, i) = DATOS.Fields(i).Name
    Next i
    For i = 0 To DATOS.RecordCount - 1
    ' listar los registros en el grid    
    For j = 0 To .Cols - 1
            .TextMatrix(i + 1, j) = DATOS(j) & ""
        Next j
        DATOS.MoveNext
    Next i
End With

acc008 · #13 (**permalink**) 10/03/2009, 04:16

no funca :S.. si busco Argentina me sale me da solo el resultado Argentina. y si pongo Arg no me devuelve nada y me abre la grilla vacia

Avellaneda · #14 (**permalink**) 10/03/2009, 04:36

Cita:

Iniciado por acc008

no funca :S.. si busco Argentina me sale me da solo el resultado Argentina. y si pongo Arg no me devuelve nada y me abre la grilla vacia

mira la respuesta nº 8

acc008 · #15 (**permalink**) 10/03/2009, 05:09

tienes razon no me di cuenta que le faltaba el LIKE. Ahora si busca bien pero no me devuelve todos los resultados. solo me muestra 1.

me puse a ver bien el codigo y pienso que le puede faltar un do while y un loop, la verdad es que recien estoy aprendiendo asi que corriganme si me equivoco :D

Avellaneda · #16 (**permalink**) 10/03/2009, 05:28

Cita:

Iniciado por acc008

tienes razon no me di cuenta que le faltaba el LIKE. Ahora si busca bien pero no me devuelve todos los resultados. solo me muestra 1.

me puse a ver bien el codigo y pienso que le puede faltar un do while y un loop, la verdad es que recien estoy aprendiendo asi que corriganme si me equivoco :D

Puedes poner el código de la búsqueda y cómo lo cargas en el Grid?

Mejor haz un copy-pate, no lo escribas a mano.

acc008 · #17 (**permalink**) 10/03/2009, 05:43

Puse el que tu me pasaste. solo le cambie el nombre de la tabla y el campo:

Código:

Private Sub Form_Load()
Dim strSQL As String
strSQL = "SELECT * FROM Datos WHERE destino LIKE '*" & Destsearch & "*'"
Set DATOS = DB.OpenRecordset(strSQL)
 
Dim i As Integer, j As Integer
With Grilla
    .Rows = DATOS.RecordCount + 1
    .Cols = DATOS.Fields.Count
    .FixedCols = 0
    For i = 0 To .Cols - 1
        ' poner en el encabezado el nombre de los campos
        .TextMatrix(0, i) = DATOS.Fields(i).Name
    Next i
    For i = 0 To DATOS.RecordCount - 1
    ' listar los registros en el grid
    For j = 0 To .Cols - 1
            .TextMatrix(i + 1, j) = DATOS(j) & ""
        Next j
        DATOS.MoveNext
    Next i
End With


End Sub

y aqui estan las variables declaradas en un modulo:

Código:

Public Destsearch As String
Public DB As dao.Database
Public DATOS As dao.Recordset

Avellaneda · #18 (**permalink**) 10/03/2009, 06:11

¿ y dónde se le asigna un valor a la variable Destsearch?

acc008 · #19 (**permalink**) 10/03/2009, 06:35

se lo asigno en un txt.value de un formulario anteriror

Avellaneda · #20 (**permalink**) 11/03/2009, 09:31

Bueno, parece que el problema está en la propiedad RecordCount que solamente devuelve un registro, prueba así:

Búsqueda por aproximación:

Código vb:

Ver originalPrivate Sub Form_Load()
Dim strSQL As String
strSQL = "SELECT * FROM Datos WHERE destino LIKE '*" & Destsearch & "*'"
Set DATOS = DB.OpenRecordset(strSQL)
Dim i As Integer, j As Integer
With Grilla
    .Rows = 1
    .Cols = DATOS.Fields.Count
    .FixedCols = 0
    For i = 0 To .Cols - 1
        .TextMatrix(0, i) = DATOS.Fields(i).Name
    Next i
    i = 1
    Do Until DATOS.EOF
        .Rows = .Rows + 1
        For j = 0 To .Cols - 1
            .TextMatrix(i, j) = DATOS(j) & ""
        Next j
        DATOS.MoveNext
        i = i + 1
    Loop
End With
 
End Sub

En la búsqueda exacta, sólo tienes que cambiar la sentencia:

strSQL = "SELECT * FROM Datos WHERE destino = '" & Destsearch & "'"

Lo demás, todo igual a lo anterior.

Saludos

acc008 · #21 (**permalink**) 11/03/2009, 10:25

Bueno ya me funciono.
Muchas gracias por la ayuda :D