Discussion :

[monoar]

Bonjour,

Voulez-vous m'aider à trouver une solution ?
Je voudrais supprimer une ligne de la datatable objTable, sachant que je n'ai que "toto" et "tata" comme infos (et je sais que "toto" et "tata" sont dans objTable)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Requete As String = " SELECT BQE_BIC, BQE_NOM FROM BANQUE ;"
 
Dim objTable As DataTable = New DataTable
objTable = RecupererDonneesBase(Requete, ListeBDD.BQUE)
Dim row As Data.DataRow
row = objTable.NewRow()
row("BQE_BIC") = "toto"
row("BQE_NOM") = "tata"
objTable.Rows.Remove(row)

C'est la dernière ligne qui plante.

Merci pour votre aide.
Aurore

[tomlev]

j'ai pas bien compris... tu veux supprimer la ligne pour laquelle BQE_BIC = "toto" et BQE_NOM = "tata" ?

Par ce que dans le code que tu as montré, tu crées une nouvelle ligne dans laquelle tu initialises ces 2 colonnes, et tu essaies de la supprimer alors que tu ne l'a pas ajoutée au DataTable (d'où l'erreur). La solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim rows As DataRow()
rows = objTable.Select("BQE_BIC = 'toto' AND BQE_NOM = 'tata'")
For Each row As DataRow In rows
    objTable.Rows.Remove(row)
Next

(je fais un For Each parce que Select peut éventuellement renvoyer plusieurs lignes)

[Faladin]

Pourquoi tu crées une nouvelle ligne avec "toto" et "tata" dedans?

Tu veux chercher "toto" ou "tata" et supprimer la ligne correspondante?

[Philippe Vialatte]

euuuh...


je suis pas sur de bien voir...

Tu veux ajouter une ligne dans ta datatable, que tu essaies de supprimer apres ...

d'abord, si je me rappelle bien, tu dois faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objTable.Rows.Add(row)

a un moment...

Mais de toute facon, ca ne supprimera pas de donnees dans ta datatable
c'est plutot qq chose comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

" DELETE FROM BANQUE WHERE BQE_BIC='toto' and BQE_NOM='tata' "

(en requete parametree, et avec executenonquery, evidemment)


Ou alors, j;ai loupe un episode...

[Philippe Vialatte]

ca a inspire du monde

[monoar]

Merci pour ta réponse !

En fait j'aimerais supprimer une ligne dans le DataTable nommé objTable



Et pour supprimer la ligne je n'ai que les infos "toto" et "tata"

[monoar]

Merci pour vos réponse.
Je m'exprime mieux :


J'ai la DataTable suivante :

BQE_BIC | BQE_NOM
=======|=======
"titi" |"taty"
"totu" |"tetu"
"tete" |"tuto"
"toto" |"tata"
"tutu" |"tyty"

Je veux supprimer une ligne sachant que je veux supprimer celle où :
- BQE_BIC = "tata"
- BQE_NOM = "toto"

[tomlev]

c'est bien ce qu'il me semblait...
variante de mon premier code (en supposant que ces 2 colonnes soient définies comme clés primaires) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim row As DataRow = objTable.Find(new Object() {"tata", "toto"})
objTable.Rows.Remove(row)

[monoar]

Dim row As DataRow = objTable.Find(new Object() {"tata", "toto"})
objTable.Rows.Remove(row)

Chez moi j'ai pas de Find possible...


J'ai fais ça :

Dim row As Data.DataRow
row = objTable.NewRow()
row("BQE_BIC") = "tata"
row("BQE_NOM") = "toto"


Dim row2 As DataRow = objTableTempBIC8ET11.Rows.Find(row)
objTableTempBIC8ET11.Rows.Remove(row2)

Mais ça marche pas non plus
Ça plante à l'avant dernière ligne

[tomlev]

J'avais précisé "(en supposant que ces 2 colonnes soient définies comme clés primaires)"... si ce n'est pas le cas, ça ne marche pas. Mais mon premier code devrait fonctionner
Quand tu dis "ça plante", ce serait bien de dire quelle est l'erreur, parce que sinon on aura du mal à t'aider... en l'occurrence je suppose qu'il s'agit d'une MissingPrimaryKeyException (vu que tu crées ta DataTable sans préciser de clé primaire)

[monoar]

Et comment on fait définir les 2 colonnes en clé primaire.

[tomlev]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objTable.PrimaryKey = New DataColumn() {objTable.Columns("BQE_BIC"), objTable.Columns("BQE_NOM")}

Il faudrait peut-être que tu te formes un minimum, sinon la série des questions n'est pas près de s'arrêter
Je te suggère de lire les tutoriels suivants :
http://dotnet.developpez.com/articles/ado1/vbnet/
http://dotnet.developpez.com/articles/ado2/vbnet/

[monoar]

Merci beaucoup pour vos réponses.

Voici ma solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim Requete As String = " SELECT BQE_BIC, BQE_NOM FROM BANQUE ;"
 
Dim objTable As DataTable = New DataTable
maDataTable = RecupererDonneesBase(Requete, ListeBDD.BQUE)
 
Dim foundRows As DataRow()
foundRows = maDataTable.Select("BQE_BIC = '" & (maDataTable.Rows(int11).Item("BQE_BIC")).ToString & "'", "BQE_NOM")
 
'je sais que foundRows ne retourne qu'un enregistrement
maDataTable.Rows.Remove(foundRows(0))