SQL Table Informations

[danasegarane]

'This code will display the SQL Table Information

'Global declartion
Imports System.Data
Imports System.Data.SqlClient

'In a Form
'Add one command button and name it as Button2
'Add one Dropdownbox and name it as cmbTablenames
'Add one DataGridview control
'And in the command button click event add this code

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim con As New SqlConnection("User ID=sa;pwd=secreate;Initial Catalog=YourDatabaseName;Data Source=SQLSERVERNAME")
            Dim SchemaAdapter As New SqlDataAdapter("SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_TYPE = 'BASE TABLE' ORDER BY TABLE_NAME", con)
            con.Open()
            Dim Schematable As New DataTable
            SchemaAdapter.Fill(Schematable)
            Dim i As Long
            For i = 1 To Schematable.Rows.Count - 1
                cmbTablenames.Items.Add(Schematable.Rows(i).Item("TABLE_NAME").ToString) 'add the tablenames
            Next
            Schematable.Dispose()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub

'FUNCTION TO DISPLAY THE TABLE INFORMATION WITH RESPECT TO TABLENAME
 Private Sub DisplayTableInformation(ByVal tablename As String)
        Try

            'Function to display the table information
            'Add a datagridview control
            Dim con As New SqlConnection"User ID=sa;pwd=secreate;Initial Catalog=YourDatabaseName;Data Source=SQLSERVERNAME")
            Dim SQL As String
            SQL = "SELECT * FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME ='" & tablename & "'"
            Dim SchemaAdapter As New SqlDataAdapter(SQL, con)
            con.Open()
            Dim Schematable As New DataTable
            SchemaAdapter.Fill(Schematable)
            DataGridView1.DataSource = Schematable
             Schematable.Dispose()
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
'In the DropDownBox Change event add this code
Private Sub cmbTablenames_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbTablenames.SelectedIndexChanged
        DisplayTableInformation(cmbTablenames.Text)
    End Sub