Torna al Thread

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect Dim thisConnection As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\nomeDABASE.mdf;Integrated Security=True;User Instance=True") 'Sql Query Dim sql As String = "SELECT * From " & e.Node.Text Try ' Open Connection thisConnection.Open() ' Create Data Adapter Dim da As New SqlDataAdapter(sql, thisConnection) ' Create and fill Dataset Dim ds As New DataSet da.Fill(ds, e.Node.Text) ' Get Data Table Dim dt As DataTable = ds.Tables(e.Node.Text) Me.DataGridView1.DataSource = dt 'Questo codice serve per nascondere eventuali colonne Dim col As DataGridViewColumn For Each col In Me.DataGridView1.Columns If col.Name.StartsWith("id_") = True Then col.Visible = False End If Next 'Qui formattiamo la nostra DGV Me.DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect Me.DataGridView1.MultiSelect = False Catch ex As SqlException ' Display error Console.WriteLine("Error: " & ex.ToString()) Finally ' Close Connection thisConnection.Close() Console.WriteLine("Connection Closed") End Try End Sub
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5