Lggere un DataGridView e riempire un form

venerdì 15 maggio 2015 - 17.54

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

1nostromo Profilo | Newbie

2 messaggi | Data Invio: ven 15 mag 2015 - 17:54

Buona sera a tutti sono un auto didatta che mi diverte la programmazione in ambiente vb2010. Ho risolto un piccolo problema che ho avuto, lo voglio condividere con chi magari ha o avrà il mio stesso problema come da titolo, il codice è il seguente, è molto semplice, però lo voglio condividere con voi;
Naturalmente si deve creare un nuovo form con DataGridView all'interno del progetto già creato con altri form di inserimento dati con .db access. Spero di essere utile a qualcuno

;p.s. se c'è qualcuno che lo migliora è meglio, ciao a tutti.

Imports ADOX
Imports System.Data.OleDb
Imports System
Imports System.Data

Public Class frmStampa
Dim NumeroValido As Boolean = False
Dim ds As DataSet
Dim Archivio As OleDbConnection
Dim da As OleDbDataAdapter
Dim NumeroMassimo As Integer 'Numeri
Dim NumeroMinimo As Integer
Dim Indice As Integer

Private Property i As Integer
Public Function Apici(ByVal s As String) As String
'Accettazione degli accenti nel txtPrestazioni
Apici = Chr(34) & s & Chr(34)
End Function
Private Sub frmStampa_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim StrProvider As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=|DataDirectory|\ArchivioPrestazioni.mdb"

Dim StrSql As String = "SELECT ID_InfoClienti,Cognome,Nome,Data_di_Nascita,Via " _
& ",Localita,N_Telefono_Fisso,Telefono_Mobile,Partita_IVA " _
& ",Codice_Fiscale,Patologia,PatologiaRiscontrata " _
& ",FarmaciUso FROM tblClienti ORDER BY Cognome,Nome"
'oggetto connection
Dim Archivio As New OleDbConnection(StrProvider)
Try
'apro connessione
Archivio.Open()
'creo un dataset
Dim dtsDati As New DataSet
'creo un oggetto di tipo dataAdapter
Dim DtaDati As New OleDbDataAdapter(StrSql, Archivio)
'valorizzo il dataset
DtaDati.Fill(dtsdati, " tblClienti ")

'creazione della colonna nome
Dim ColumnID_InfoClienti As New DataGridViewTextBoxColumn
ColumnID_InfoClienti.DataPropertyName = "ID_InfoClienti"
ColumnID_InfoClienti.HeaderText = "ID"
ColumnID_InfoClienti.Name = "ID_InfoClienti"

Dim ColumnCognome As New DataGridViewTextBoxColumn
ColumnCognome.DataPropertyName = "Cognome"
ColumnCognome.HeaderText = "Cognome"
ColumnCognome.Name = "Cognome"

Dim ColumnNome As New DataGridViewTextBoxColumn
ColumnNome.DataPropertyName = "Nome"
ColumnNome.HeaderText = "Nome"
ColumnNome.Name = "Nome"

Dim ColumnData_di_Nascita As New DataGridViewTextBoxColumn
ColumnData_di_Nascita.DataPropertyName = "Data_di_Nascita"
ColumnData_di_Nascita.HeaderText = "Data di Nascita"
ColumnData_di_Nascita.Name = "Data_di_Nascita"

Dim ColumnVia As New DataGridViewTextBoxColumn
ColumnVia.DataPropertyName = "Via"
ColumnVia.HeaderText = "Via"
ColumnVia.Name = "Via"

Dim ColumnLocalita As New DataGridViewTextBoxColumn
ColumnLocalita.DataPropertyName = "Localita"
ColumnLocalita.HeaderText = "Localita"
ColumnLocalita.Name = "Localita"

Dim ColumnN_Telefono_Fisso As New DataGridViewTextBoxColumn
ColumnN_Telefono_Fisso.DataPropertyName = "N_Telefono_Fisso"
ColumnN_Telefono_Fisso.HeaderText = "N_Telefono_Fisso"
ColumnN_Telefono_Fisso.Name = "N_Telefono_Fisso"

Dim ColumnTelefono_Mobile As New DataGridViewTextBoxColumn
ColumnTelefono_Mobile.DataPropertyName = "Telefono_Mobile"
ColumnTelefono_Mobile.HeaderText = "Telefono_Mobile"
ColumnTelefono_Mobile.Name = "Telefono_Mobile"

Dim ColumnPartita_IVA As New DataGridViewTextBoxColumn
ColumnPartita_IVA.DataPropertyName = "Partita_IVA"
ColumnPartita_IVA.HeaderText = "Partita_IVA"
ColumnPartita_IVA.Name = "Partita_IVA"

Dim ColumnCodice_Fiscale As New DataGridViewTextBoxColumn
ColumnCodice_Fiscale.DataPropertyName = "Codice_Fiscale"
ColumnCodice_Fiscale.HeaderText = "Codice_Fiscale"
ColumnCodice_Fiscale.Name = "Codice_Fiscale"

Dim ColumnPatologia As New DataGridViewTextBoxColumn
ColumnPatologia.DataPropertyName = "Patologia"
ColumnPatologia.HeaderText = "Patologia"
ColumnPatologia.Name = "Patologia"

Dim ColumnPatologiaRiscontrata As New DataGridViewTextBoxColumn
ColumnPatologiaRiscontrata.DataPropertyName = "PatologiaRiscontrata"
ColumnPatologiaRiscontrata.HeaderText = "PatologiaRiscontrata"
ColumnPatologiaRiscontrata.Name = "PatologiaRiscontrata"

Dim ColumnFarmaciUso As New DataGridViewTextBoxColumn
ColumnFarmaciUso.DataPropertyName = "FarmaciUso"
ColumnFarmaciUso.HeaderText = "FarmaciUso"
ColumnFarmaciUso.Name = "FarmaciUso"

'Inserisco le varie colonne
DataGridView1.Columns.Insert(0, ColumnID_InfoClienti)
DataGridView1.Columns.Insert(1, ColumnCognome)
DataGridView1.Columns.Insert(2, ColumnNome)
DataGridView1.Columns.Insert(3, ColumnData_di_Nascita)
DataGridView1.Columns.Insert(4, ColumnVia)
DataGridView1.Columns.Insert(5, ColumnLocalita)
DataGridView1.Columns.Insert(6, ColumnN_Telefono_Fisso)
DataGridView1.Columns.Insert(7, ColumnTelefono_Mobile)
DataGridView1.Columns.Insert(8, ColumnPartita_IVA)
DataGridView1.Columns.Insert(9, ColumnCodice_Fiscale)
DataGridView1.Columns.Insert(10, ColumnPatologia)
DataGridView1.Columns.Insert(11, ColumnPatologiaRiscontrata)
DataGridView1.Columns.Insert(12, ColumnFarmaciUso)

'lunghezza cella
DataGridView1.Columns.Item(0).Width = 50 'id
DataGridView1.Columns.Item(1).Width = 150 'cognome
DataGridView1.Columns.Item(2).Width = 150 'nome
DataGridView1.Columns.Item(3).Width = 150 'data di nascita
DataGridView1.Columns.Item(4).Width = 170 'via
DataGridView1.Columns.Item(5).Width = 170 'località
DataGridView1.Columns.Item(6).Width = 100 'N_Telefono_Fisso
DataGridView1.Columns.Item(7).Width = 100 'N_Telefono_mobile
DataGridView1.Columns.Item(8).Width = 160 'Partita_IVA
DataGridView1.Columns.Item(9).Width = 160 'Codice_Fiscale
DataGridView1.Columns.Item(10).Width = 300 'Patologia
DataGridView1.Columns.Item(11).Width = 300 'PatologiaRiscontrata
DataGridView1.Columns.Item(12).Width = 300 'FarmaciUso

'creazione della colonna cittÃ
' Dim columnemail As New DataGridViewLinkColumn
' columnemail.DataPropertyName = "Email"
' columnemail.HeaderText = "Email"
' columnemail.Name = "Email"
'creazione della colonna icona
' Dim ColumnIcona As New DataGridViewImageColumn
'ColumnIcona.HeaderText = "Icona"
'ColumnIcona.Name = "Icona"

DataGridView1.DataSource = dtsDati
DataGridView1.DataMember = " tblClienti "

Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Archivio.Close()
End Try

'togli la selezione
DataGridView1.ClearSelection()

'colora righe datgridview alterate
With Me.DataGridView1
.RowsDefaultCellStyle.BackColor = Color.LightBlue
.AlternatingRowsDefaultCellStyle.BackColor = Color.Beige
End With

'DataGridView1.ClearSelection()
'DataGridView1.CurrentCell = DataGridView1.Item(0, DataGridView1.RowCount - 1)
'DataGridView1.CurrentRow.Selected = True

'evento clic
'Dim r As Integer
' r = DataGridView1.CurrentRow.Index
' DataGridView1.Rows(r).Cells(0).Selected = True
End Sub

Private Sub btnEsci_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEsci.Click
Me.Close()
Me.Dispose()
End Sub

Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
'togli selezione
' Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
'selezione evento clic
Dim r As Integer
r = DataGridView1.CurrentRow.Index
DataGridView1.Rows(r).Cells(0).Selected = True
DataGridView1.Rows(r).Cells(1).Selected = True
DataGridView1.Rows(r).Cells(2).Selected = True
DataGridView1.Rows(r).Cells(3).Selected = True
DataGridView1.Rows(r).Cells(4).Selected = True
DataGridView1.Rows(r).Cells(5).Selected = True
DataGridView1.Rows(r).Cells(6).Selected = True
DataGridView1.Rows(r).Cells(7).Selected = True
DataGridView1.Rows(r).Cells(8).Selected = True
DataGridView1.Rows(r).Cells(9).Selected = True
DataGridView1.Rows(r).Cells(10).Selected = True
DataGridView1.Rows(r).Cells(11).Selected = True
DataGridView1.Rows(r).Cells(12).Selected = True

'copia il contenoto del dataGridViev nel form
frmDatiCliente.Label2.Visible = True
frmDatiCliente.Label2.Text = DataGridView1.Rows(r).Cells(0).Value
frmDatiCliente.txtCognome.Text = DataGridView1.Rows(r).Cells(1).Value
frmDatiCliente.txtNome.Text = DataGridView1.Rows(r).Cells(2).Value
frmDatiCliente.txtDataNascita.Text = DataGridView1.Rows(r).Cells(3).Value
frmDatiCliente.txtVia.Text = DataGridView1.Rows(r).Cells(4).Value
frmDatiCliente.cobLocalita.Text = DataGridView1.Rows(r).Cells(5).Value
frmDatiCliente.txtNTelefonoFisso.Text = DataGridView1.Rows(r).Cells(6).Value
frmDatiCliente.txtTelefonoMobile.Text = DataGridView1.Rows(r).Cells(7).Value
frmDatiCliente.txtPartitaIVA.Text = DataGridView1.Rows(r).Cells(8).Value
frmDatiCliente.txtCodiceFiscale.Text = DataGridView1.Rows(r).Cells(9).Value
frmDatiCliente.txtPatologia.Text = DataGridView1.Rows(r).Cells(10).Value
frmDatiCliente.txtPatologiaRiscontrata.Text = DataGridView1.Rows(r).Cells(11).Value
frmDatiCliente.txtFarmaciUso.Text = DataGridView1.Rows(r).Cells(12).Value

Me.Close()
End Sub

End Class

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !