Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
SQL Server 2000/2005/2008, Express, Access, MySQL, Oracle
Riepire datagridview e form da datagridview
venerdì 15 maggio 2015 - 18.02
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
1nostromo
Profilo
| Newbie
2
messaggi | Data Invio:
ven 15 mag 2015 - 18:02
Ciao a tutti spero di essere utile a qualcuno. Ho trovato questo codice molto semplice per riempire un form con DataGridView e con l'evento click riempire un form a lui collegato, è molto semplice e voglio condividerlo con voi
il mio è un programma che utilizza un db Access.
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
Private Sub DataGridView1_RowEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.RowEnter
' Me.DataGridView1.Rows(Me.DataGridView1.CurrentRow.Index).Selected = True
End Sub
Private Sub tsmPulisciTutto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tsmPulisciTutto.Click
'DataGridView1.Rows.Clear()
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 !