Discussion :

[feldi]

Bonjour,
sous ce titre peu explicite, je cherche à sauvegarder différents champs de mon programme dans une BDD Access.

Le principe : j'ai une BDD Acess que j'ai créer manuellement, l'en-tête des colonnes est rempli, les lignes sont vides.
Dans mon programme, il y a des champs à remplir par l'utilisateur pour continuer à avancer dans le programme. Je veux donc sauvegarder toutes les informations que l'utilisateur remplit, de la text box à la case à cocher en passant par les boutons radio.

Bref, "j'initialise" la fonction de sauvegarde dans ma classe principale :

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
21
22
23
24
25
26
27
28
29
30
31
32
 
Private Sub sauvegardeT_raccordDansTableBDD()
 
        Dim o_table_raccord As New raccordContratDataSet.ClientDataTable() 'nomProjetDataSet.nomTableDataTable
        Dim o_ta As New raccordContratDataSetTableAdapters.ClientTableAdapter() 'nomProjetDataSetTableAdapters.nomTableTableAdapter
        Dim l, ll As Integer
 
        'transfert en provenance de bdd
        o_ta.Fill(o_table_raccord)
 
        'vidage table origine
        For l = 0 To o_table_raccord.Rows.Count - 1
            o_table_raccord.Rows(l).Delete()
        Next
 
        'prise en compte vidage table
        o_ta.Update(o_table_raccord)
 
        'recherche taille du tableau
        While Not IsNothing(t_raccord(l))
            l = l + 1
        End While
        l = l - 1
 
        'ajout des éléments du tableau dans table
        For ll = 0 To l
            o_table_raccord.Rows.Add(ll + 1,) 'toutes les choses que je veux
        Next
 
        'transfert vers bdd
        o_ta.Update(o_table_raccord)
    End Sub

Donc la il ne me met pas d'erreurs (même si ça ne veut pas forcément dire grand chose), et ensuite je veux mettre cette fonction dans chacune de mes autres form (9 au total).

Problème : il me dit que le nom sauvegardeT_raccordDansBDD n'est pas déclaré, dans les autres form, pas dans le principal.

Vous avez une idée pour m'aider?
Merci

[hunteshiva]

Dans quel form il n'est pas déclaré ??on se perd dans tes explications ...
essaye de déclarer en public sinon :

Code :

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

1
2
3
Public Sub sauvegardeT_raccordDansTableBDD()
 
End Sub

[feldi]

Déclarer en public : même résultat. :/
Je vais détailler plus alors :


Ma form principale, qui se lance au démarrage du programme, est la forme Raccordement.vb.
De cette form, je passe à la form FicheCollecte.vb, puis de celle-ci je passe aux 8 autres.

Chaque form, à partir de FicheCollecte.vb, demande à l'utilisateur de rentrer des informations (nom, prenom, num téléphone, ...)
Je dois ensuite stocker toutes ces informations ( 43 au total) dans une base de données Access, pour être ensuite vues et au besoin exploitées.

J'espère avoir été plus clair avec ces explications.

EDIT : concernant la déclaration de la fonction de sauvegarde, je la déclare dans ma form principale.
Ensuite dans les autres form, je ne met que sauvegardeT_raccordDansBDD().

[hunteshiva]

ah bah wii ^^
si ce n'est que sa, tu les stock dans un tableau (de sting ou de cke tu veut) qui est en Public
et ce n'est que a la fin que tu envoie tout dans ta base de données
nah ??

[feldi]

Dans la théorie, je vois ce que tu veux dire.
Mais on fait ça comment?

[hunteshiva]

EDIT : concernant la déclaration de la fonction de sauvegarde, je la déclare dans ma form principale.
Ensuite dans les autres form, je ne met que sauvegardeT_raccordDansBDD().

rassure moi tu déclare pas de fonctions comme celles ci dans un formulaire mais dans un module ....
un peu comme sa :

[hunteshiva]

alors tu créer un Module
*et non un formulaire *

et dans ce module tu va déclarer tout un tas de variables
qui seront accessible depuis tous tes formulaires

je te montre un exemple que j'ais :

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
21
22
23
24
25
26
27
28
29
30
31
Module mdlBoites
    'Echelle 
    Public echelle As Integer = 2
    'Code Produit
    Public CodeProduit As String
    'Nom du plan de Palettisation
    Public Nomcoupure As String
    Public NumCoupure As Integer
    'Taille réelle des boites
    Public HauteurPalette As Integer
    Public LongueurPalette As Integer
    Public LargeurPalette As Integer
    'Taille des boites à l'échelle
    Public PlanLargeurPalette As Integer
    Public PlanLongueurPalette As Integer
 
 
    Public Sub CouleurAleatoire(ByVal picture As PictureBox)
 
        Dim opacite, rouge, vert, bleu As Integer
        ' choix d'une opacité faible ( 0-> clair / 255-> opaque)
        opacite = 50
        ' choix des couleurs en aléatoire
        rouge = Int(Rnd() * 255)
        vert = Int(Rnd() * 255)
        bleu = Int(Rnd() * 255)
 
        picture.BackColor = Color.FromArgb(opacite, rouge, vert, bleu)
    End Sub
 
End Module

et aprés toutes ces variables je les enregistres dans ma Base Access.mdb
* je les remplies au fire et a mesure que j'avance dans mes formulaires *

[feldi]

Bah si
Je le déclare à la fin de mon code, comme suit :

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
 
        raccord = t_raccord(i)
        rb_1.Checked = raccord.getPuissanceClient
        rb_2.Checked = raccord.getpuissanceClient
        txt_nom.Text = raccord.getNomCLient
        txt_prenom.Text = raccord.getPrenomClient
        txt_adresse.Text = raccord.getAdresseClient
        txt_commune.Text = raccord.getCommuneClient
        txt_codePostal.Text = raccord.getCodePostalClient
        txt_telFixe.Text = raccord.getNumTelFixeClient
        txt_telPort.Text = raccord.getNumTelPortClient
        txt_mail.Text = raccord.getAdresseMail
        txt_interlocuteur.Text = raccord.getNomInterlocuteur
        rb_3.Checked = raccord.getdemandeur
        rb_4.Checked = raccord.getdemandeur
        txt_raisonSociale.Text = raccord.getRaisonSociale
 
        sauvegardeT_raccordDansBDD()

Et j'ai pas de modules moi :
(je te mets ce que j'ai si tu me dis comment mettre l'image de paint ^^)

[hunteshiva]

on y arrive ^^

tu peut me dire ou est déclaré *stp*

Code :

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

 t_raccord(i)