VISUAL NET
Enviado por oscarin696 • 17 de Marzo de 2015 • 1.409 Palabras (6 Páginas) • 311 Visitas
Uso básico de Datagridview (DataSet y SQL server 2008)
A continuación,
Como llenar de datos un datagridview por medio de un dataset en visual studio 2010 (VB.NET) y SQL server 2008.
Lo haré de dos formas.
1. Asignando a la propiedad de la tabla source el dataset
2. Recorriendo el dataset y agregando los datos a la tabla
Nota: Según microsoft un dataset representa una caché de memoria interna de datos.
Primero tenemos que hacer lo siguiente:
Nota: no necesariamente tienen que poner los mismos nombres es según la necesidad del lector
1. Crear una base de datos llamada DBEJEMPLO
2. Crear una una tabla llamada DEPARTAMENTOS con los siguientes
• id_departamento nvarchar(5) Unchecked
• descripcion nvarchar(30) Checked
1. Crear un nuevo proyecto en visual studio .net llamado LLENARDATAGRIDVIEW
2. Ir a herramientas y seleccionar una DATAGRIDVIEW y arrastrarlo al formulario FORM1 que se genera automáticamente.
3. Crear FORM2, agregarle un DATAGRIDVIEW y además Crearle dos columnas.
4. Hasta aquí tendremos:
5.Creamos una clase llamada DATOS
Nota: La programación del código es orientada a objetos, no estructurada.
6. La clase tendrá el siguiente código:
________________________________________
Imports System.Data
Imports System.Data.SqlClient
Public Class datos
private ServerName As String = "." 'Nombre del servidor local, pueden escribir ".", si no les funciona escriban el nombre completo, por ejemplo: "EVELYN-PC\SQLEXPRESS"
private DBname As String = "DBEJEMPLO" ' Nombre de la base de datos
private sqlstringConexion As String = "Data Source=" + Servername + ";Initial Catalog=" + DBname + ";Integrated Security=True"
private Sqlconexion As New SqlClient.SqlConnection(sqlstringConexion) ' asigna la conexion de la base de datos con string de la conexion
private SqlCommand As SqlClient.SqlCommand
private Sqldapter As New SqlClient.SqlDataAdapter
private SqlDataAdapter As SqlDataAdapter
Private Function CargarDataset(ByVal SqlString As String, ByVal tabla As String) As DataSet
Try
Dim SQLdataset As New DataSet
Sqlconexion.Open()
Sqldapter = New SqlDataAdapter(SqlString, Sqlconexion)
Sqldapter.Fill(SQLdataset, tabla)
Return SQLdataset
Catch ex As Exception
Return Nothing
MessageBox.Show("No se pudo completar la operación, intente de verificar la conexión a la base de datos.", "Fallo conexión a la base de datos", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
Sqlconexion.Close()
End Try
End Function
Public Sub Cargargrid(ByVal formulario As String,
...