Torna al Thread

Private Sub Veicoli_Load(sender As Object, e As EventArgs) Handles MyBase.Load strSQL = "SELECT * FROM Veicoli Where ID_Anagrafica = '" & Label6.Text & "'" Dim data_Adapter As MySqlDataAdapter ' Create the SqlDataAdapter. data_Adapter = New MySqlDataAdapter(strSQL, Connection) ' Map Table to Contacts. data_Adapter.TableMappings.Add("Table", "Veicoli") ' Fill the DataSet. m_DataSet = New DataSet() data_Adapter.Fill(m_DataSet) ' Bind the DataGrid control to the Contacts DataTable. 'DataGrid1.SetDataBinding(m_DataSet, "authors") DataGridView1.DataSource = m_DataSet DataGridView1.DataMember = "Veicoli" 'Dichiaro le colonne (se non si dichiarano vengono create in base alla tabella) With DataGridView1 .RowHeadersVisible = False .Columns(0).HeaderCell.Value = "TARGA" .Columns(1).HeaderCell.Value = "VEICOLO" .Columns(2).HeaderCell.Value = "DATA INSERIMENTO" .Columns(3).HeaderCell.Value = "ID ANAGRAFICA" End With 'Definisco la larghezza di ogni singola colonna in pixel DataGridView1.Columns(0).Width = 100 DataGridView1.Columns(1).Width = 230 DataGridView1.Columns(2).Width = 100 DataGridView1.Columns(3).Width = 100 'Allineo il titolo delle colonne DataGridView1.Top = 0 DataGridView1.Left = 0 DataGridView1.Width = Me.Width DataGridView1.Height = Me.Height DataGridView1.Columns(0).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(1).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(2).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(3).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter 'allineo il contenuto delle colonne DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter 'Nascondo la colonna Me.DataGridView1.ColIDVeicoli() 'Aggiungo un button alla griglia Dim btn As New DataGridViewButtonColumn() DataGridView1.Columns.Add(btn) btn.HeaderText = "Modifica" btn.Text = "Modifica" btn.Name = "btn" btn.UseColumnTextForButtonValue = True End Sub
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5