
Configurar boton de buscar en visual basic
Publicado por Ivan (1 intervención) el 27/01/2022 23:23:16
Buenas, estoy configurando un botón buscar y no me funciona, estoy haciendo una búsqueda especifica y me trae toda la información. este es el código. Muchas gracias de antemano.
Este es el código que tengo en mi Class
Public Function Buscar2(servi As String)
Dim bus As New SqlCommand("pb_buscar2", cnx)
bus.CommandType = CommandType.StoredProcedure
bus.Parameters.AddWithValue("@servicio", servi)
cnx.Open()
Dim busc As String = bus.ExecuteNonQuery
cnx.Close()
Return busc
End Function
Este código lo tengo en mi form en el botón
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
obj.Buscar2(cbservicio.Text)
Datos.DataSource = obj.ListarServicios
MsgBox("Registro encontrado: " + cbservicio.Text)
cbservicio.Text = " "
txtmonto.Text = " "
dtfecha.Value = DateTime.Now
txtcodigo.Text = "S000"
Catch ex As Exception
MsgBox("404 Error al buscar")
End Try
End Sub
Este es el código que tengo en mi Class
Public Function Buscar2(servi As String)
Dim bus As New SqlCommand("pb_buscar2", cnx)
bus.CommandType = CommandType.StoredProcedure
bus.Parameters.AddWithValue("@servicio", servi)
cnx.Open()
Dim busc As String = bus.ExecuteNonQuery
cnx.Close()
Return busc
End Function
Este código lo tengo en mi form en el botón
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
obj.Buscar2(cbservicio.Text)
Datos.DataSource = obj.ListarServicios
MsgBox("Registro encontrado: " + cbservicio.Text)
cbservicio.Text = " "
txtmonto.Text = " "
dtfecha.Value = DateTime.Now
txtcodigo.Text = "S000"
Catch ex As Exception
MsgBox("404 Error al buscar")
End Try
End Sub
Valora esta pregunta


0