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

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:

  PrivatePublic SubFunction btnBuscar_ClickBusqueda(sender As Object, e As EventArgs) Handles btnBuscar.Click
   As TryString
        Dim con As String
        con = "Data Source=GDJF04973;Initial Catalog=LabInventarioN3;User ID=f5;Password=f5report"
        Dim cncnn As New SqlConnection
        cncnn.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 & "'", cncnn)
        cncnn.Open()
    Dim cmd As SqlDataReader
    cmd = query.ExecuteNonQueryExecuteReader()
    Dim res As String btnActualizar= Nothing
    If cmd.ShowRead() Then res = cmd(0)
    cmd.Close()
    btnGuardarcnn.HideClose()
    CatchReturn exres
End Function

El codigo del Boton es el siguiente:

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

   MsgBox txtID.Text = Busqueda("Error:")
 + ex  btnActualizar.ToStringShow()
    End TrybtnGuardar.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.

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:

  Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click
    Try
        Dim con As String
        con = "Data Source=GDJF04973;Initial Catalog=LabInventarioN3;User ID=f5;Password=f5report"
        Dim cn As New SqlConnection
        cn.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 & "'", cn)
        cn.Open()
        query.ExecuteNonQuery()
        btnActualizar.Show()
        btnGuardar.Hide()
    Catch ex As Exception
        MsgBox("Error:" + ex.ToString)
    End Try
End Sub

El codigo funciona correctamente. Solo quiero que se llenen los TextBox con los datos obtenidos.

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.

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.

etiquetas editadas
Enlace
gbianchi
  • 20.6k
  • 13
  • 40
  • 60
Origen Enlace
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:

  Private Sub btnBuscar_Click(sender As Object, e As EventArgs) Handles btnBuscar.Click
    Try
        Dim con As String
        con = "Data Source=GDJF04973;Initial Catalog=LabInventarioN3;User ID=f5;Password=f5report"
        Dim cn As New SqlConnection
        cn.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 & "'", cn)
        cn.Open()
        query.ExecuteNonQuery()
        btnActualizar.Show()
        btnGuardar.Hide()
    Catch ex As Exception
        MsgBox("Error:" + ex.ToString)
    End Try
End Sub

El codigo funciona correctamente. Solo quiero que se llenen los TextBox con los datos obtenidos.

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.