Visual Basic.NET - como hacer que TextBox muestre los datos desde sql

 
Vista:
Imágen de perfil de luisao
Val: 50
Ha disminuido su posición en 4 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

como hacer que TextBox muestre los datos desde sql

Publicado por luisao (27 intervenciones) el 28/12/2019 03:10:39
Estimados,
disculpen ustedes las molestias,

como puedo hacer para que al momento de ejecutar un programa en vb.net los textbox que yo tenga en el formulario me muestren los datos que estan en x tabla de sql .

Tengo un formulario de registro de usuarios, con 2 textbox y un datagridview, con el datagrid no tengo problema porque el me muestra los datos que estan en sql.
pero los textbox , ehhhhh..... no logro hacer que me muestre los datos y que estos esten enlazados a el datagrid para que al momento de borrar o modificar desde los textbox tambien se modifiquen en el datagrid y por ende hasta en sql.

Si alguien me brinda alguna ayuda, !!! muchas gracias amigos.

este es el codigo que tengo en el Formulario:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Public Class FrmUsers
    Dim L As New ClsConexion
    Public CON As New SqlConnection(My.Settings.Conexion)
    Public COMM As SqlCommand
    Public ADAP As SqlDataAdapter
    Public DR As SqlDataReader
    Private Sub FrmUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        L.Conectar()
        Met_data()
 
 
    End Sub
 
    Public Sub Met_data()
        Using CN As New SqlConnection(My.Settings.Conexion)
            Using CMD As New SqlCommand("PA_Consulta", CN)
                CMD.CommandType = CommandType.StoredProcedure
 
                Try
                    Dim da As New SqlDataAdapter(CMD)
                    Dim ds As New DataSet
                    da.Fill(ds, "Usuarios")
                    Me.DataGridView1.DataSource = ds.Tables("Usuarios")
 
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            End Using
        End Using
    End Sub
 
    Private Sub BtnModificar_Click_1(sender As Object, e As EventArgs) Handles BtnModificar.Click
        Try
            L.Met_Actualizar(TxtUser.Text, TxtPass.Text)
            MsgBox("Actualizacion Realizada Exitosamente")
        Catch ex As Exception
            MsgBox("Error al Actualizar")
        End Try
    End Sub
 
    Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
        Try
            L.Met_EliminarUsuario(TxtUser.Text)
            MsgBox("Eliminacion Exitosa")
        Catch ex As Exception
            MsgBox("Error al Eliminar")
        End Try
    End Sub
1
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
Imágen de perfil de Phil Rob
Val: 3.353
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

como hacer que TextBox muestre los datos desde sql

Publicado por Phil Rob (1546 intervenciones) el 28/12/2019 15:31:47
Hola,

Veo que sabes hacer con un DataGridView.

Miras los ejemplos siguiente (con ComboBox, ListBox y TextBox) :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
'... ... ...
       Dim MiAdapter As New OleDbDataAdapter(Consulta, MiConexion)
        MiAdapter.Fill(UnaTabla)
 
        UnaTabla.TableName = NombreTablaEnDB
        MiDatos.Tables.Add(UnaTabla)
 
        'DGVTest es un DataGridView
 
        DGVTest.DataSource = UnaTabla  ' Para ejemplo, todos campos
 
        'CBTest es un ComboBox
 
        CBTest.DataSource = UnaTabla
        CBTest.DisplayMember = "Article" ' este esElNombredelCampoQueMeGustaAqui, articulo
 
        'LBTest es un ListBox
 
        LBTest.DataSource = UnaTabla
        LBTest.DisplayMember = "Article" ' este es ElNombredelCampoQueMeGustaAqui, articulo
 
        'TBTest es un TextBox :  "Text" es el nombre de la propiedad a mostrar aqui (como mismo, puedes asignar todas propiedades de todas herramientas)
 
        TBTest.DataBindings.Add("Text", UnaTabla, "Stock") ' este es ElNombredelCampoQueMeGustaAqui, este es la cuantidad de articulos
 
'... ... ...

Esperto te ayudar ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar