Gros souci avec un datagridviewRésolu

Question

bonjour, 
nouveau en VB 2005 et sur ce forum, j'ai une question concernant le datagridview.
je crée un petit logiciel de gestion de compte, grace à un combobox je sélectionne le nom du compte. puis un bindingsource et un datagridview sont créés. le souci c'est que mon datagridview me mets les données en doublon lorsque je reclique sur le combobox, j'ai tenté les la méthode clear sur le datagridview et le bindingsource mais rien à faire. à l'aide..

voici le code de mon controle utilisateur.

Imports System.Data.SqlClient
Imports System.Data
Public Class CONSCOMPTE
Dim MyConnection As SqlConnection
Dim MyAdapter As SqlDataAdapter
Dim Mybindingsource As BindingSource
Dim Table As String
Dim MyDatagridview As DataGridView
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

Try
MyConnection = New SqlConnection
MyConnection.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\DONNEES.mdf;Integrated Security=True;User Instance=True"
Table = "COMPTE" & ComboBox1.Text
Dim SelectTable As String = "SELECT * FROM " & Table & ""
MyAdapter = New SqlDataAdapter(SelectTable, MyConnection)
Dim SelectDataSet As String = "DONNEESDataSet." & Table
Dim builder As SqlCommandBuilder = New SqlCommandBuilder(MyAdapter)

Mybindingsource = New BindingSource

MyConnection.Open()
MyAdapter.Fill(DONNEESDataSet, Table)
MyConnection.Close()

Mybindingsource.DataSource = DONNEESDataSet
Mybindingsource.DataMember = Table

' Datagridview

MyDatagridview = New DataGridView
Me.Controls.Add(MyDatagridview)
MyDatagridview.Rows.Clear()
MyDatagridview.DataSource = Mybindingsource
MyDatagridview.Location = New System.Drawing.Point(25, 50)
MyDatagridview.Size = New System.Drawing.Point(950, 500)

MyDatagridview.Columns(0).Width = 100
MyDatagridview.Columns(1).Width = 507
MyDatagridview.Columns(2).Width = 100
MyDatagridview.Columns(3).Width = 100
MyDatagridview.Columns(4).Width = 100

If MyDatagridview.RowCount = 1 Then

Mybindingsource.AddNew()
MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(0).Value = " "
MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(1).Value = "Solde du compte"
MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(2).Value = " "
MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(3).Value = " "
MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(4).Value = "0"
End If

Me.TabControl1.Visible = True
Catch
MsgBox("Connexion impossible")
End Try

End Sub

Private Sub CONSCOMPTE_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
If Me.Visible = True Then
Me.LOCATAIRESTableAdapter.Fill(Me.DONNEESDataSet.LOCATAIRES)
Me.OPERATIONSTableAdapter.Fill(Me.DONNEESDataSet.OPERATIONS)
End If
End Sub

Private Sub CANCEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CANCEL.Click
Try
LOCATAIRESBindingSource.CancelEdit()
Mybindingsource.CancelEdit()
MyDatagridview.CancelEdit()
Me.Controls.Remove(MyDatagridview)
Catch
MsgBox("Connexion impossible")
End Try
Me.Visible = False

End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
Mybindingsource.EndEdit()
MyAdapter.Update(DONNEESDataSet, Table)
MsgBox(MyDatagridview.RowCount)
MsgBox(Mybindingsource.Count)
MyDatagridview.Rows.Clear()
MsgBox(MyDatagridview.RowCount)
Mybindingsource.Clear()
MsgBox(Mybindingsource.Count)
Me.Controls.Remove(MyDatagridview)
Me.Visible = False
End Sub

Private Sub Nouveau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nouveau.Click
Nouveau.Visible = False
Modifier.Visible = False
DateTimePicker1.Visible = True
ComboBox2.Visible = True
TextBox2.Visible = True
Saisir.Visible = True
Annuler.Visible = True

End Sub

Private Sub Annuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Annuler.Click
Nouveau.Visible = True
Modifier.Visible = True
DateTimePicker1.Visible = False
ComboBox2.Visible = False
TextBox2.Visible = False
Saisir.Visible = False
Annuler.Visible = False
End Sub

Private Sub Saisir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Saisir.Click

Dim index As Integer

Mybindingsource.AddNew()
index = Mybindingsource.Position

MyDatagridview.Rows.Item(index).Cells.Item(0).Value = DateTimePicker1.Text
MyDatagridview.Rows.Item(index).Cells.Item(1).Value = ComboBox2.Text
MyDatagridview.Rows.Item(index).Cells.Item(2).Value = TextBox2.Text
MyDatagridview.Rows.Item(index).Cells.Item(3).Value = " "
If index > 0 Then
MyDatagridview.Rows.Item(index).Cells.Item(4).Value = CType(MyDatagridview.Rows.Item(index - 1).Cells.Item(4).Value, Integer) - CType(TextBox2.Text, Integer)
End If
Me.OPERATIONSBindingSource.EndEdit()
Me.OPERATIONSTableAdapter.Update(DONNEESDataSet.OPERATIONS)
Nouveau.Visible = True
Modifier.Visible = True
DateTimePicker1.Visible = False
ComboBox2.Visible = False
TextBox2.Visible = False
Saisir.Visible = False
Annuler.Visible = False
MsgBox("")

End Sub

Private Sub Annuler1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Annuler1.Click
Nouveau1.Visible = True
Modifier1.Visible = True
DateTimePicker2.Visible = False
ComboBox3.Visible = False
TextBox4.Visible = False
Saisir1.Visible = False
Annuler1.Visible = False
End Sub

Private Sub Nouveau1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nouveau1.Click
Nouveau1.Visible = False
Modifier1.Visible = False
DateTimePicker2.Visible = True
ComboBox3.Visible = True
TextBox4.Visible = True
Saisir1.Visible = True
Annuler1.Visible = True
End Sub

Private Sub Saisir1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Saisir1.Click
Dim index As Integer

Mybindingsource.AddNew()
index = Mybindingsource.Position

MyDatagridview.Rows.Item(index).Cells.Item(0).Value = DateTimePicker1.Text
MyDatagridview.Rows.Item(index).Cells.Item(1).Value = ComboBox3.Text
MyDatagridview.Rows.Item(index).Cells.Item(2).Value = " "
MyDatagridview.Rows.Item(index).Cells.Item(3).Value = TextBox4.Text
If index > 0 Then
MyDatagridview.Rows.Item(index).Cells.Item(4).Value = CType(MyDatagridview.Rows.Item(index - 1).Cells.Item(4).Value, Integer) + CType(TextBox4.Text, Integer)
End If
Me.OPERATIONSBindingSource.EndEdit()
Me.OPERATIONSTableAdapter.Update(DONNEESDataSet.OPERATIONS)
Nouveau1.Visible = True
Modifier1.Visible = True
DateTimePicker2.Visible = False
ComboBox3.Visible = False
TextBox4.Visible = False
Saisir1.Visible = False
Annuler1.Visible = False
End Sub

Private Sub CONSCOMPTE_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class
/i/size

cs_jeanmarc1234 · Accepted Answer

Bonjour !!

Je viens de trouver la soluce à mon problème, je charge mes donnees dans un datatable que je recrée à chaque sélection dans le combobox ! voici le code pour ce que ça pourras interresser.

Et encore merci  pour Tout TMONOD !!
Sub Connect()MyConnection New SqlConnectionMyConnection.ConnectionString 

"Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\DONNEES.mdf;Integrated Security=True;User Instance=True"CompTable = 

"COMPTE" & ComboBox1.Text

Dim SelectTable 
As
String = 
"SELECT * FROM " & CompTable & 
""MyAdapter = 

New SqlDataAdapter(SelectTable, MyConnection)

Dim builder 
As SqlCommandBuilder = 
New SqlCommandBuilder(MyAdapter)

Dim Table 
As
New DataTable()Mybindingsource = 

New BindingSourceMyConnection.Open()

MyAdapter.Fill(Table)

MyConnection.Close()

Mybindingsource.DataSource = Table

End
Sub

Sub CréerDataGridView()

Me.Controls.Remove(MyDatagridview)MyDatagridview = 

New DataGridView

Me.Controls.Add(MyDatagridview)MyDatagridview.Rows.Clear()

MyDatagridview.DataSource = Mybindingsource
MyDatagridview.Location New System.Drawing.Point(25, 50)MyDatagridview.Size 

New System.Drawing.Point(950, 500)MyDatagridview.Columns(0).Width = 100

MyDatagridview.Columns(1).Width = 507

MyDatagridview.Columns(2).Width = 100

MyDatagridview.Columns(3).Width = 100

MyDatagridview.Columns(4).Width = 100

If MyDatagridview.RowCount = 1 
ThenMybindingsource.AddNew()
MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(0).Value " "MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(1).Value 
"Solde du compte"MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(2).Value " "MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(3).Value 

" "MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(4).Value = 

"0"

End
If

End
Sub

Private
Sub ComboBox1_SelectedIndexChanged(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles ComboBox1.SelectedIndexChanged

TryConnect()

CréerDataGridView()

CatchMsgBox(

"Connexion impossible")

End
Try

End
Sub

TMONOD · Answer

Bonsoir,
Si tu separais un peu ton interface de la gestion des données nous y verions un peu plus clair !
- Classe MaConnection avec une methode connect, ajouter , ....
- Eventuellement une classe ou une structure pour représenter un enregistrement

Jcbé[^]

TMONOD · Answer

Suite...

Pareil pour les :

Nouveau.Visible = True
Modifier.Visible = True
DateTimePicker1.Visible = False
ComboBox2.Visible = False
TextBox2.Visible = False
Saisir.Visible = False
Annuler.Visible = False...

Détermine plutôt  tous les etats possibles de ton form et fait une methode qui met les controles dans la position que tu veux selon cet etat  (à lancer dans Nouveau_Click()...)

public Enum EtatDeMonForm
Vide
Nouveau
Modif
end Enum

et une petite sub qui fait le boulot : 
public sub MAJAffichage(etat as EtatDeMonForm)
...
End Sub

cs_jeanmarc1234 · Answer

Ok merci , je vais déjà commencer par metre un peu de clair dans tout ça.

TMONOD · Answer

Bonne idée, quand j'ai perdu un truc dans mon appart je commence par faire du rangement !!

A+

Jcbé[^]

cs_jeanmarc1234 · Answer

salut TMONOD !

j'essai de suivre ton conseil mais je t'avoue que j'ai un peu du mal avec la méthode Plubic Enum EtatdeMonform.
Si cela ne te dérange pas trop pourrais tu un peu me guider pour sa création ?

Merci

cs_jeanmarc1234 · Answer

Bonjour ! 

Donc voilà je pense que mon code est maintenant un peu plus clair (grace à TMONOD !!), et j'en reviens donc à mon premier problème mon datagridview ne peut pas m'afficher plusieurs tables(que je sélectionne dans un combobox),  il m'affiche la première table selectionnée, et lorsque je la reselctionne dans le combobox il me réaffiche à chaque fois les données à la suite des autres (les memes,  genre copier coller) !

Donc si quelqu'un aurait une petite indication à me donner çà serait trés sympa !

Merci d'avance

Voici le code mise à jour :



Public


Class CONSCOMPTE





Dim MyConnection As SqlConnection
Dim MyAdapter As SqlDataAdapter
Dim Mybindingsource As BindingSource
Dim Table As


String

Dim MyDatagridview As DataGridView
Public Ctrletat As EtatDeMonControl

Enum EtatDeMonControl
NouveauDebit
SaisirDebit
AnnulerDebit
NouveauCredit
SaisirCredit
AnnulerCredit
End

Enum




Sub


 MiseAJourAffichage()





Select



Case Ctrletat





Case


 EtatDeMonControl.NouveauDebit
Nouveau.Visible = 


False
Modifier.Visible = 


False
DateTimePicker1.Visible = 


True
ComboBox2.Visible = 


True
TextBox2.Visible = 


True
Saisir.Visible = 


True
Annuler.Visible = 

True




Case


 EtatDeMonControl.SaisirDebit
Nouveau.Visible = 


True
Modifier.Visible = 


True
DateTimePicker1.Visible = 


False
ComboBox2.Visible = 


False
TextBox2.Visible = 


False
Saisir.Visible = 


False
Annuler.Visible = 

False




Case


 EtatDeMonControl.AnnulerDebit
Nouveau.Visible = 


True
Modifier.Visible = 


True
DateTimePicker1.Visible = 


False
ComboBox2.Visible = 


False
TextBox2.Visible = 


False
Saisir.Visible = 


False
Annuler.Visible = 

False




Case


 EtatDeMonControl.NouveauCredit
Nouveau1.Visible = 


False
Modifier1.Visible = 


False
DateTimePicker2.Visible = 


True
ComboBox3.Visible = 


True
TextBox4.Visible = 


True
Saisir1.Visible = 


True
Annuler1.Visible = 

True




Case



Is = EtatDeMonControl.SaisirCredit

Nouveau1.Visible = 


True
Modifier1.Visible = 


True
DateTimePicker2.Visible = 


False
ComboBox3.Visible = 


False
TextBox4.Visible = 


False
Saisir1.Visible = 


False
Annuler1.Visible = 

False




Case


 EtatDeMonControl.AnnulerCredit

Nouveau1.Visible = 


True
Modifier1.Visible = 


True
DateTimePicker2.Visible = 


False
ComboBox3.Visible = 


False
TextBox4.Visible = 


False
Saisir1.Visible = 


False
Annuler1.Visible = 

False




End





Select




End





Sub




Sub


 Connect()

MyConnection = New SqlConnection
MyConnection.ConnectionString = 


"Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\DONNEES.mdf;Integrated Security=True;User Instance=True"
Table = "COMPTE" & ComboBox1.Text
Dim SelectTable AsString = "SELECT * FROM " & Table & 


""
MyAdapter = New SqlDataAdapter(SelectTable, MyConnection)
Dim SelectDataSet AsString = "DONNEESDataSet." & Table
Dim builder As SqlCommandBuilder = New SqlCommandBuilder(MyAdapter)
Mybindingsource = New BindingSource
MyConnection.Open()
MyAdapter.Fill(DONNEESDataSet, Table)
MyConnection.Close()
Mybindingsource.DataSource = DONNEESDataSet
Mybindingsource.DataMember = Table





End



Sub






Sub CréerDataGridView()

MyDatagridview = New DataGridView
Me.Controls.Add(MyDatagridview)
MyDatagridview.Rows.Clear()
MyDatagridview.DataSource = Mybindingsource
MyDatagridview.Location = New System.Drawing.Point(25, 50)
MyDatagridview.Size = New System.Drawing.Point(950, 500)
MyDatagridview.Columns(0).Width = 100
MyDatagridview.Columns(1).Width = 507
MyDatagridview.Columns(2).Width = 100
MyDatagridview.Columns(3).Width = 100
MyDatagridview.Columns(4).Width = 100





If


 MyDatagridview.RowCount = 1 


Then
Mybindingsource.AddNew()
MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(0).Value = 


" "
MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(1).Value = 


"Solde du compte"
MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(2).Value = 


" "
MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(3).Value = 


" "
MyDatagridview.Rows.Item(Mybindingsource.Position).Cells.Item(4).Value = 

"0"




End






If


End
Sub






Private
Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged





Try




Connect()
CréerDataGridView()
Me.TabControl1.Visible = 

True




Catch



MsgBox("Connexion impossible")
End

Try




End



Sub






Private
Sub CONSCOMPTE_VisibleChanged(ByVal sender AsObject, ByVal e As System.EventArgs) HandlesMe.VisibleChanged





If



Me.Visible = True


Then

Me.LOCATAIRESTableAdapter.Fill(Me.DONNEESDataSet.LOCATAIRES)
Me.OPERATIONSTableAdapter.Fill(Me.DONNEESDataSet.OPERATIONS)
End

If




End



Sub






Private
Sub CANCEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CANCEL.Click

LOCATAIRESBindingSource.CancelEdit()
Mybindingsource.CancelEdit()
Me.Controls.Remove(MyDatagridview)
Me.Visible = 

False




End





Sub




Private



Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

Mybindingsource.EndEdit()
MyAdapter.Update(DONNEESDataSet, Table)
Me.Controls.Remove(MyDatagridview)
Me.Visible = 

False




End





Sub




Private



Sub Nouveau_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nouveau.Click





' mise à jour de l'affichage du controle



Ctrletat = EtatDeMonControl.NouveauDebit
MiseAJourAffichage()





End





Sub




Private



Sub Annuler_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Annuler.Click





' mise à jour de l'affichage du controle



Ctrletat = EtatDeMonControl.AnnulerDebit
MiseAJourAffichage()

End

Sub




Private



Sub Saisir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Saisir.Click





' Saisie d'une nouvelle ligne au débit




Dim index As


Integer
Mybindingsource.AddNew()
index = Mybindingsource.Position
MyDatagridview.Rows.Item(index).Cells.Item(0).Value = DateTimePicker1.Text
MyDatagridview.Rows.Item(index).Cells.Item(1).Value = ComboBox2.Text
MyDatagridview.Rows.Item(index).Cells.Item(2).Value = TextBox2.Text
MyDatagridview.Rows.Item(index).Cells.Item(3).Value = 

" "




If


 index > 0 


Then
MyDatagridview.Rows.Item(index).Cells.Item(4).Value = CType(MyDatagridview.Rows.Item(index - 1).Cells.Item(4).Value, Integer) - CType(TextBox2.Text, Integer)
End

If




Me


.OPERATIONSBindingSource.EndEdit()
Me.OPERATIONSTableAdapter.Update(DONNEESDataSet.OPERATIONS)



' mise à jour de l'affichage du controle
Ctrletat = EtatDeMonControl.SaisirDebit
MiseAJourAffichage()





End



Sub






Private
Sub Annuler1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Annuler1.Click





' mise à jour de l'affichage du controle



Ctrletat = EtatDeMonControl.AnnulerCredit
MiseAJourAffichage()





End





Sub




Private



Sub Nouveau1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nouveau1.Click





' mise à jour de l'affichage du controle



Ctrletat = EtatDeMonControl.NouveauCredit
MiseAJourAffichage()





End





Sub




Private



Sub Saisir1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Saisir1.Click





' Saisie d'une nouvelle ligne au crédit




Dim index As


Integer
Mybindingsource.AddNew()
index = Mybindingsource.Position
MyDatagridview.Rows.Item(index).Cells.Item(0).Value = DateTimePicker1.Text
MyDatagridview.Rows.Item(index).Cells.Item(1).Value = ComboBox3.Text
MyDatagridview.Rows.Item(index).Cells.Item(2).Value = 


" "
MyDatagridview.Rows.Item(index).Cells.Item(3).Value = TextBox4.Text





If


 index > 0 


Then
MyDatagridview.Rows.Item(index).Cells.Item(4).Value = CType(MyDatagridview.Rows.Item(index - 1).Cells.Item(4).Value, Integer) + CType(TextBox4.Text, Integer)
End

If




Me


.OPERATIONSBindingSource.EndEdit()
Me.OPERATIONSTableAdapter.Update(DONNEESDataSet.OPERATIONS)



' mise à jour de l'affichage du controle
Ctrletat = EtatDeMonControl.SaisirCredit
MiseAJourAffichage()





End






Sub





End


Class

TMONOD · Answer

Salut,
Bravo pour le nettoyage !
Pourquoi ne pas faire un "bind" des contrôles de ta fiche avec ta source directement ?, ca te permettrait de ne plus avoir à écrire
des MyDatagridview.Rows.Item(index).Cells.Item(0).Value = DateTimePicker1 ....

Jcbé[^]

cs_jeanmarc1234 · Answer

Salut Tmonod ! ok je vais tenter la chose, mais je ne suis pas sûre que cela résolve mon soucis avec le datagridview. merci pour tout tes conseils !!

A +

TMONOD · Answer

Salut,
Content que tu aies trouvé par toi même, d'autant plus qu'il m'était difficile de reproduire ton projet sur ma machine.
 Attention à ton catch, il faut qu'il catche quelque chôse, (ex as exception au pire), 


or comme tu n'as mis dans ton catch que des appels à des methodes, c'est dans ces methodes qu'il faut faire ton try...catch !

Sinon bravo, content d'avoir fait (un peu) ta connaissance.

Jcbé[^]

Gros souci avec un datagridview

10 réponses

Votre réponse

Discussions similaires