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:
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
Valora esta pregunta
0
