Discussion :

[grenouillesiverte]

bonsoir,
Je veux enregistrer un Row dans une base Sql.
Mon DataSet est Designer, et voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim dtsetCodexVpDb As New dtsetCodexVpDb()
 
Dim tabadpCodex_TPr_Col As New  dtsetCodexVpDbTableAdapters.tabadpCodex_TPr_Col()
 
Dim dattabNewTPrCol As New dtsetCodexVpDb.dattabCodex_TPr_ColDataTable
 
Dim rowNewTPrColLigne As DataRow = dattabNewTPrCol.NewRow()
 
With rowNewTPrColLigne
.Item("TPr_Col_NAArbHier") = _lngTPrColNAArbHier
.Item("TPr_Col_Position") = _intTPrColPosition
 
dattabNewTPrCol.Rows.Add()
tabadpCodex_TPr_Col.Update(dtsetCodexVpDb.dattabCodex_TPr_Col)
end with

Aucune erreur se produit,
Mais les données ne sont pas enregistrées dans la base

[olsimare]

Bonjour.

Il ne manquerait pas le nom de la ligne dans le .add ?

Code :

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

1
2
 
dattabNewTPrCol.Rows.Add(rowNewTPrColLigne)

Car le .NewRow() ne fait jamais que créer un ligne compatible avec les lignes de la table et rien d'autre.

En plus, j'ai pas l'impression que le bloc with soit trés approprié.

Comme ça à la rigueur :

Code :

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

1
2
3
4
5
 
With rowNewTPrColLigne
.Item("TPr_Col_NAArbHier") = _lngTPrColNAArbHier
.Item("TPr_Col_Position") = _intTPrColPosition
end with

Cdt.

[grenouillesiverte]

C'est pas simple de trouver des infos dans l'aide (ce n'est pas fait pour démocratiser le VB) enfin
Mes erreurs :
1ere erreur

Code :

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

dattabNewTPrCol.Rows.Add(rowNewTPrColLigne)

Il fallait ajouter le nom de l'objet Row a la methode ADD (Voir ci dessus)
2eme erreur

Code :

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

tabadpCodex_TPr_Col.Update(dattabNewTPrCol)

Il fallait dire a la methode Update que c'etait le DataTable instancié au début qu'il faut traitter (Voir ci dessus)

Voice le code complet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim dtsetCodexVpDb As New dtsetCodexVpDb()
 
Dim tabadpCodex_TPr_Col As New dtsetCodexVpDbTableAdapters.tabadpCodex_TPr_Col()
 
Dim dattabNewTPrCol As New dtsetCodexVpDb.dattabCodex_TPr_ColDataTable
 
Dim rowNewTPrColLigne As DataRow = dattabNewTPrCol.NewRow()
 
With rowNewTPrColLigne
.Item("TPr_Col_NAArbHier") = _lngTPrColNAArbHier
.Item("TPr_Col_Position") = _intTPrColPosition
End With
 
dattabNewTPrCol.Rows.Add(rowNewTPrColLigne):mouarf:
 
tabadpCodex_TPr_Col.Update(dattabNewTPrCol):mouarf:

Encore une Question
Il y a t-il une solution avec laquelle on ne doit pas instancier 3 objets (c'est lourdingue !!) ?
Merci encore