Skip to main content
3 de 3
se añadieron 210 caracteres en el cuerpo
Giovanni
  • 345
  • 3
  • 15

¿llenar textbox a travez de una consulta sql?

No se como hacer lo siguiente:

Quiero llenar los TextBox de mi Formulario a partir del resultado de un consulta en sql. Mi codigo de la consulta en visual es el siguiente:

  Public Function Busqueda() As String
    Dim con As String
    con = "Data Source=GDJF04973;Initial Catalog=LabInventarioN3;User ID=f5;Password=f5report"
    Dim cnn As New SqlConnection
    cnn.ConnectionString = con
    Dim query As New SqlCommand("select i.ID,i.Proyecto,i.Tipo, i.Cantidad,i.Ubicacion,i.Descripcion,i.Modelo,i.[Numero de Parte],
                                     i.NumeroSerie,i.Status,i.Comentarios from InventarioLab i where i.ID like '" & txtBuscarID.Text & "'", cnn)
    cnn.Open()
    Dim cmd As SqlDataReader
    cmd = query.ExecuteReader()
    Dim res As String = Nothing
    If cmd.Read() Then res = cmd(0)
    cmd.Close()
    cnn.Close()
    Return res
End Function

El codigo del Boton es el siguiente:

   Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click

    txtID.Text = Busqueda()
    btnActualizar.Show()
    btnGuardar.Hide()

End Sub

El codigo funciona correctamente. Solo quiero que se llenen los TextBox con los datos obtenidos en su campo correspondiente

Mi formulario es el siguiente:

introducir la descripción de la imagen aquí

La consulta se hace al dar click en el Boton Buscar.

Gracias.

Giovanni
  • 345
  • 3
  • 15