Código vb:
Ver originalProtected 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!
.