Alguna Idea?

Iniciado por Bourne Ultimatum, 19 Octubre 2005, 04:14 AM

0 Miembros y 1 Visitante están viendo este tema.

Bourne Ultimatum

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
"El pertenecia a esa clase singular de hombres que la especie produce rara vez,
en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo
cualquier sufrimiento parece natural" Ernesto CHE Guevara

http://www.desdeabajorugby.com.ar

Ertai

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.
Si la felicidad se comprara, entonces el dinero sería noble.


void rotar_by_ref(int& a, int& b) {
   /* Quien dijo que no se podia sin una variable temporal? */
   *a = *a ^ *b;
   *b = *a ^ *b;
   *a = *a ^ *b;
}

Bourne Ultimatum

OK tema solucionado ahora
como hago para q me muestre el DataGrid
lo q yo busco y no toda la base??
"El pertenecia a esa clase singular de hombres que la especie produce rara vez,
en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo
cualquier sufrimiento parece natural" Ernesto CHE Guevara

http://www.desdeabajorugby.com.ar

NYlOn

SUPRIMIR PROCESOS

el q busca....
adivinaste

ENCUENTRA !!
xD

salu2 !

Bourne Ultimatum

"El pertenecia a esa clase singular de hombres que la especie produce rara vez,
en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo
cualquier sufrimiento parece natural" Ernesto CHE Guevara

http://www.desdeabajorugby.com.ar

Numeros

#5
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

Bourne Ultimatum

Eso era lo q buscaba muchas graciassssssss ;D
"El pertenecia a esa clase singular de hombres que la especie produce rara vez,
en quienes el ansia de poder ilimitado es tan extremo que para conseguirlo
cualquier sufrimiento parece natural" Ernesto CHE Guevara

http://www.desdeabajorugby.com.ar

Numeros

#7
 ;D De nada; fue un placer ayudarte colega.