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,
🙂
Hola compañero Pep!
Un apunte: También es posible usar las vistas de sistema ‘Information Schema’, por ejemplo en este caso la vista TABLES:
SELECT * FROM INFORMATION_SCHEMA.TABLES
Más info: http://msdn.microsoft.com/en-us/library/ms186224.aspx
Saludos y recuerdos a la gente de Seattle,
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.