Chargement et sauvegarde d'une table Access

Version imprimable

Bonjour à tous,
dans mon programme, je dispose de 9 IHM et je dois sauvegarder toutes les informations rentrées par un utilisateur dans une base de données Access (ici : BDDContrat).
J'ai donc dans le bouton "Quitter" de mon programme principal, toutes les sauvegardes des tableaux de mes forms dans la BDD.
Dans le load de ma form principale (principal.vb), j'ai tous les chargements de la BDD.
J'ai un problème avec un chargement : celui de la table Batteries.
Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
    Private Sub chargementTableBatteriesDeBDDdansTableau()
        Dim o_table_batteries As New BDDContratDataSet1.BatteriesDataTable() 'nomProjetDataSet.nomTableDataTable
        Dim o_ta As New BDDContratDataSet1TableAdapters.BatteriesTableAdapter() 'nomProjetDataSetTableAdapters.nomTableTableAdapter
        Dim i As Integer
        'transfert en provenance de bdd
        o_ta.Fill(o_table_batteries)
        'remplissage du tableau
        For i = 0 To o_table_batteries.Rows.Count() - 1
            Dim batterie As New Fonctions.C_Batteries()
            batterie.setNumBatteries(o_table_batteries.Rows(i).Item("numBatteries"))
            batterie.setPresenceBatteriesO(o_table_batteries.Rows(i).Item("présenceBatteriesO"))
            batterie.setPresenceBatteriesN(o_table_batteries.Rows(i).Item("présenceBatteriesN"))
            batterie.setNombreBatteries(o_table_batteries.Rows(i).Item("nombreBatteries"))
            batterie.setCapacitéBatteries(o_table_batteries.Rows(i).Item("capacitéStockage"))
            't_huitième est le tableau correspondant à la form batterie
            t_huitième(i) = batterie
        Next
    End Sub

Mes autres procédures de chargement sont exacement pareils, à l'exception bien entendu des noms des variables et des fonctions.

En lançant le programme, il plante et j'ai une erreur OleDBException sur la ligne :

Code:

1
2
 
o_ta.Fill(o_table_batteries)

Mais je ne vois pas de quoi cela peut venir...

Pour info, voici le code de mon load (de la form principal, principal.vb) :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Principal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        chargementTableClientDeBDDdansTableau()
        chargementTablePropriétaireDeBDDdansTableau()
        chargementTableSituationGeographiqueDeBDDdansTableau()
        chargementTablePanneauxDeBDDdansTableau()
        chargementTableOnduleurDeBDDdansTableau()
        chargementTableAutorisationDeBDDdansTableau()
        chargementTableProtectionDeBDDdansTableau()
        chargementTableBatteriesDeBDDdansTableau()
        chargementTableContratFourniDeBDDdansTableau()

J'ai un autre problème, mais j'aimerais tout d'abord réussir à résoudre celui-ci.

Merci de m'aider !

02/06/2010, 12h01
nasty

Bonjour

Et que dit l'erreur? (c'est balot, t'as donné plein d'info sauf l'erreur)

Nasty
02/06/2010, 12h03
hunteshiva

tu peut mettre le message d'erreur "OleDBException" ? *stp*

Citation:

L'exception OleDBException n'a pas été gérée
Aucune valeur fournie donnée pour un ou plusieurs des paramètres requis.

Je comprends pas pourquoi, étant donné que le load charge la BDD vide, c'est normal qu'il n'y a aucune valeur. Plus surprenant, mes autres chargement utilisent le MEME code, et pas d'erreurs...

Merci

Edit :
Si ça peux vous aider, voila la déclaration des tableaux :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Class Principal Public t_principal(10000) As Fonctions.C_Client Public t_secondaire(10000) As Fonctions.C_Propriétaires Public t_tertiaire(10000) As Fonctions.C_SituationGeographique Public t_quatrième(10000) As Fonctions.C_Panneaux Public t_cinquième(10000) As Fonctions.C_Onduleur Public t_sixième(10000) As Fonctions.C_Autorisation Public t_septième(10000) As Fonctions.C_ProtectionDecouplage Public t_huitième(10000) As Fonctions.C_Batteries Public t_neuvième(10000) As Fonctions.C_Contrat Dim i As Integer = 0

02/06/2010, 14h26
hunteshiva

Citation:

le load charge la BDD vide

je vois pas l'intérêt ... :mouarf:
aprés effectivement si le code marche sur les autres mais pas sur celle la c'est bisare....

je me souviens qu'il fallait absolument une clé primaire a mes bases *pour je sais plus exactement pourquoi*
sinon il me générais une erreur, p-e que sa peut venir de la ...

Citation:

Envoyé par hunteshiva

je vois pas l'intérêt ... :mouarf:
aprés effectivement si le code marche sur les autres mais pas sur celle la c'est bisare....

je me souviens qu'il fallait absolument une clé primaire a mes bases *pour je sais plus exactement pourquoi*
sinon il me générais une erreur, p-e que sa peut venir de la ...

Pour l'intérêt, c'est mon prof qui m'a dit de faire comme ça. Afin de visualiser la BDD. J'essayerais sans les chargement.
Sinon, j'ai bien mis une clé primaire pour toutes mes tables (de toute façon, Access empêche la création de table sans clé primaire).

La clé primaire est pour cette table NumBatteries. J'utilise un Num pour toutes mes tables que j'incrémente à chaque nouveau client.

Le code (peut-être un problème à ce niveau la) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 FicheCollecte.t_client = t_principal FicheCollecte.numCli = i FicheCollecte.ShowDialog() Propriétaire.t_proprio = t_secondaire Propriétaire.numProprio = i SituationGeographique.t_situGéo = t_tertiaire SituationGeographique.numSituGéo = i panneaux.t_panneau = t_quatrième panneaux.numPanneaux = i Onduleurs.t_onduleur = t_cinquième Onduleurs.numOnduleur = i AutorisationUrbanisme.t_autorisation = t_sixième AutorisationUrbanisme.numAuto = i Protection.t_protection = t_septième Protection.numProtec = i Batteries.t_batterie = t_huitième Batteries.numBatterie = i ContratFourniture.t_contratFourni = t_neuvième ContratFourniture.numContratFourni = i
Merci de ta (petite) contribution

02/06/2010, 15h55
Geo2A

Bonjour,

Je ne vois pas le code de chargement, quelle est la requête que tu effectue sur la BD. En fait quels sont les noms des champs de ta table batterie dans ta BD car si le nom d'un de tes champs correspond à un mot réservé de VB ou du framework tu vas avoir ce genre d'erreur. J'ai galéré trois jour car j'avais un champs section dans une table et section est un mot du framework.

A+
02/06/2010, 20h43
feldi

Bonsoir,
j'ai 5 champs dans ma table batteries : numBatteries(ma clé primaire), nombreBatteries, présenceBatteriesO, présenceBatteriesN et stockageBatteries.
Je ne pense pas qu'un de ces noms soit réservé, sinon ce serait vraiment la faute à pas de chance pour le coup.

Le code de chargement se situe dans mon premier post, c'est le premier code que j'indique.

Merci
03/06/2010, 08h37
feldi

J'ai résolu mon problème !
En fait j'ai supprimé la référence à ma BDD et je l'ai ensuite recréée.
Comme j'avais modifié ma BDD après avoir mis la référence, les modifications n'étaient pas prises en compte (enfin je pense, vu que j'ai n'ai plus de problèmes au load).

Voila