Visual Basic.NET - datagrid invisible

   
Vista:

datagrid invisible

Publicado por kiketo dataservis@gmail.com (2 intervenciones) el 09/02/2012 02:31:01
Hola a todos, soy nuevo en vb.net 2005 y estoy atascado en este ejemplo que saqué de un libro. se trata de configurar un datagrid por codigo. En el formulario no tengo ningun control data grid y al correrlo solo aparace el formulario mas cuando añado un control data grid ( Dg) me sale el siguiente error:
Error 1 'Dg' ya se declaró como 'Friend Dim WithEvents Dg As System.Windows.Forms.DataGridView' en class.

Que estoy haciendo mal??, debo incluir el data grid en el formulario?, si lo incluyo debe tener el mismo nombre que uso en el código (dg) , a falta añadir alguna otra cosa????
Agradeceré sus respuestas....saludos.

EL CODIGO ES EL SIGUIENTE::]


Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
'creo objetos ado net
Private Cn As SqlConnection
Private Adap As SqlDataAdapter
Private Build As SqlCommandBuilder
Private Ds As DataSet
Private Dg As DataGrid
Private DgStyle As DataGridTableStyle
Private DgColum As DataGridTextBoxColumn
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

'establesco la conexion
Cn = New SqlConnection("Initial Catalog=Konbase; Data Source=GERENCIA\SQLEXPRESS;Integrated Security=SSPI;")

'establesco el adaptador
Adap = New SqlDataAdapter("SELECT * FROM clave ORDER BY clave", Cn)

'creo commandbuilder
Build = New SqlCommandBuilder(Adap)

'abro conexion
Cn.Open()

'lleno el adaptador
Ds = New DataSet()
Adap.Fill(Ds, "Clave")

'asigno dataset al data grid
Dg = New DataGrid
Dg.DataSource = Ds
Dg.DataMember = "clave"

'configuro datagrid (Dg) por codigo

Dg.Anchor = AnchorStyles.Bottom + AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top
Dg.CaptionText = "Listado de usuarios"
Dg.CaptionBackColor = Color.Turquoise
Dg.CaptionForeColor = Color.Black

' creo estilo del data grid
DgStyle = New DataGridTableStyle
DgStyle.MappingName = "Clave"
DgStyle.BackColor = Color.LightGoldenrodYellow
DgStyle.AlternatingBackColor = Color.Aquamarine

'creo columnas a mostrar
'clave
DgColum = New DataGridTextBoxColumn()
DgColum.TextBox.Enabled = False
DgColum.Alignment = HorizontalAlignment.Center
DgColum.HeaderText = "CLABE"
DgColum.MappingName = "clave"
DgColum.Width = 300
'añado la columna a dgstyle
DgStyle.GridColumnStyles.Add(DgColum)
DgColum = Nothing
' nombre
DgColum = New DataGridTextBoxColumn()
DgColum.TextBox.Enabled = False
DgColum.Alignment = HorizontalAlignment.Left
DgColum.HeaderText = "USUARIO"
DgColum.MappingName = "nombre"
DgColum.Width = 800
'añado la columna a dgstyle
DgStyle.GridColumnStyles.Add(DgColum)
DgColum = Nothing

' añado al datagrid (Dg) su contenedor (dgstyle)

Dg.TableStyles.Add(DgStyle)

End Sub
End Class
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

datagrid invisible

Publicado por ros (21 intervenciones) el 09/02/2012 10:38:19
Public Class Form1
Inherits System.Windows.Forms.Form

Private Ds As DataSet
Private Dg As DataGrid
Private DgStyle As DataGridTableStyle
Private DgColum As DataGridTextBoxColumn
Private txtName As TextBox


Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load


Dg = New DataGrid
Dg.DataSource = Ds
Dg.DataMember = "clave"

'configuro datagrid (Dg) por codigo

Dg.Anchor = CType(AnchorStyles.Bottom + AnchorStyles.Left + AnchorStyles.Right + AnchorStyles.Top, AnchorStyles)
Dg.CaptionText = "Listado de usuarios"
Dg.CaptionBackColor = Color.Turquoise
Dg.CaptionForeColor = Color.Black

' creo estilo del data grid
DgStyle = New DataGridTableStyle
DgStyle.MappingName = "Clave"
DgStyle.BackColor = Color.LightGoldenrodYellow
DgStyle.AlternatingBackColor = Color.Aquamarine

'creo columnas a mostrar
'clave
DgColum = New DataGridTextBoxColumn()
DgColum.TextBox.Enabled = False
DgColum.Alignment = HorizontalAlignment.Center
DgColum.HeaderText = "CLABE"
DgColum.MappingName = "clave"
DgColum.Width = 300
'añado la columna a dgstyle
DgStyle.GridColumnStyles.Add(DgColum)
DgColum = Nothing
' nombre
DgColum = New DataGridTextBoxColumn()
DgColum.TextBox.Enabled = False
DgColum.Alignment = HorizontalAlignment.Left
DgColum.HeaderText = "USUARIO"
DgColum.MappingName = "nombre"
DgColum.Width = 800
'añado la columna a dgstyle
DgStyle.GridColumnStyles.Add(DgColum)
DgColum = Nothing

' añado al datagrid (Dg) su contenedor (dgstyle)
Dg.TableStyles.Add(DgStyle)


'///////////////////////////
'lo cargo en el formulario
'cuando creas un objeto en tiempo de ejecucion, no debes de crearlo en el formulario.
'lo añades al formulario de la siguiente manera.
'programa operativo y funcional, vamos, copiar, pegar y a funcionar.
'///////////////////////////
Me.Controls.Add(Dg)


End Sub
End Class
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

datagrid invisible

Publicado por kiketo (2 intervenciones) el 10/02/2012 03:26:37
Maestro Ros, se agradece su respuesta , ya estaba al borde de la histeria..... funcionó a la perfección.
un abrazo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar