Sujet Précédent Sujet Suivant

Tuto VB/Access

Fermé
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 - 5 juin 2008 à 11:53
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 - 22 août 2008 à 16:18
Bonjour,

Je dois réaliser une base de temps avec le couple VB6 / Access.

Je recherche donc des tutos car je n'ai jamais utilisé ni l'un, ni l'autre.

Merci.
A voir également:

284 réponses

Précédent
Réponse 121 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
13 juin 2008 à 12:14
si tu es encore là ...

peux tu me faire passer ton zinzin ... j'y jeterai un oeil ce qeek

;o)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
14 juin 2008 à 19:16
Euh ... là je ne suis même pas chez moi. xD

Mais je suis de retour lundi. :)
0
Réponse 122 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 08:26
Salut les gens.

Comment ça va bien aujourd'hui ? :)
0
Réponse 123 / 284
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
16 juin 2008 à 08:28
Slaaaave est de retouuuuuurrreuuuhh.

Yop :)

Ca va et toi, la grande forme ?

Moi j'ai faim tiens ... Pour changer :D
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 08:30
Moi j'suis claqué.

J'ai démménagé ce we mais j'avais quasiment rien de prévu.

Donc j'ai du faire les cartons, pis les mettre dans la voiture, pis les emmener.
Heureusement que j'avais des amis pour m'aider. :)

Ps : salop*** de neuf, j'ai toujours pas le net chez moi.
0
Réponse 124 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 08:42
kikou les p'tits loups ...

Passé un bon week ? mouai vouiii ...

Je vais me boire un bon kawa avant d'ouvrir ma boîte mail ... j'sais pas pourquoi je crains le pire ...

@ ++

;o)
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 125 / 284
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
16 juin 2008 à 08:46
Coucou Polux.

Niveau week-end, j'étais censée réviser Anglais&Économie pour examens mercredi... Mais oublié économie à l'école. Puis, vu que c'est ma matière "tare", et que l'anglais je me débrouille plutôt bien, j'ai rien révisé...

J'vais passer ce soir et demain soir à réviser...

Yoopi \o/
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 09:28
kikou Rikki,

Arrfff tu as fait le lézard alors ... pas révisé pour l'exam de mercredi, rhoooo pas bien ça ... pas bien du tout même... lol

Alors ce soir, privée de télé et enfermée dans ta chambre à réviser, gna ! et puis pas de tèl et pas d'ordi non plus ... voilà !!! bien fait ...

;o)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180 > Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016
16 juin 2008 à 09:30
Télé & Tel => Pas de ma religion ça...

Par contre le PC ... Marff... Rude :o
J'irai quand même 30 petites minutes xD Mébon oué je bosserai bien, pas le choix ;)
0
Réponse 126 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 08:57
Bon je me sens obligé d'embéter Polux de bon matin, alors c'est parti. :)

J'ai réussi à insérer le mode de calcul, néanmoins ça ne me l'insère pas dans le dernier enregistrement.

En fait, la méthode LireDernier du moduleBdD me renvoi false.

Tout se passe bien au début.
Mais quand je suis dans LireDernier de ModESEnt_std: 
Public Function LireDernier(rs As ADODB.Recordset) As Boolean

    If ModuleBdD.RSLireDernier(rs) = False Then
        LireDernier = False
        Exit Function
    Else
        Call fillStruct(rs)
        LireDernier = True
    End If
    
End Function

Et que je passe dans LireDernier de ModuleBdD : 
Public Function RSLireDernier(ByRef rs As ADODB.Recordset) As Boolean

    On Error Resume Next
    rs.MoveLast
    If err <> 0 Then
        RSLireDernier = False
        Exit Function
    End If
    
    RSLireDernier = True
    
End Function


J'ai éssayé avec F8, et on voit bien que ça rentre dans If err <> 0 then ....

Peut être une petite idée ? :)
0
Réponse 127 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 09:23
Salut,

Tu passes bien le recordset de l'initialisation de la table en paramètre ?

Si tu passes dans if err <> 0 then, c'est que qu'il y a une erreur lors du passage du recordset.
Pour connaître l'erreur, il faut mettre un msgbox avant le exit function :

MsgBox Err.Number & " : " & Err.Description

Ca te donne l'erreur. Poste là ici, stp

;o)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
16 juin 2008 à 09:29
Polux, tu as posté le message qui ne mène à rien ... /o\


...



Désolée, trop tentant

Je sais, je connais le chemin

--> []
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 09:32
91 : variable objet ou variable with non définie.

Ps : Sinon j'avais pensé utiliser quelque chose comme ça.
Mais ça insère ma valeur mais pas à la bonne place. 
ModESEnt_STD.initTableEnt_STD
       query = "SELECT LAST_INSERT_ID()"
       Set rs = New ADODB.Recordset
       vrai = ModuleBdD.OpenRecordset(query, rs)
       ValueId = ModESEnt_STD.getIdStd
       If vrai = True Then
        rs.Open "Update ent_std Set mod_cal_retenu = '" & mod_cal & "' Where id_std = " & ValueId & " ", ModuleBdD.cnx
     Else
        MsgBox "marche pas"
     End If
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204 > Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011
16 juin 2008 à 09:32
^^
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146 > Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016
16 juin 2008 à 09:35
Mais quelle geek, j'y crois pas. -_-"

Ps : au fait, rien à voir mais je suis allé voir Phénomènes au ciné l'autre jour.
Et ba je le conseille fortement. Il était terrible. :D
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180 > MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011
16 juin 2008 à 09:45
Geek toi-même.
Si tu as compris mon message c'est que t'es autant geek quoi moi è.é

Phénomènes ? Connais pas.
0
Réponse 128 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 09:40
Si Id_Std est un entier, tu devrais plutôt avoir sa dans rs.open 
rs.Open "Update ent_std Set mod_cal_retenu = '" & mod_cal & "' Where id_std = " & ValueId , ModuleBdD.cnx


Que veux-tu dire par ça insère ma valeur mais pas à la bonne place ? tu veux dire pas dans le bon champ ou pas dans la bonne ligne ?
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 09:42
C'est inséré dans le bon champ, mais dans la première ligne.
Il ne récupère pas le dernier enregistrement, donc il l'insère dans le premier qu'il trouve. ^^

C'te feignant, on dirait moi.

EDIT : j'ai toujours la même erreur, même avec ta modif Polux.
0
Réponse 129 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 09:48
Et quel est le retour de "SELECT LAST_INSERT_ID()" ? je ne connais pas cette instruction ... :o5
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 09:56
Ba en fait, je viens de voir qu'elle était propre à Mysql. :(

Mais sinon on peut utiliser select max()
0
Réponse 130 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 09:53
Google étant mon pote aussi, il m'a craché ça :

Récupérer le numéro correspondant à la dernière insertion
Cela doit se faire immédiatement après une insertion. On utilise alors la fonction LAST_INSERT_ID() qui contient le numéro de l'enregistrement précédent. 
  UPDATE Chant SET CHANT_NOM="le titre du chant"
  WHERE Chant.CHANT_ID=LAST_INSERT_ID();

Cela permet d'établir des liens entre les tables.
Dans l'exemple précédent, on utilise le numéro affecté à la dernière insertion effectuée dans la table chant pour y placer le nom du chant en question.

Tu dois pouvoir t'en inspirer pour faire ton Update ...

;o)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 10:02
Elle me saoule l'erreur "votre opération n'est pas autorisée si l'objet est ouvert".

Je capte pas à quoi elle correspond.
0
Réponse 131 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 10:04
ah bâh voui ... zavais pas vu ...
0
Réponse 132 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 10:05
peux-tu me passer le zinzin ? parce que j'ai un peu perdu le fils ... :o(
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 10:08
http://www.cijoint.fr/cjlink.php?file=cj200806/cijwJS7png.zip

Merci. ;)
0
Réponse 133 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 10:20
regarde avec ça ce que ça dit : 

     ModESEnt_STD.initTableEnt_STD
     'vrai = ModESEnt_STD.LireDernier(ModuleBdD.getRs)
     'If vrai = True Then
       ' ValueId = ModESEnt_STD.getIdStd
       query = "SELECT max(id_std) from ent_std"
        Set rs = New ADODB.Recordset
        vrai = ModuleBdD.OpenRecordset(query, rs)
        ValueId = rs.Fields(0)
    If vrai = True Then
        rs.Open "Update ent_std Set mod_cal_retenu = '" & mod_cal & "' Where id_std= " & ValueId, ModuleBdD.cnx
        rs.Close
     Else
        MsgBox "marche pas"
     End If


Je vais en réunion pour expliquer aux chefs de services qu'ils ont des boulets dans leur équipe et expliquer la définition de ce nouveau mot pour eux :"MAQUETTE" ... mdrrr

;o)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 10:23
"Cette opération n'est pas autorisée si l'objet est ouvert".
Elle me saoule cette erreur ... 'tain !


Ps : oh wiiiiiiii, fais leur comprendre !
0
Réponse 134 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 10:27
Ah oui normal ...
Après ValueId = rs.Fields(0) faire :

set rs = Nothing

set es = new ADODB.recordset

;o)

@ ++
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 10:30
Ça fonctionne ! \o/

Merci Polux.

Dès que tu as fini de leur taper sur les doigts, tournée de kawa.
0
Réponse 135 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 10:33
Ils ont remis la réu d'une demi-heure ... reporté à 11h ... tu peux envoyer le kawa de suite ... :o)
0
Réponse 136 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 11:38
Oula, honte à moi, j'ai oublié de servir le kawa.

S'pa grave, je peux le faire maintenant. :)

Au fait, je voulais savoir si on pouvait faire des calculs avec les recordsets ?
Parce que j'insère des valeurs dans ma table.
Je les récupère avec 2 recordsets.
Mais je dois faire la moyenne du produit des valeurs du recordset A par le recordset B.

Je crois avoir ENCORE besoin de vous. :'(

Merci ENCORE une fois.

Ps : en fait je ne sers à rien moi. ^^
0
Réponse 137 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 12:53
Ben si tu veux te rendre utile ... sers le kawa avec un petit cognac ... :o) ...

Pour le calcul avec les recordsets, ça doit être possible. En fait c'est du SQL. Mais je te conseille de faire le calcul par VB, surement plus simple que dans une requête ...

Elle est calme Rikki, ce matin .... l'a trop fait la fête ce week ... et maintenant elle se repose :O))
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
16 juin 2008 à 12:54
Bof non, mais chu encore + inutile que Slave (c'est dire) au vu de tes compétences et de mon amnésie :D
Donc bon, j'observe mais toujours omniprésente...
0
Réponse 138 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 13:03
bof ... mes compétences sont limitées ... il manque simplement à Slave la mécanique de la manipulation des objets, et surtout un grand vide quant à l'organisation du code et l'architecture d'une appli ... mais ça viendra avec le temps (j'espère ...) ... (peut-être ...) lol.

Donc j'espère que toi aussi tu prends des notes ...

;o)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
16 juin 2008 à 13:04
Yup yup, mais déjà fait du VB auparavant :) (Et examen etoussi etoussa)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 13:05
J'espère aussi que ça viendra.

Ps : et puis GOCHISÔSAMADESHITA. ^^
0
Réponse 139 / 284
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
16 juin 2008 à 13:08
Une remarque en l'air qui ne sert à rien...

C'est mon dernier lundi de l'année... La semaine prochaine j'ai lundi de congé puis vacanceeeeesssss \o/

Yoopi yoopa.


=========> [].
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 13:10
Moi la semaine prochaine ce sont les vacances. :D
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180 > MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011
16 juin 2008 à 13:11
Qui dit vacances de Slave dit vacances de Polux :p
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204 > Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011
16 juin 2008 à 13:14
le 18 juillet les vacances pour moi :-S ... 2 semaines seulement ...
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180 > Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016
16 juin 2008 à 13:15
J'disais ça pour le temps que tu lui consacres ;)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204 > Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011
16 juin 2008 à 13:21
c'est plutôt un passe temps que vraiment du boulot ... ;o)
0
Réponse 140 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juin 2008 à 13:13
Gochimachinchose si tu veux mais sert le kawa avec le cognac ... ;o)

Bon les boulets, c'est les chefs ici ... (comme presque partout d'ailleur ^^) ... ils ont juste fait passer le lien de la maquette à leur personnel en oubliant de préciser que c'etait juste pour avis et commentaires ... mais en donnant mon mail quand même pour signaler les problèmes ... du genre : "c'est pas moi, c'est l'autre ...". Le blème est réglé.

;o)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juin 2008 à 13:21
Comme d'hab'.

Et 2 kawa avec cognac.

Pis la bouteille pour Rikk.
0

Discussions similaires

Exemple de base de données access
Abdlahsaki -
Fleptche -

9 réponses
Erreur 403: You don't have permission to access on this server ?
yamelle -
WolfTenBA -

19 réponses