Sección de ejemplos vb.net

50 - Cargar tabla de Sql server en un ListView

Código fuente de ejemplo en visual basic.net 2005, para visualizar una tabla de sql en un control ListView

El ejemplo es un formulario que carga las tablas en un combo, y al seleccionar una, se llena un Dataset con los registros y se añaden al control listview

Nota: la función para obtener los nombres de tablas y poder cargarlos en el combo, está sacado de este ejemplo en c# de la página del guille, es una simple función que utiliza una sentencia T-SQL y retorna un objeto DataTable y luego se enlaza a un control ListBox.

El enlace es el siguiente :Obteniendo información de objetos de SQL Server con ADO.NET. El nombre de la función es GetViews

Ejemplo

Iniciar un nuevo proyecto, añadir un Windows Form, y colocar los siguientes controles :

Un control Listview llamado ListView1
Un ComboBox llamado ComboBox1
Un Control Button llamado Button1
Configurar la cadena de conexión

Formulario

( Espacio de nombres usado en el ejemplo : Imports System.Data.SqlClient )

código fuente

Option Explicit On Option Strict On Imports System.Data.SqlClient Public Class Form1 Private name_bd As String = String.Empty ' Cadena de conexión para sql server express en modo local Private Const cs As String = "Data Source=(local)\SQLEXPRESS;" & _ "Integrated Security=True;" & _ "Initial Catalog=" ' función para llenar el LV Public Sub cargar_ListView( _ ByRef ListView As ListView, _ ByVal sql As String, _ ByVal db As String) Try ' Crea y abre una nueva conexión Using cn As New SqlConnection(cs & db) cn.Open() ' propiedades del SqlCommand Dim comando As New SqlCommand With comando .CommandType = CommandType.Text .CommandText = sql .Connection = cn End With Dim da As New SqlDataAdapter ' Crear nuevo SqlDataAdapter Dim dataset As New DataSet ' Crear nuevo dataset da.SelectCommand = comando ' llenar el dataset da.Fill(dataset, "Tabla") ' Propiedades del ListView With ListView .Items.Clear() .Columns.Clear() .View = View.Details .GridLines = True .FullRowSelect = True ' añadir los nombres de columnas For c As Integer = 0 To dataset.Tables("tabla").Columns.Count - 1 .Columns.Add(dataset.Tables("tabla").Columns(c).Caption) Next End With ' Añadir los registros de la tabla With dataset.Tables("tabla") For f As Integer = 0 To .Rows.Count - 1 Dim dato As New ListViewItem(.Rows(f).Item(0).ToString) ' recorrer las columnas For c As Integer = 1 To .Columns.Count - 1 dato.SubItems.Add(.Rows(f).Item(c).ToString()) Next ListView.Items.Add(dato) Next End With End Using ' errores Catch ex As Exception MsgBox(ex.Message.ToString) End Try End Sub ' Función que retorna un objeto DataTable para 'enlazarlo con el combobox y visualizar las tablas Private Function get_Tablas( _ ByVal la_base_de_datos As String) As DataTable Try ' nueva conexión a sql Using cn As New SqlConnection(cs) ' nuevo comando Dim comando As SqlCommand = New SqlCommand() ' Nuevo DataAdapter Dim da As SqlDataAdapter = New SqlDataAdapter() 'Nuevo DataTable Dim dt As DataTable = New DataTable() 'Asignación de propiedades para el comando With comando .Connection = cn .CommandType = CommandType.Text ' instrucción T-SQL para obtener las tablas .CommandText = "Use [" & la_base_de_datos & "] " & _ "Select * From INFORMATION_SCHEMA.TABLES " & _ "Where TABLE_TYPE = 'BASE TABLE'" da.SelectCommand = comando End With da.Fill(dt) ' retornar el dataTable Return dt End Using ' errores Catch ex As Exception MsgBox(ex.Message.ToString) End Try Return Nothing End Function Private Sub Form1_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Button1.Text = "Obtener tablas" ' Propiedades del ComboBox With ComboBox1 .ValueMember = "TABLE_CATALOG" .DisplayMember = "TABLE_NAME" End With End Sub Private Sub ComboBox1_SelectedIndexChanged( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged ' cargar los registros de la tabla indicada por el combobox cargar_ListView( _ ListView1, _ "Select * from [" & ComboBox1.Text.ToString & "]", _ name_bd) End Sub Private Sub Button1_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click name_bd = InputBox("Escribir el nombre de la base de datos") If name_bd <> String.Empty Then Try ' Indicar la base de datos para recuperar 'y cargar las tablas en la lista ComboBox1.DataSource = get_Tablas(name_bd.Trim) Catch ex As Exception MsgBox(ex.Message.ToString) End Try End If End Sub End Class

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb