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,