Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Bourne Ultimatum en 19 Octubre 2005, 04:14 am


Título: Alguna Idea?
Publicado por: Bourne Ultimatum en 19 Octubre 2005, 04:14 am
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
Código:
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

Código:
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
Código:
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

Título: Re: Alguna Idea?
Publicado por: Ertai en 19 Octubre 2005, 13:29 pm
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.

Título: Re: Alguna Idea?
Publicado por: Bourne Ultimatum en 20 Octubre 2005, 00:13 am
OK tema solucionado ahora
como hago para q me muestre el DataGrid
lo q yo busco y no toda la base??

Título: Re: Alguna Idea?
Publicado por: NYlOn en 20 Octubre 2005, 01:39 am
SUPRIMIR PROCESOS (http://foro.elhacker.net/index.php/topic,82482.0.html)

el q busca....
adivinaste

ENCUENTRA !!
xD

salu2 !

Título: Re: Alguna Idea?
Publicado por: Bourne Ultimatum en 20 Octubre 2005, 01:51 am
no lo entendi :P

Título: Re: Alguna Idea?
Publicado por: Numeros en 20 Octubre 2005, 02:37 am
Citar
OK 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:

Código:
 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

Título: Re: Alguna Idea?
Publicado por: Bourne Ultimatum en 20 Octubre 2005, 02:45 am
Eso era lo q buscaba muchas graciassssssss ;D

Título: Re: Alguna Idea?
Publicado por: Numeros en 20 Octubre 2005, 02:50 am
 ;D De nada; fue un placer ayudarte colega.


Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines