Cargar un datagrid
Vuelvo a preguntarte a ti una dudilla que seguro que puedes resolvérmela. Quiero cargar los datos de una consulta en un datagrid. Tengo el código hecho pero no se porque no me carga nada, te adjunto el código, a ver si puedes ayudarme. Muchísimas gracias de antemano, un saludo.
Dim DSde100m5 As New DataSet
Dim DGTabla As New DataGridTableStyle
Dim DGcolumna2 As New DataGridTextBoxColumn
DGTabla.MappingName = "de100m5"
cnGOBEX400 = New SqlConnection(CadenaConexion)
ComandoSQL = New SqlCommand("SELECT * from de100m5 where [orden/partida]=@ORDEN and [nºrevision]=@REVISION", cnGOBEX400)
ComandoSQL.Parameters.Add(New SqlParameter("@ORDEN", SqlDbType.Char))
ComandoSQL.Parameters("@ORDEN").Value = orden
ComandoSQL.Parameters.Add(New SqlParameter("@REVISION", SqlDbType.Char))
ComandoSQL.Parameters("@REVISION").Value = revision
cnGOBEX400.Open()
'no se si hace falta para algo... Creo que no aun asi sin esto tampoco funciona
Dim sqlDataAdapter = New SqlDataAdapter(ComandoSQL)
sqlDataAdapter.Fill(DSde100m5, "de100m5")
DGcolumna2 = New DataGridTextBoxColumn
With DGcolumna2
.MappingName = "orden/partida"
.HeaderText = "ORDEN PARTIDA"
.Width = 250
End With
DGTabla.GridColumnStyles.Add(DGcolumna2)
DGcolumna2 = Nothing
DGcolumna2 = New DataGridTextBoxColumn
With DGcolumna2
.MappingName = "nºrevision"
.HeaderText = "REVISION"
.Width = 115
End With
DGTabla.GridColumnStyles.Add(DGcolumna2)
'le agrego al datagrid (msfcuadricula) la tabla generada pero no sale nada
Me. MsfCuadricula. TableStyles. Add(DGTabla)
CnGOBEX400. Close()
Dim DSde100m5 As New DataSet
Dim DGTabla As New DataGridTableStyle
Dim DGcolumna2 As New DataGridTextBoxColumn
DGTabla.MappingName = "de100m5"
cnGOBEX400 = New SqlConnection(CadenaConexion)
ComandoSQL = New SqlCommand("SELECT * from de100m5 where [orden/partida]=@ORDEN and [nºrevision]=@REVISION", cnGOBEX400)
ComandoSQL.Parameters.Add(New SqlParameter("@ORDEN", SqlDbType.Char))
ComandoSQL.Parameters("@ORDEN").Value = orden
ComandoSQL.Parameters.Add(New SqlParameter("@REVISION", SqlDbType.Char))
ComandoSQL.Parameters("@REVISION").Value = revision
cnGOBEX400.Open()
'no se si hace falta para algo... Creo que no aun asi sin esto tampoco funciona
Dim sqlDataAdapter = New SqlDataAdapter(ComandoSQL)
sqlDataAdapter.Fill(DSde100m5, "de100m5")
DGcolumna2 = New DataGridTextBoxColumn
With DGcolumna2
.MappingName = "orden/partida"
.HeaderText = "ORDEN PARTIDA"
.Width = 250
End With
DGTabla.GridColumnStyles.Add(DGcolumna2)
DGcolumna2 = Nothing
DGcolumna2 = New DataGridTextBoxColumn
With DGcolumna2
.MappingName = "nºrevision"
.HeaderText = "REVISION"
.Width = 115
End With
DGTabla.GridColumnStyles.Add(DGcolumna2)
'le agrego al datagrid (msfcuadricula) la tabla generada pero no sale nada
Me. MsfCuadricula. TableStyles. Add(DGTabla)
CnGOBEX400. Close()
1 Respuesta
Respuesta de ifrancoz
1