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