Cómo Llenar DataGridView con un DataSet?
Publicado por montse (4 intervenciones) el 23/01/2014 19:25:06
Hola Chicos, estoy aprendiendo a utilizar los DataSet y los GridView, intento llenar el Gridview de Id=DGVActores con la selección a la BD, tengo este código pero solo me muestra los títulos de las columnas del GridView, alguien puede ayudarme por favor?
Toda intención de ayuda se las agradezco de antemano
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim CONEXION As SqlConnection
Dim QUERY As String
CONEXION = New SqlConnection("Data Source=JILLIAN-PC\SQLEXPRESS;Initial Catalog=Fondo_Aux;Integrated Security=True")
QUERY = "SELECT Juicio.Num_Expediente, Partes_Fisicas.nombre, Partes_Fisicas.Lugar_Nacimiento, Partes_Fisicas.Municipio, Partes_Fisicas.Calle, Partes_Fisicas.Numero, Tipo_Parte.Tipo, Materia.Nom_Materia, Cat_Ramo.Categoria FROM Juicio INNER JOIN Materia ON Juicio.id_Materia=Materia.id_Materia INNER JOIN Cat_Ramo ON Materia.id_Cat_Ramo = Cat_Ramo.id_Cat_Ramo INNER JOIN Partes_Fisicas ON Partes_Fisicas.id_Juicio=Juicio.id_Juicio INNER JOIN Tipo_Parte ON Partes_Fisicas.id_Tipo_Parte=Tipo_Parte.id_Tipo_Parte WHERE Juicio.Num_Expediente= '" & TxtNumero.Text & "' AND Materia.Nom_Materia = '" & TxtNumero.Text & "' AND Cat_Ramo.Categoria= '" & DDLJuzgado.Text & "'"
Dim cmnd As SqlCommand = New SqlCommand(QUERY, CONEXION)
Dim ADAPT As SqlDataAdapter = New SqlDataAdapter(cmnd)
CONEXION.Open().
Dim TABLA As New DataSet
ADAPT.Fill(TABLA, "Table")
DGVActores.DataSource = TABLA
DGVActores.DataMember = "Table"
DGVActores.DataBind()
CONEXION.Close()
Toda intención de ayuda se las agradezco de antemano
Valora esta pregunta
0
