Sauvegarde sous Access

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:

---

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

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

Code:

---

1 2 3

Public Sub sauvegardeT_raccordDansTableBDD()   End Sub

---

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().

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

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

Citation:

---

Envoyé par feldi

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 :

http://img197.imageshack.us/img197/9...nstitre2kt.png

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

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:

---

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 *

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

Code:

---

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

on y arrive ^^

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

Code:

---

t_raccord(i)

---

Dans ma form principale :

Code:

---

1 2 3 4 5

Public Class Raccordement Public t_raccord(10000) As Contrat.vb.fonctionsBDD Public raccord As New Contrat.vb.fonctionsBDD Dim i As Integer = 0

---

EDIT : désolé mais t'auras pas d'image pour le moment, le proxy de l'entreprise ou je fais mon stage bloque l'upload. :/

ah désolé pour l'image c pas compliqué

tu va le site de imageshack
une fois ton image téléchargée, tu prend le lien Direct que tu colle dans la fenétre "inésérer un image" *c a coté de inserer le code* ;)

tu importe une librairie ??
je ne trouve pas le moyen de déclarer comme tu fait ...

Code:

---

Public t_raccord(10000) As Contrat.vb.fonctionsBDD

---

Euh si j'importe une librairie, je le fais sans le savoir alors ^^
Bah je le déclare en tant qu'élément de contrat.vb (le nom de la solution) .fonctionsBDD (la form où tout mes get et set sont regroupés)
Tableau que je définis dans ma forme principale.