[VB.NET 2010] Associare Textbox a Cella Datagrid

Ludo237 · 07-12-2010, 19:17

Rieccomi

Dopo 4 giorni passati a risolvere un bug di crossthreading e di Connessione ai DB mi ritrovo davanti ad un ostacolo dettato dalla mia inesperienza su *.NET (1 mese circa che ci "smanetto")
in poche parole io ho una datagrid ben costruita (tutta tramite codice , postato sotto) e vorrei riempire il campo di una textbox con il valore selezionato (tramite mouse) dal datagrid , in modo tale da poterlo modificare

Codice:

 'Impostiamo la connessione all avvio del form
        DataAdapter.SelectCommand = New OleDbCommand()
        'Credo la connessione al comando
        DataAdapter.SelectCommand.Connection = Connessione
        'Creo la Query
        DataAdapter.SelectCommand.CommandText = "SELECT * FROM email"
        DataAdapter.SelectCommand.CommandType = CommandType.Text
        'Apro la Connessione con il Database
        Connessione.Open()
        'Inserisco le intestazioni nel dataset
        DataAdapter.Fill(DataSet, "email")
        'Chiudo la connessione con il Database
        Connessione.Close()
        'Creo i dati in Gridview
        DataGridView1.AutoGenerateColumns = True
        DataGridView1.DataSource = DataSet
        DataGridView1.DataMember = "email"
        'Modifico qualche proprietà di visualizzazione del DataGridView
        Dim ColoreAlternatoCelle As New DataGridViewCellStyle()
        ColoreAlternatoCelle.BackColor = Color.WhiteSmoke
        DataGridView1.AlternatingRowsDefaultCellStyle = ColoreAlternatoCelle
        DataGridView1.Columns(0).HeaderText = "ID Univoco E-Mail"
        DataGridView1.Columns(1).HeaderText = "E-Mail"
        'Pulisco il buffer
        AggiungiEmail_button.Enabled = False

questo è il codice di "creazione" del datagrid.

per la Textbox come faccio ?

MarcoGG · 07-12-2010, 20:17

Puoi farlo semplicemente sfruttando l'evento CellClick del DataGridView ( d'ora in poi : DGV ) :

Codice:

   Private Sub DGV_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellClick

        Try
            TextBox1.Text = DGV(e.ColumnIndex, e.RowIndex).Value
        Catch ex As Exception

        End Try

    End Sub

Il perchè del blocco Try Catch è spiegato dal fatto che eventuali multi-selezioni condurrebbero all'errore ( prova a rimuoverlo e a selezionare una riga intera... ).

Quando hai finito di editare nella TextBox il valore prelevato dalla DGV, lo reimposti nella stessa cella selezionata con :

Codice:

DGV.SelectedCells(0).Value = TextBox1.Text

Ludo237 · 08-12-2010, 20:01

Grazie ora provo

Ludo237 · 08-12-2010, 20:05

Quote:

Originariamente inviato da MarcoGG

Puoi farlo semplicemente sfruttando l'evento CellClick del DataGridView ( d'ora in poi : DGV ) :

Codice:

   Private Sub DGV_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellClick

        Try
            TextBox1.Text = DGV(e.ColumnIndex, e.RowIndex).Value
        Catch ex As Exception

        End Try

    End Sub

Il perchè del blocco Try Catch è spiegato dal fatto che eventuali multi-selezioni condurrebbero all'errore ( prova a rimuoverlo e a selezionare una riga intera... ).

Quando hai finito di editare nella TextBox il valore prelevato dalla DGV, lo reimposti nella stessa cella selezionata con :

Codice:

DGV.SelectedCells(0).Value = TextBox1.Text

Funziona , manco a dirlo hai sempre ragione !!!!

Grazie ancora !

Ludo237 · 09-12-2010, 15:49

Quote:

Originariamente inviato da MarcoGG

Puoi farlo semplicemente sfruttando l'evento CellClick del DataGridView ( d'ora in poi : DGV ) :

Codice:

   Private Sub DGV_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellClick

        Try
            TextBox1.Text = DGV(e.ColumnIndex, e.RowIndex).Value
        Catch ex As Exception

        End Try

    End Sub

Il perchè del blocco Try Catch è spiegato dal fatto che eventuali multi-selezioni condurrebbero all'errore ( prova a rimuoverlo e a selezionare una riga intera... ).

Quando hai finito di editare nella TextBox il valore prelevato dalla DGV, lo reimposti nella stessa cella selezionata con :

Codice:

DGV.SelectedCells(0).Value = TextBox1.Text

cosi però il valore non va a salvarsi sul database giusto ?

MarcoGG · 09-12-2010, 15:56

Quote:

Originariamente inviato da Ludo237

cosi però il valore non va a salvarsi sul database giusto ?

Ed è giusto che sia così.

Il DB riceve le modifiche solo sull'Update della fonte dati a cui è collegato il DGV. Ovviamente puoi sceglire tu quando eseguirlo, anche ad ogni modifica di una singola cella tramite quella TextBox, volendo...

Ludo237 · 09-12-2010, 17:01

Quote:

Originariamente inviato da MarcoGG

Ed è giusto che sia così.

Il DB riceve le modifiche solo sull'Update della fonte dati a cui è collegato il DGV. Ovviamente puoi sceglire tu quando eseguirlo, anche ad ogni modifica di una singola cella tramite quella TextBox, volendo...

infatti ho fatto cosi

Codice:

If ModificaEmail_textbox.Text = "" And ID = 0 Then
            ErroreMod_Label.Text = "Il campo E-Mail è Vuoto"
            Salva_button.Enabled = False
        Else
            Dim Email As String = ModificaEmail_textbox.Text
            If EmailAddressCheck(Email) = False Then
                ErroreMod_Label.Text = "E-Mail non corretta, Prego inserire una E-Mail valida"
                Salva_button.Enabled = False
            Else
                'Dichiarazione di nuove variabili per l'evento
                Dim Comando As OleDbCommand = New OleDbCommand()
                'Inserisco la nuova E-Mail
                Comando.Connection = Connessione
                Comando.CommandText = "UPDATE email SET email = @EMAIL WHERE id_email = @ID"
                Comando.Parameters.AddWithValue("@ID", ID)
                Comando.Parameters.AddWithValue("@EMAIL", Email)
                'Apriamo la connessione
                Connessione.Open()
                'Eseguiamo e vediamo se funziona
                Try
                    Comando.ExecuteNonQuery()
                Catch Eccezione As OleDb.OleDbException
                    MessageBox.Show(Eccezione.Message)
                End Try
                'Aggiorniamo il DataGridView1
                Connessione.Close()
                DataSet.Clear()
                'Impostiamo la connessione all avvio del form
                DataAdapter.SelectCommand = New OleDbCommand()
                'Credo la connessione al comando
                DataAdapter.SelectCommand.Connection = Connessione
                'Creo la Query
                DataAdapter.SelectCommand.CommandText = "SELECT * FROM email"
                DataAdapter.SelectCommand.CommandType = CommandType.Text
                'Apro la Connessione con il Database
                Connessione.Open()
                'Inserisco le intestazioni nel dataset
                DataAdapter.Fill(DataSet, "email")
                'Segnaliamo che è andato tutto bene
                SmsPanel.Logbox.Items.Add(Now() & "   Modificata E-Mail : " & VecchiaEmail & " in " & ModificaEmail_textbox.Text)
                ModificaEmail_textbox.Text = ""
                ErroreMod_Label.Text = "E-Mail Modificata Con successo!"
                'Chiudiamo la connession
                Connessione.Close()
            End If

            Salva_button.Enabled = False
        End If

Solo che cosi il datagridview non si aggiorna O.o e nemmeno il DB access e come se la QUERY UPDATE non funzionasse ! però ho fatto la stessa identica cosa per un insert into e funziona benissimo , Perchè?

codice inser into

Codice:

 Dim Email As String = Email_textbox.Text
        'Inserisci nuova E-Mail
        If Email_textbox.Text = "" Then
            Errore_label.Text = "Campo E-Mail VUOTO!, Prego inserire una E-Mail valida"
        Else
            'Altro codice
            If EmailAddressCheck(Email) = False Then
                Errore_label.Text = "E-Mail non corretta, Prego inserire una E-Mail valida"
            Else
                'Dichiarazione di nuove variabili per l'evento
                Dim Comando As OleDbCommand = New OleDbCommand()
                'Inserisco la nuova E-Mail
                Comando.Connection = Connessione
                Comando.CommandText = "INSERT INTO email (email) VALUES(@email)"
                Comando.Parameters.AddWithValue("@email", Email)
                'Apriamo la connessione
                Connessione.Open()
                'Eseguiamo e vediamo se funziona
                Try
                    Comando.ExecuteNonQuery()
                Catch Eccezione As OleDb.OleDbException
                    MessageBox.Show(Eccezione.Message)
                End Try
                'Aggiorniamo il DataGridView1
                Connessione.Close()
                DataSet.Clear()
                'Impostiamo la connessione all avvio del form
                DataAdapter.SelectCommand = New OleDbCommand()
                'Credo la connessione al comando
                DataAdapter.SelectCommand.Connection = Connessione
                'Creo la Query
                DataAdapter.SelectCommand.CommandText = "SELECT * FROM email"
                DataAdapter.SelectCommand.CommandType = CommandType.Text
                'Apro la Connessione con il Database
                Connessione.Open()
                'Inserisco le intestazioni nel dataset
                DataAdapter.Fill(DataSet, "email")
                'Segnaliamo che è andato tutto bene
                SmsPanel.Logbox.Items.Add(Now() & "   Aggiunta E-Mail : " & Email_textbox.Text)
                Email_textbox.Text = ""
                Errore_label.Text = "E-Mail Aggiunta Con successo!"
                'Chiudiamo la connession
                Connessione.Close()
                Email = ""
                AggiungiEmail_button.Enabled = False
            End If
        End If

Ovviamente sono due Private Sub evento() Separate una associata a Salva_button e l'altra ad Aggiungi Button

MarcoGG · 09-12-2010, 20:28

Non entro nel merito di quei codici. Da un rapido esame ti dico subito che è una tecnica che non userei...
Se avessi dato un'occhiata all'area Discussioni sulla mia pagina FB, avresti trovato un link a questo thread :
http://www.hwupgrade.it/forum/showthread.php?t=2275776

vedi mio post #8.

Quello è un metodo semplice, leggibile e sicuro per gestire una DGV.
Fossi in te ci farei un pensierino...

Ludo237 · 10-12-2010, 12:28

Quote:

Originariamente inviato da MarcoGG

Non entro nel merito di quei codici. Da un rapido esame ti dico subito che è una tecnica che non userei...
Se avessi dato un'occhiata all'area Discussioni sulla mia pagina FB, avresti trovato un link a questo thread :
http://www.hwupgrade.it/forum/showthread.php?t=2275776

vedi mio post #8.

Quello è un metodo semplice, leggibile e sicuro per gestire una DGV.
Fossi in te ci farei un pensierino...

La tua pagina l'avevo visitata , ma quel thread mi era sfuggito perchè stavo pensando ad altro

Ora controllo

Ho visto il codice e ho capito ! , ora cerco di adattarlo alla mia esigenza perchè ho bisogno che la modifica sia applicata dalla Textbox e non dalla griglia

Ludo237 · 10-12-2010, 15:12

Il problema non è DataGridView o il DataSet , il problema è che il pulsante "Applica Modifiche" (prendere il testo dentro ad una textbox) non le applica nemmeno al Database ... ergo non si aggiornerà mai il DataSet ne il Datagridview

MarcoGG · 10-12-2010, 15:26

Quote:

Originariamente inviato da Ludo237

Il problema non è DataGridView o il DataSet , il problema è che il pulsante "Applica Modifiche" (prendere il testo dentro ad una textbox) non le applica nemmeno al Database ... ergo non si aggiornerà mai il DataSet ne il Datagridview

La modifica su TextBox ovviamente non produce alcun Update a DB.
Ma se prima aggiorni la cella della DGV ( che dev'essere bindata al DataSet, come nel mio esempio ), e poi usi quel codice :

Codice:

        If DS.HasChanges() Then
            Using CB As New OleDb.OleDbCommandBuilder(DA)
                DA.UpdateCommand = CB.GetUpdateCommand
                DA.InsertCommand = CB.GetInsertCommand
                DA.DeleteCommand = CB.GetDeleteCommand
                DA.Update(DS)
            End Using
            DS.AcceptChanges()
            MsgBox("Modifiche Salvate", MsgBoxStyle.Information, "OK")
        End If

Vedrai che funziona eccome...

Se segui quella tecnica alla lettera non puoi sbagliare.
Se invece stai tentando un "mix" tra la mia tecnica e il tuo tentativo precedente, temo che ci sarà parecchio da

.

Ludo237 · 10-12-2010, 15:30

Quote:

Originariamente inviato da MarcoGG

La modifica su TextBox ovviamente non produce alcun Update a DB.
Ma se prima aggiorni la cella della DGV ( che dev'essere bindata al DataSet, come nel mio esempio ), e poi usi quel codice :

Codice:

        If DS.HasChanges() Then
            Using CB As New OleDb.OleDbCommandBuilder(DA)
                DA.UpdateCommand = CB.GetUpdateCommand
                DA.InsertCommand = CB.GetInsertCommand
                DA.DeleteCommand = CB.GetDeleteCommand
                DA.Update(DS)
            End Using
            DS.AcceptChanges()
            MsgBox("Modifiche Salvate", MsgBoxStyle.Information, "OK")
        End If

Vedrai che funziona eccome...

Se segui quella tecnica alla lettera non puoi sbagliare.
Se invece stai tentando un "mix" tra la mia tecnica e il tuo tentativo precedente, temo che ci sarà parecchio da

.

Nono nessun mix , è che io nn volevo far modificare il campo del record dal DGV ,mi sembrava poco carino . invece selezionavo la cella , il suo contenuto viene riportato nella textbox e modificato , dopodiché si premeva il tasto "Applica modifiche".

Teoricamente cosi dovrei essere "Indipendente" dal DVG

MarcoGG · 10-12-2010, 15:51

Quote:

Originariamente inviato da Ludo237

Nono nessun mix , è che io nn volevo far modificare il campo del record dal DGV ,mi sembrava poco carino . invece selezionavo la cella , il suo contenuto viene riportato nella textbox e modificato , dopodiché si premeva il tasto "Applica modifiche".

Teoricamente cosi dovrei essere "Indipendente" dal DVG

Allora metti assieme quanto avevo già suggerito per la TextBox :

Codice:

DGV.SelectedCells(0).Value = TextBox1.Text

Con :

Codice:

            Using CB As New OleDb.OleDbCommandBuilder(DA)
                DA.UpdateCommand = CB.GetUpdateCommand
                DA.InsertCommand = CB.GetInsertCommand
                DA.DeleteCommand = CB.GetDeleteCommand
                DA.Update(DS)
            End Using
            DS.AcceptChanges()
            MsgBox("Modifiche Salvate", MsgBoxStyle.Information, "OK")

Ludo237 · 10-12-2010, 16:05

Questo nell evento DVG_CellClick ?

Codice:

DGV.SelectedCells(0).Value = TextBox1.Text

Questo nel pulsante ApplicaModifiche ?

Codice:

            Using CB As New OleDb.OleDbCommandBuilder(DA)
                DA.UpdateCommand = CB.GetUpdateCommand
                DA.InsertCommand = CB.GetInsertCommand
                DA.DeleteCommand = CB.GetDeleteCommand
                DA.Update(DS)
            End Using
            DS.AcceptChanges()
            MsgBox("Modifiche Salvate", MsgBoxStyle.Information, "OK")

Ok ora provo

MarcoGG · 10-12-2010, 16:15

Eh, NO !

Adesso ho capito perchè non va. Se vuoi aggiornare tutto dopo l'edit della TextBox, va tutto insieme nell'Applica-Modifiche :

Codice:

	DGV.SelectedCells(0).Value = TextBox1.Text
	Using CB As New OleDb.OleDbCommandBuilder(DA)
                DA.UpdateCommand = CB.GetUpdateCommand
                DA.InsertCommand = CB.GetInsertCommand
                DA.DeleteCommand = CB.GetDeleteCommand
        DA.Update(DS)
        End Using
        DS.AcceptChanges()
        MsgBox("Modifiche Salvate", MsgBoxStyle.Information, "OK")

Ludo237 · 10-12-2010, 16:20

Quote:

Originariamente inviato da MarcoGG

Allora metti assieme quanto avevo già suggerito per la TextBox :

Codice:

DGV.SelectedCells(0).Value = TextBox1.Text

Con :

Codice:

            Using CB As New OleDb.OleDbCommandBuilder(DA)
                DA.UpdateCommand = CB.GetUpdateCommand
                DA.InsertCommand = CB.GetInsertCommand
                DA.DeleteCommand = CB.GetDeleteCommand
                DA.Update(DS)
            End Using
            DS.AcceptChanges()
            MsgBox("Modifiche Salvate", MsgBoxStyle.Information, "OK")

Quote:

Originariamente inviato da MarcoGG

Eh, NO !

Adesso ho capito perchè non va. Se vuoi aggiornare tutto dopo l'edit della TextBox, va tutto insieme nell'Applica-Modifiche :

Codice:

	DGV.SelectedCells(0).Value = TextBox1.Text
	Using CB As New OleDb.OleDbCommandBuilder(DA)
                DA.UpdateCommand = CB.GetUpdateCommand
                DA.InsertCommand = CB.GetInsertCommand
                DA.DeleteCommand = CB.GetDeleteCommand
        DA.Update(DS)
        End Using
        DS.AcceptChanges()
        MsgBox("Modifiche Salvate", MsgBoxStyle.Information, "OK")

Ti dovrebbero fare santo !

per il tuo aiuto il minimo che mi sembrava oneroso fare è sostenere la tua pagina di FB (guarda la mia firma)

MarcoGG · 10-12-2010, 16:50

Quote:

Originariamente inviato da Ludo237

Ti dovrebbero fare santo !

per il tuo aiuto il minimo che mi sembrava oneroso fare è sostenere la tua pagina di FB (guarda la mia firma)

Grande !

E' proprio lo spirito giusto !

07-12-2010, 20:17	#2
MarcoGG Senior Member Iscritto dal: Dec 2004 Messaggi: 3210	Puoi farlo semplicemente sfruttando l'evento CellClick del DataGridView ( d'ora in poi : DGV ) : Codice: Private Sub DGV_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellClick Try TextBox1.Text = DGV(e.ColumnIndex, e.RowIndex).Value Catch ex As Exception End Try End Sub Il perchè del blocco Try Catch è spiegato dal fatto che eventuali multi-selezioni condurrebbero all'errore ( prova a rimuoverlo e a selezionare una riga intera... ). Quando hai finito di editare nella TextBox il valore prelevato dalla DGV, lo reimposti nella stessa cella selezionata con : Codice: DGV.SelectedCells(0).Value = TextBox1.Text __________________ Contattami su FaceBook --> [ ::: MarcoGG su FaceBook ::: ] Visita il mio Blog --> [ ::: Il Blog di MarcoGG ::: ]

08-12-2010, 20:01	#3
Ludo237 Member Iscritto dal: Feb 2009 Città: Varese Messaggi: 205	Grazie ora provo __________________ http://www.malorgio.it http://blog.malorgio.it

10-12-2010, 15:12	#10
Ludo237 Member Iscritto dal: Feb 2009 Città: Varese Messaggi: 205	Il problema non è DataGridView o il DataSet , il problema è che il pulsante "Applica Modifiche" (prendere il testo dentro ad una textbox) non le applica nemmeno al Database ... ergo non si aggiornerà mai il DataSet ne il Datagridview __________________ http://www.malorgio.it http://blog.malorgio.it

10-12-2010, 16:15	#15
MarcoGG Senior Member Iscritto dal: Dec 2004 Messaggi: 3210	Eh, NO ! Adesso ho capito perchè non va. Se vuoi aggiornare tutto dopo l'edit della TextBox, va tutto insieme nell'Applica-Modifiche : Codice: DGV.SelectedCells(0).Value = TextBox1.Text Using CB As New OleDb.OleDbCommandBuilder(DA) DA.UpdateCommand = CB.GetUpdateCommand DA.InsertCommand = CB.GetInsertCommand DA.DeleteCommand = CB.GetDeleteCommand DA.Update(DS) End Using DS.AcceptChanges() MsgBox("Modifiche Salvate", MsgBoxStyle.Information, "OK") __________________ Contattami su FaceBook --> [ ::: MarcoGG su FaceBook ::: ] Visita il mio Blog --> [ ::: Il Blog di MarcoGG ::: ]

09-12-2010, 20:28	#8
MarcoGG Senior Member Iscritto dal: Dec 2004 Messaggi: 3210	Non entro nel merito di quei codici. Da un rapido esame ti dico subito che è una tecnica che non userei... Se avessi dato un'occhiata all'area Discussioni sulla mia pagina FB, avresti trovato un link a questo thread : http://www.hwupgrade.it/forum/showthread.php?t=2275776 vedi mio post #8. Quello è un metodo semplice, leggibile e sicuro per gestire una DGV. Fossi in te ci farei un pensierino... __________________ Contattami su FaceBook --> [ ::: MarcoGG su FaceBook ::: ] Visita il mio Blog --> [ ::: Il Blog di MarcoGG ::: ]

Strumenti
Mostra una versione stampabile Invia questa pagina per email