Actualizar grilla en tiempo de ejecucion

[matiasgallardo18]

Buenas, tengo el siguiente problema. Tengo 2 cajas de texto
una con nombre
otra con dni de la persona
Lleno las cajas de texto y luego las voy almacenando en la base de datos
También tengo una grilla. Quiero que a medida que voy cargando los datos de las cajas de texto en la base de dato, la grilla se vaya actualizando automáticamente con esos datos en tiempo de ejecución.
Espero me puedan ayudar. Saludos.

[Aquaventus]

Hola matiasgallardo18, podrías mostrarnos tu código para visualizar como realizas tu proceso?. Saludos!.

[matiasgallardo18]

El botón agregar, que agrega el nombre y dni de la persona, tiene el siguiente código. Lleva un procedimiento almacenado llamado Cont_InstertarTitular.


Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click


Dim CADENA As String = "Data Source=.;Initial Catalog=Comuna;Integrated Security=True"
Dim CONECTOR As New SqlConnection(CADENA)
Dim COMANDO As New SqlCommand
Dim ADAPTADOR As New SqlDataAdapter(COMANDO)

Dim DS As New Data.DataTable
COMANDO.Connection = CONECTOR
COMANDO.CommandType = Data.CommandType.StoredProcedure
COMANDO.CommandText = "Cont_InsertarTitular"
COMANDO.Parameters.Clear()
COMANDO.Parameters.AddWithValue("@nombre", nombre.Text)
COMANDO.Parameters.AddWithValue("@dni", dni.Text)
ADAPTADOR.Fill(DS)

End Sub

Luego esta la grilla, que esta conectada a la base de datos llamando al procedimiento Cont_ObtenerTitulares.
Codigo no hay porque todo se hizo visualmente no por codigo.

La idea es que a medida que valla guardando los nombre y dni de las personas en la base de datos, la grilla se actualice automaticamente al hacer click en el button3 con los nuevos nombre que se acabaron de registrar.

Espero me alla sabido explicar y me puedas ayudar. Saludos.

[Aquaventus]

Hola matiasgallardo18, es sencillo, ahí como lo tienes puedes hacer la consulta contra tu BD y luego mostrarlo en tu grilla luego de almacenado registro en el mismo evento click de tu botón:

Código vb:

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
 
 
Dim CADENA As String = "Data Source=.;Initial Catalog=Comuna;Integrated Security=True"
Dim CONECTOR As New SqlConnection(CADENA)
Dim COMANDO As New SqlCommand
Dim ADAPTADOR As New SqlDataAdapter(COMANDO)
 
Dim DS As New Data.DataTable
 
COMANDO.Connection = CONECTOR
COMANDO.CommandType = Data.CommandType.StoredProcedure
COMANDO.CommandText = "Cont_InsertarTitular"
COMANDO.Parameters.Clear()
COMANDO.Parameters.AddWithValue("@nombre", nombre.Text)
COMANDO.Parameters.AddWithValue("@dni", dni.Text)
 
CONECTOR.Open()
 
COMANDO.ExecuteNonQuery()
 
CONECTOR.Close()
 
ADAPTADOR.Connection = CONECTOR
ADAPTADOR.CommandType = Data.CommandType.StoredProcedure
ADAPTADOR.CommandText = "PROCEDURE_DE_LISTADO"
 
ADAPTADOR.Fill(DS)
 
MiGrilla.DataSource = DS
 
End Sub
 

Lo pruebas y nos comentas. Saludos!.

[matiasgallardo18]

Mira lo hice asi, se graban los datos correctamente.
Vi que colocaste ADAPTADOR.Connection = CONECTOR y tengo entendido que es COMANDO.Connection = CONECTOR por lo tanto lo corregi.

La grilla al estar vacia no esta visible, pero al cargar el primer registro los datos se graban correctamente en la base de datos pero la grilla no se visiviliza. Algo me debe estar faltando, te paso el codigo para que lo veas


Dim CADENA As String = "Data Source=.;Initial Catalog=Comuna;Integrated Security=True"
Dim CONECTOR As New SqlConnection(CADENA)
Dim COMANDO As New SqlCommand
Dim ADAPTADOR As New SqlDataAdapter(COMANDO)

Dim DS As New Data.DataTable

COMANDO.Connection = CONECTOR
COMANDO.CommandType = Data.CommandType.StoredProcedure
COMANDO.CommandText = "Cont_InsertarOrdenCompraDetalle"
COMANDO.Parameters.Clear()
COMANDO.Parameters.AddWithValue("@nombre", nombre.Text)
COMANDO.Parameters.AddWithValue("@dni", dni.Text)

ADAPTADOR.Fill(DS)


CONECTOR.Open()

COMANDO.ExecuteNonQuery()

CONECTOR.Close()

COMANDO.Connection = CONECTOR
COMANDO.CommandType = Data.CommandType.StoredProcedure
COMANDO.CommandText = "obtenerListado

ADAPTADOR.Fill(DS)

GridView1.DataSource = DS

Espero me puedas ayudar.

[Aquaventus]

No tu variable COMANDO la utilizo para agregar el registro a la bd y la variable ADAPTADOR para hacer el listado en tu grilla. No lo cambies. Saludos!.

[matiasgallardo18]

Buenas hice eso pero me saltan los siguientes errores

Connection no es un miembro de system.data.sqlclient.sqldataAdapter

CommandType no es un miembro de system.data.sqlclient.sqldataAdapter

CommandText no es un miembro de system.data.sqlclient.sqldataAdapter


Quizas falte algun imports, los que tengo agregado son estos:

Imports System.Data.SqlClient
Imports System.Data

Espero me puedas dar una mano. Saludos.

[Aquaventus]

Sorry me equivoqué por hacerlo a la volada. Ahora lo corrijo. El adapter no tiene connection,commandtype ni commandtext.

[Aquaventus]

Código vb:

Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
 
 
Dim CADENA As String = "Data Source=.;Initial Catalog=Comuna;Integrated Security=True"
Dim CONECTOR As New SqlConnection(CADENA)
Dim COMANDO As New SqlCommand
 
Dim DS As New Data.DataTable
 
COMANDO.Connection = CONECTOR
COMANDO.CommandType = Data.CommandType.StoredProcedure
COMANDO.CommandText = "Cont_InsertarTitular"
COMANDO.Parameters.Clear()
COMANDO.Parameters.AddWithValue("@nombre", nombre.Text)
COMANDO.Parameters.AddWithValue("@dni", dni.Text)
 
CONECTOR.Open()
 
COMANDO.ExecuteNonQuery()
 
CONECTOR.Close()
 
COMANDO.CommandType = Data.CommandType.StoredProcedure
COMANDO.CommandText = "obtenerListado"
COMANDO.Parameters.Clear()
 
Dim ADAPTADOR As New SqlDataAdapter(COMANDO)
 
ADAPTADOR.Fill(DS)
 
MiGrilla.DataSource = DS
 
End Sub
 

Prueba de esa manera y nos cuentas! Así como te lo deje en ese orden. Saludos!.

[matiasgallardo18]

Perfecto, muchas gracias por tu atencion