Test Foro de elhacker.net SMF 2.1

como hago para hacer q busque unos parametros en una base de datos y me los ponga todos los q existen en un list box

osea yo pongo
Private Sub BuscarSiguiente()
    Dim nReg As Long
    nReg = Val(Text8)
    If Option1.Value = True Then
        Data1.Recordset.FindNext "precio Like '" & Text8.Text & "'"
    End If
eso se coloca en un text box por ej text4.text
pero yo quiero algo asi

List1.AddItem Text10.Text
y q todos los datos de "precio" vallan directo a una lista en list1

esto sirve pero nose como usarlo con lo q necesito
Dim sTmp As String
List1.Clear
    On Local Error Resume Next

    sTmp = Dir$(Text1.Text)
    If Err = 0 Then
        Do While Len(sTmp)      'Repetir mientras haya ficheros
            List1.AddItem sTmp  'Lo añadimos a la lista
            sTmp = Dir$         'Asignar el siguiente fichero
        Loop
    End If
    Err = 0

End Sub

Puedes buscar en el TextBox todos los VbCrLf y "cortar" los datos uno por uno con Mid, Left o Right y luego agregandolos  uno por uno en la lista usando un for.

Saludos.

OK tema solucionado ahora
como hago para q me muestre el DataGrid
lo q yo busco y no toda la base??

SUPRIMIR PROCESOS (http://foro.elhacker.net/index.php/topic,82482.0.html)

el q busca....
adivinaste

ENCUENTRA !!
xD

salu2 !

no lo entendi :P

CitarOK tema solucionado ahora
como hago para q me muestre el DataGrid
lo q yo busco y no toda la base??

Debes pasarle una cadena Sql por la propiedad RecordSource al control Data. Ejemplo:

Data1.RecordSource = "SELECT Changes.Date, Changes.Time, Changes.Company, " & _
            "Changes.Discontinued, Changes.Customer, Changes.PhoneHouse, Changes.PhoneWork, Changes.Bank, " & _
            "Changes.PhoneBank, Changes.Amount, Changes.Interest, Changes.Change From Changes " & _
             "WHERE Changes.Company = '" & Compania.Text & "'" & " ORDER BY Changes.Date DESC, Changes.Time DESC "

De esta manera como el DBGrid se encuentra enlazado al Data mostrara los registros que deseas.
La cadena Sql anterior es tambien un ejemplo de consulta de parametros - que te es igual de eficiente que el metodo Find

Saludos

Eso era lo q buscaba muchas graciassssssss ;D

 ;D De nada; fue un placer ayudarte colega.