Discussion :

[feldi]

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 :

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

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

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 :

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

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 !

[nasty]

Bonjour

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

Nasty

[hunteshiva]

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

[feldi]

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 :

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

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

[hunteshiva]

le load charge la BDD vide

je vois pas l'intérêt ...
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 ...

[feldi]

je vois pas l'intérêt ...
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 :

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
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

[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+