recien me cree una cuenta en esta fabulosa pagina porque realmente estoy desesperado de que no me salga algo tan sencillo como es esto. Estoy recien iniciando con Visual Studio VB.net. En definitiva lo que estoy haciendo es un pequeño programa conectado a una base de datos la cual pueda consultar,agregar, modificar productos. Lo que estoy intentando hacer es que un boton tome valores escritos en un textBox y a partir de ella realice una consulta sql y que esta me muestre todas las filas encontradas en un list box que tengo preparado. pero no me sale.. desde ayer que vengo intentando y buscando por todos lados y NADA ya estoy desesperado jaja. Esto es lo que tengo hasta el momento para el boton que deberia realizar lo anteriormente explicado:
Private Sub BotonValidar_Click(sender As Object, e As EventArgs) Handles BotonValidar.Click
TextCant.Hide()
Cantidad.Hide()
TextCosto.Hide()
Costo.Hide()
TextPrecio.Hide()
Precio.Hide()
BotonConfirmarAgregar.Hide()
BotonConfirmarAcumular.Hide()
Dim userModel As New UserModel()
Using connection = GetConnection()
connection.Open()
Using command = New SqlCommand()
Dim rd As SqlDataReader
command.Connection = connection
If String.IsNullOrEmpty(TextCodigoBarra.Text) Then
If String.IsNullOrEmpty(TextDescripcion.Text) Then
MessageBox.Show("Debe rellenar al menos el campo 'Codigo' o 'Descripcion'")
Else
command.CommandText = "select * FROM Producto WHERE descripcion LIKE '%'+@desc+'%'"
command.Parameters.AddWithValue("@desc", TextDescripcion.Text)
command.CommandType = CommandType.Text
End If
Else
If String.IsNullOrEmpty(TextDescripcion.Text) Then
command.CommandText = "select * FROM Producto WHERE codigo LIKE '%'+@cod+'%'"
command.Parameters.AddWithValue("@cod", TextCodigoBarra.Text)
command.CommandType = CommandType.Text
Else
command.CommandText = "select * FROM Producto WHERE descripcion LIKE '%'+@desc+'%' AND codigo LIKE '%'+@cod+'%'"
command.Parameters.AddWithValue("@desc", TextDescripcion.Text)
command.Parameters.AddWithValue("@cod", TextCodigoBarra.Text)
command.CommandType = CommandType.Text
End If
End If
rd = command.ExecuteReader()
If rd.HasRows Then
ListBox1.Items.Clear()
ListBox1.Items.Add(rd)
rd.Dispose()
BotonConfirmarAcumular.Show()
Else
rd.Dispose()
BotonConfirmarAgregar.Show()
End If
End Using
End Using
End Sub
Bueno paso a explicar masomenos el codigo porque esta medio feo a primera vista La busqueda se puede hacer por codigo, por descripción o por codigo y descripcion (Esto depende de que TextBox rellene el usuario) esto explica el porque realizo tres consultas SQL en IF anidados.. A lo ultimo estoy intentando mostrar el resultado obtenido y nada.. si alguien me ayuda estaria eternamente agradecido ! Saludos