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

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juil. 2008 à 09:45
Oui ça d'accord mais val n'est pas utilisé :-/
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juil. 2008 à 09:47
xD

J'suis con, s'too !
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juil. 2008 à 09:49
oO .... ben j'ai rien dit moi :DDDDDDDD
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juil. 2008 à 11:33
Euh ... Polux ? :P

Je viens d'avoir une erreur "erreur initialisation table" après avoir modifié le type d'une variable (de long à double).
Le problème c'est que cette erreur ferme ma fenêtre.

Je ne comprend pas parce que dans ma table, la variable en question est définie en tant que réel double. :S
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juil. 2008 à 11:56
oupsss ... tu es sur que d'avoir bien défini le champ dans la table ? et dans le code ? la variable passe bien partout en double ?

0

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

Posez votre question
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juil. 2008 à 13:18
'tain c'est trop bizarre. :S

Définition de table : th_act As Double
Récupération :
Public Function getthact() As Double
    getthact = entStd.th_act
End Function

Initialisation : .th_act = 0#
Fillstruct :
If Not IsNull(rs.Fields(10)) Then
            .th_act = rs.Fields(10)
        Else
            .th_act = 0#
        End If


Pis dans ma table, je l'ai bien en tant que réel double.
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
16 juil. 2008 à 13:33
Je n'ai rien changé et maintenant ça fonctionne. -__________-"
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juil. 2008 à 14:12
o0 ......

ben c'est magiciel alors ... lol

;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 juil. 2008 à 14:13
Nan, c'est microsoft. xD

Bon mon calcul de temps à l'air bon, mais ma récursivité n'est pas encore tout à fait au point.
Ça devrait bientôt le faire. :)
0
Célien Messages postés 5729 Date d'inscription jeudi 8 mai 2008 Statut Membre Dernière intervention 9 septembre 2021 1 991 > MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011
16 juil. 2008 à 18:46
Vous allez vous marier quand tous les deux ?
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204 > Célien Messages postés 5729 Date d'inscription jeudi 8 mai 2008 Statut Membre Dernière intervention 9 septembre 2021
16 juil. 2008 à 19:47
Grand jaloux ... va !!!

;o)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
4 août 2008 à 09:55
Hello,

Toujours en bataille avec VB et Access ?

Tiens un kawa.

;o)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
4 août 2008 à 10:03
Polux le retour. :)

Comment ça va bien ?
Reprise du boulot ? Pas trop dur ? ^^

Merci pour le kawa. :)

Ps : j'ai bien avancé mon projet. Il est presque terminé, mais j'ai fait du beau bricolage par endroit. xD
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
4 août 2008 à 10:09
De rien pour le kawa.

C'est toujours dur la reprise, surtout quand tu passes de 34° à l'ombre à 16° sous la pluie en moins de 10h....

Il n'y a pas de bricolage en programmation, l'essentiel c'est l'appli réponde au besoin du client

;o)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
4 août 2008 à 10:19
Ouaip, pas faux.

M'enfin mon projet a quand même bien évolué depuis quelque temps.
J'en suis à 17 forms et autant de modules. :)

Ps : tu étais où en vacances ?
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
4 août 2008 à 10:29
J'ai été dans les Alpes de Haute Provence (Sisteron)... Que du bonheur ...

Que 17 formulaires et 17 modules ... ^^

;o)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
8 août 2008 à 09:34
Salut Polux, en forme ?

Bon une p'tite dernière question pour la route ?

Je veux ajouter une photo à un standard (au cas où tu l'aurais oublié verbe+sujet+complément. ^^).
Avec la DirListBox, on peut se balader n'importe où, mais je veux qu'il restent dans le dossier que j'ai assigné, ou dans les dossiers créés dans ce dossier. (toujours compréhensible ?)

Pour le moment, j'ai :
Avec ça, ils restent dans le dossier que j'ai assigné :
Private Sub Dir1_Change()
    If Left$(Dir1.Path, Len("X:\SELHA\Applications\BASE_TEMPS\PHOTOS")) <> "X:\SELHA\Applications\BASE_TEMPS\PHOTOS" Then Dir1.Path = "X:\SELHA\Applications\BASE_TEMPS\PHOTOS"
    File1.Path = Dir1.Path ' filelistbox
End Sub

Et avec ça, je récupère le nom du fichier :
Private Sub File1_Click()
'L'utilisateur a sélectionné l' objet
SelectedFile = File1.Path & "\" & File1.FileName  
Image1.Picture = LoadPicture(SelectedFile)
End Sub


Le problème c'est que si je suis dans un dossier à l'intérieur du dossier par défaut, ça pose problème.
A cause de SelectedFile = File1.Path & "\" & File1.FileName .
Je pensais donc utiliser les expressions régulières, mais je ne comprend pas trop comment les utiliser en vb.

Une petite idée ?

Merci.
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
8 août 2008 à 09:42
Salut,

Si je comprends bien, l'utilisateur peut se balader dans les dossiers, et ça pose problème pour le code lors de la selection. C'est ça ?

0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
8 août 2008 à 09:53
Euh .... bah en fait non. >.<

J'ai pas eu de bol, j'ai mis 2 images dans un dossier à l'intérieur du dossier par défaut et aucune des 2 ne fonctionnait.
J'ai remis une troisième image et là ... miracle, aucun problème. :D

Bon et bien je te remercie de l'aide que tu m'as apportée. :)
Je parle depuis le début, hein !
Deux mois où je n'ai pas pu me passer de toi, alors encore une fois, merci ! :D
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
8 août 2008 à 09:56
De rien ... c'est toi qui a tout fait ... je n'ai fait que te guider un peu ... et ça a été un vrai plaisir de le faire.

Bon courage pour la suite de ton cursus.

;o)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
18 août 2008 à 10:54
Wah, ça a tenu jusqu'au 8 août.
Bah bravo Slave, comment bien exploiter Polux, j'applaudis °°

*C'était le post de fin pour clôturer le topic :o*
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
18 août 2008 à 10:57
Bonjour Rikki,

Ca fait plaisir de te revoir ici :D

Comment tu vas bien toi ? finich les vacances ?

Quant à l'exploitation .... Slave c'est très bien débrouillé sans moi pour 95% de son boulot ...

;o)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
18 août 2008 à 11:01
Yup yup, finie les vacances... Pas de vacances pour toi, Polux ??

Retour à l'école, on attaque la dernière ligne droite. Je suis complètement crevée et je manque de plusieurs heures de sommeil, beaucoup de retard, et c'est difficile de se remettre dans le rythme ;)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
18 août 2008 à 11:06
SI j'chui parti 3 semaines au soleil des Alpes de Haute provence ... j'en ai profité un max ...

Rhoooo tu rentres de vacances et t'es déjà crevée ... mdrrrr vivement les cours pour que tu te reposes alors !!!

;o)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
18 août 2008 à 11:08
J'te le fais pas dire.
Non mais, de se coucher chaque soir/nuit à 2-3h du matin... Et de se réveiller le plus souvent à 8h car tu peux pas faire ta grasse mat tranquille, ça créée un petit manque de sommeil ;)

Nonononon ! Faut pas je dorme cette année !
Au fait, Slave est parti ? J'le vois se connecter sur MSN le soir, mais sans plus.
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
18 août 2008 à 11:12
Slave est toujours là ... je le croise de temps en temps. Mais là il bosse dur, alors peut être le soir il se met au dodo plus tôt ... pas facile de tenir le rythme :DDD

C'est pas raisonnable 2/3h du mat ... non, c'est pas raisonnable ... :DDD

;o)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
18 août 2008 à 11:13
Beeh, en vacances, faut bien profiter non ? Faut profiter en tout cas avant d'être vieux comme toi et de s'endormir devant la télé :DDD *Vas-y, tpae-moi, je t'y autorise*

Sinon, je pensais à ce que Slave venait sur CCM ? Normalement il était direct au rendez-vous :D
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
18 août 2008 à 11:12
Le slave il bosse sans arrêt, c'est pour ça qu'il est pas vraiment présent sur msn. :D
Pis il passe ses we dehors aussi.

Youhou, durée moyenne des nuits ce we = 2h. \o/
Je sens mes paupières lourdes, lourdes ....

Au fait, bonjour, comment ça va bien tous les 2 ? :)
Ca fait plaisir de te revoir au boulot Rikk.
xD

Ps : il a tenu jusqu'à mes 20 ans le topic, j'suis heureux, c'est un signe. Ca veut dire que mon année sera placée sous le signe de la prog. \o/
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
18 août 2008 à 11:16
C'est ton anniversaire aujourd'hui ? Encore un ? Ca fera le 3e que je connais, et encore un demain... By the way, Happy beurzday tou youe, que ce soit en retard, en avance, ou à l'heue. (T'es vieux.)

Boulot ? Huh ? Kesako ? xD
Toi, travailler ? Faut rire ? :D


Na ça fait plaisir de revenir glander parmis vous aussi. Tant qu'à faire. xD
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146 > Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011
18 août 2008 à 11:17
C'était il y a 10jours mon anniv'.
Je suis né le 08/08/88. :)
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
18 août 2008 à 11:18
Ark, ça fait peur.
Ca peut expliquer bien des choses sur toi ça. °°
T'es pas né à 8h88 hein ?
xD...
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146 > Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011
18 août 2008 à 11:20
Bah p'tet bien que si.
Je suis né entre 09h et 10h.
Dons tu prend 08h et plus de 60min pour arriver à 09h et des poussières.

08h et 88 min = 09h28.
Ca se pourrait bien. :)
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
18 août 2008 à 11:26
Faudra trop tu check, si c'est le cas, ça sera la preuve que tu es la descendence du diable lui-même oo.
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
22 août 2008 à 13:44
Hellow. :)

Bon euh .... j'ai encore besoin de vous. :$

Une erreur de syntaxe.
C'est surement rien mais .....

    Set rs = New ADODB.Recordset
    rs.Open "insert into histo_seq(id_std,id_seq,position_affichage,statut,date_MAJ,libelle,action) values (" & stdid & "," & seqid & "," & Me.txtPosAff.Text & ",1,'" & Date & "','" & libel & "','Insertion')"


Cette requête fonctionnait. J'ai rajouté action (champ texte existant dans ma table) ainsi que Insertion. Et là, c'est le drame.

Peut être une petite idée ? :)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
22 août 2008 à 13:45
Omg, ze retourne \o/

680+ posts et 14 pages \o/

Par contre là chu désolée, incapable de réfléchir, chu en pleine rédaction de documentation :O

Mais euh, j't'aime pareil.


(À traduire par : Faut attendre Polux)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
22 août 2008 à 13:54
Salut,

Bon euh .... j'ai encore besoin de vous. ... c'est qui l'autre ??? :o)

Le nom du champ "action" est-il bien orthographié ? N'y a t-il pas de contrainte sur ce champ (longueur, masque de saisie ...) ???

Sinon, il n'y a pas de raison que ça ne fonctionne pas.

;o)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
22 août 2008 à 13:56
c'est qui l'autre ??? :o)

C'est méchaaaant °°'
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
22 août 2008 à 14:18
Rhooooo, pas taquine avant le week end notre helvétique pref .... :o(

dsl, voulais pas être méchant ...


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
22 août 2008 à 14:19
Je l'ai pas mal pris :p Sinon j'aurai dit "J'le prends vraiment mal, j'm'attendais pas à ça."

Ou une autre connerie du style ;)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
22 août 2008 à 13:57
L'autre c'est Rikk mais en fait elle ne sert à rien .... *patapey, patapey*

Le champ est bien orthographiée, c'est un champ texte de longueur 255.
Je vois pas quoi dire de plus. :(
Quand tu rajoutes un mot comme je le fais avec Insertion directement dans la table, on met juste ce mot entre ' ou il y a quelque chose que j'ai zappé ?
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
22 août 2008 à 14:21
oui c'est bien 'mot' si c'est un champ texte ... pour les autres insertions, tu es sûr du typage des données ?

PS : Ne dit pas que Rikki ne sert à rien ... elle te soutient moralement ... c'est énorme, je trouve ...
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
22 août 2008 à 14:24
Bah si j'enlève action et 'Insertion', ça fonctionne sans problème. :(

Ps : bof, grâce à moi elle ne s'ennuie pas, alors c'est surtout moi qui la soutient.
Mais elle a intérêt à se dépêcher, je reprend les cours dans 2 semaines. ;)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204 > MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011
22 août 2008 à 14:28
Bah si j'enlève action et 'Insertion', ça fonctionne sans problème. :( ?????????????

As-tu fermé complétement Access et ton appli. Puis tu relances tout ... juste pour voir :o)))

;o)
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
22 août 2008 à 14:31
Voui, mais ça ne change rien.

Je suis sûr que c'est un truc tout c**. Mais je sais pas quoi. :S
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204 > Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016
22 août 2008 à 14:34
Bon ... fait une insertion direct dans la base et après dans ton programme fait une requête SELECT sur la table et regarde si tu as bien tous les champs dans le 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 > Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016
22 août 2008 à 14:41
Ouaip, je les récupère bien.
0