Busqueda dentro de base de datos

[Avellaneda]

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:

Dim 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