Pbm d'enregistrement dans une base Sql

Version imprimable

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

Code:

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, :yaisse2:
Mais les données ne sont pas enregistrées dans la base :evilred:

09/10/2007, 23h01
olsimare
Bonjour.

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

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:

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

Voici le code qui fonctionne ouipi

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:

dattabNewTPrCol.Rows.Add(rowNewTPrColLigne)

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

Code:

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 ::yaisse2: :yaisse2:
Code:

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 :aie:
Il y a t-il une solution avec laquelle on ne doit pas instancier 3 objets (c'est lourdingue !!) ?
Merci encore