Enumerar las tablas de una BD (SQL)

Imports System.Data.SqlClient

Public Class Form1
    Private MiConexion As New SqlConnection( _
       “Data Source=.\SQLEXPRESS;AttachDbFilename=C:\MisBDs\NORTHWND.MDF” + _
       “;Integrated Security=True;Connect Timeout=30;User Instance=True”) 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MiConexion.Open()
        Dim MisTablas As DataTable = MiConexion.GetSchema( _
            “Tables”, New String() {Nothing, “dbo”, Nothing, “Base Table”})
        ComboBox1.DataSource = MisTablas
        ComboBox1.DisplayMember = “TABLE_NAME”
    End Sub
End Class

Para probar este ejemplo, solo tenéis que crear un nuevo proyecto “windows forms application” arrastrar y soltar un ‘combobox’ desde el ‘toolbox’ al ‘form1’, copiar y pegar el código adjunto y modificar la ruta de la ubicación de la BD SQL en el valor ‘attachdbfilename’ de la cadena de conexión.

Saludos,
Pep Lluis,

 

 

 

2 Replies to “Enumerar las tablas de una BD (SQL)”

  1. Suerte que los Megacraks estais siempre a la labor pa que los sencillos no cometamos errores 🙂

    Gracias!! por tu aporte y espero poder dar los saludos y recuerdos a la gente de Seattle de tu parte.

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.