Visual Basic - boton de busqueda en vb

Life is soft - evento anual de software empresarial
   
Vista:

boton de busqueda en vb

Publicado por alberto (15 intervenciones) el 09/09/2010 17:56:42
Estoy haciendo un boton para buscar un registro q el usuario introduzca en un textbox utilizo esta sentencia pero no funciona.¿alguien sabe q esta mal?

Dim buscar As String
buscar = Tnombre.Text

rs.Source = "select * from contratante where Nombre like '*" & buscar & "*'"

Tdni.Text = rs!dni
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:boton de busqueda en vb

Publicado por Zen Master (134 intervenciones) el 09/09/2010 20:59:00
Primero que nada que base de datos utilizas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:boton de busqueda en vb

Publicado por alberto (15 intervenciones) el 10/09/2010 11:16:41
Es unna base de datos acces,ya he hecho la conexion y una select normal y funciona,pero esta con una variable no hay manera.
Gracias por tu ayuda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:boton de busqueda en vb

Publicado por Zen Master (15 intervenciones) el 10/09/2010 16:38:40
Escribeme la conexion y el select normal que haces y como lo muestras
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:boton de busqueda en vb

Publicado por alberto (15 intervenciones) el 11/09/2010 12:07:22
Private Sub Form_Load()

sarchivobase = App.Path & "\" & "devoluciones.mdb"
conec.Provider = "Microsoft.Jet.OLEDB.4.0"
conec.CursorLocation = adUseServer
conec.ConnectionString = sarchivobase
conec.Mode = adModeReadWrite conec.Open ' abro la conexion
rs.ActiveConnection = conec

end sub

Private Sub Command1_Click()
Dim buscar As String
buscar = Tnombre.Text

rs.Source = "select * from contratante where Nombre='MARQUEZ FERNANDEZ DAVID'"



'rs.Source = "select * from contratante where Nombre like '*" & buscar & "*'" ' esta no funciona

Ttelefono.Text = rs!dni ' pongo en el text1 el valor del campo nombre

If rs.BOF = True Then
MsgBox "vacio"
End If

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:boton de busqueda en vb

Publicado por Zen Master (15 intervenciones) el 11/09/2010 20:32:26
Ok alberto intenta así:

Dim buscar As String

buscar = Tnombre.Text

rs.Source = "select * from contratante where Nombre like '%" & buscar & "%'"

rs.Open , con, adOpenStatic, adLockOptimistic

Tdni.Text = rs!dni
rs.Close
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:boton de busqueda en vb

Publicado por alberto (15 intervenciones) el 11/09/2010 22:07:29
Solucionado maquina muchisimas graciasssss
un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:boton de busqueda en vb

Publicado por alberto (15 intervenciones) el 11/09/2010 22:33:06
Oye zen como puedo hacer para que por ejemplo si yo meto hernandez en el fomulario
me muestre no solo el primer registro que coincida con hernandez sino que cada vez que le de al boton de busqueda pase al siguiente hernandez..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Ramon Alexander Perez Batista

RE:boton de busqueda en vb

Publicado por Ramon Alexander Perez Batista (17 intervenciones) el 29/03/2014 14:08:58
rs.open "select * from contratante where Nombre like '%" & buscar & "%' ", conec,adOpenStatic, adLockOptimistic
Tdni.Text = rs!dni
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:boton de busqueda en vb

Publicado por Zen Master (15 intervenciones) el 10/09/2010 16:43:33
Ok prueba así:

Dim buscar As String

buscar = Tnombre.Text

rs.Source = "select * from contratante where Nombre like '%" & buscar & "%'"

rs.Open , con, adOpenStatic, adLockOptimistic

Tdni.Text = rs!dni
rs.Close
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:boton de busqueda en vb

Publicado por alberto (15 intervenciones) el 12/09/2010 20:21:13
Oye zen como puedo hacer para que por ejemplo si yo meto hernandez en el fomulario
me muestre no solo el primer registro que coincida con hernandez sino que cada vez que le de al boton de busqueda pase al siguiente hernandez..
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:boton de busqueda en vb

Publicado por jose potemora@gmail.com (1 intervención) el 29/03/2014 00:41:17
me da errores con la palabra -rs- y especial mente con esta -con, adOpenStatic, adLockOptimistic- ahi que cambiarlo por algo

Ayuda porfavor.
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

boton de busqueda en vb

Publicado por hirr (1 intervención) el 07/05/2014 20:22:57
y en vb como seria?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar