viernes, 22 de mayo de 2009

Crea el contenido de un grid

Deberas crear un form y crear un grid llamado DATAGRIDVIEW1, puedes pegar el còdigo en el LOAD de la form y solo cambiar los nombre de los campos que llamaras.

campo_orden = "campo_numero"
Dim Ds As New DataSet
Dim Da As New SqlClient.SqlDataAdapter("select campo1, campo2, campo3, campo4, " & _
"campo5,campo6, campo7 from nombre_tabla order by " + campo_orden + " DESC ", Conexion)
Da.Fill(Ds, "nombre_tabla")

Dim miDataView As DataView = New DataView(Ds.Tables("nombre_tabla"))
DataGridView1.DataSource = miDataView
'Tamaño del campo
Me.DataGridView1.Columns(0).Width = 200
Me.DataGridView1.Columns(0).HeaderText = "campo1"
Me.DataGridView1.Columns(1).Width = 100
Me.DataGridView1.Columns(1).HeaderText = "campo2"

Me.DataGridView1.Columns(1).DefaultCellStyle.Format = "$ ##,###,###.##"
Me.DataGridView1.Columns(2).Width = 50
Me.DataGridView1.Columns(2).HeaderText = "campo3"
Me.DataGridView1.Columns(3).Width = 50
Me.DataGridView1.Columns(3).HeaderText = "campo4"
Me.DataGridView1.Columns(4).Width = 50
Me.DataGridView1.Columns(4).HeaderText = "campo5"
Me.DataGridView1.Columns(5).Width = 50
Me.DataGridView1.Columns(5).HeaderText = "campo6"
Me.DataGridView1.Columns(6).Width = 50
Me.DataGridView1.Columns(6).HeaderText = "campo7"
Conexion.Close()

Comparte