 Autor
|
Tema: Ayuda con un formulario por favor!!! (Leído 1,594 veces)
|
|
juanoide
|
vereis mi madre esta haciendo un formulario que le ha mandado hacer lo esta haciendo con access, y como en su empresa son tan torpes como ella, no saben buscar un dato con el filtro. Por lo que me ha pedido que ponga un boton que tras poner cualquier dato en los campos y pulsar el boton te salgan todos los que tengan ese dato en el campo, vamos un boton que simule el filtro. Y yo estuve buscando codigos e intentandolo hacer, pero yo solo se de html y un poco de javascript y mis conocimientos no dan para mas, asi que os pido ayuda que muchas dudas me habeis resuelto 
|
|
|
|
|
En línea
|
|
|
|
scod
 Desconectado
Mensajes: 14
|
no te entendi,.. quieres hacer una consulta de busqueda??
select * from tabla where campo like ''dato'' ???
saludso
|
|
|
|
|
En línea
|
yeah,.. weeeell,...
not now,... u_u,... soon my webpage,... just dont know how soon xD
|
|
|
|
juanoide
|
no te entendi,.. quieres hacer una consulta de busqueda??
select * from tabla where campo like ''dato'' ???
saludso
si mas o menos, pero en un boton, para que los torpes estos no se lien 
|
|
|
|
|
En línea
|
|
|
|
|
juanoide
|
por favor que alguien me ayude mi madre no para de darme la lata  |
|
|
|
|
En línea
|
|
|
|
DJ46
HiP HoP
Desconectado
Mensajes: 2.102
|
Pues según que VB estes utilizando, puedes usar para conectarde a la base de datos el DAO o el ADO.NET y en el clic del botón hacer la consulta con aquel campo que te hayan pasado.
Te pogo un ejemplo más o menos (es una mezcla de VB y pseudocodigo xD):
btn1 click
- Haces un DataReader (si usas vb.net, en el vb 6 no me acuerdo como se llama jeje)
- Cojes lo que te han pasado en un textbox, donde se supone que te dicen lo que quieres buscar. - lo puedes pasar a una variable o no, como quieras.
- Haces la consulta a la base de datos, y recojes lo que te devuelva con el DataReader. - "Select * from tabla where campo = '" & txt1.text & "'"
- Lo muestras y listo.
Por otro lado, no esperes que te den el código hecho, con esto que más o menos - tan bien como he podido xD - te he "explicado" ya tienes algo más para buscar y sacar el código.
|
|
|
|
|
En línea
|
|
|
|
TheGhost(Z)
Desconectado
Mensajes: 230
|
Un Ejmplo similar que carga en un ListView: Form1 ' Formulario Listview1 ' ListView Text1 ' Text donde ingresarar el valor a buscar Command1 ' Boton buscar. que al precioanr cargara en tu listview Datos: Tabla: Clientes Campos: Numero, Codigo, Nombre, DNI, Telefono ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
Dim rs As New Recordset
rs.Open "SELECT * FROM Clientes Where Nombre='"& Text1.Text &"'order by Numero", DBConex, adOpenStatic, adLockOptimistic
rs.MoveFirst
' Aquí defino las columnas
ListView1.ColumnHeaders.Add 1, "A", "Nr.Cliente", 1000, 0
ListView1.ColumnHeaders.Add 2, "B", "Coddigo", 1450, 0
ListView1.ColumnHeaders.Add 3, "C", "Nombre", 3250, 0
ListView1.ColumnHeaders.Add 4, "D", "DNI", 1450, 0
ListView1.ColumnHeaders.Add 5, "E", "Teléfono", 2200, 0
ListView1.View = lvwReport
Dim i As Long
i = 1
While rs.EOF = False
ListView1.ListItems.Add i, "A" + Format(i, "00000"), rs.Fields("Numero)
ListView1.ListItems(i).ListSubItems.Add 1, "B" + Format(i, "00000"), rs.Fields("Codigo")
ListView1.ListItems(i).ListSubItems.Add 2, "C" + Format(i, "00000"), rs.Fields("Nombre")
ListView1.ListItems(i).ListSubItems.Add 3, "D" + Format(i, "00000"), rs.Fields("DNI")
ListView1.ListItems(i).ListSubItems.Add 4, "E" + Format(i, "00000"), rs.Fields("Telefono")
rs.Move 1
i = i + 1
Wend
rs.Close
|
|
|
|
|
En línea
|
|
|
|
|
 |
