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 141 / 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 à 14:27
Ba voilà.

Je pose plus de question et vous ne dites plus rien.

Ralala ...
0
Réponse 142 / 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 à 14:59
Bon, puisque c'est comme ça, je vais poser une question.

J'ai une form avec 2 champs : ja et valeur. (int et double).
Je les rempli, je rempli ma table ...
Jusque là ça va.

Ensuite je vais selectionner l'id du dernier enregistrement.
Puis je vais tout selectionner dont l'id sera égal à celui récupéré ci-dessus.
Je lis le premier.
Et ensuite j'insère dans 2 recordset les valeurs que je récupère.
(tout ceci n'est pas terminé, la question vient après ^^). 
ModESCal.initTableCal
    
    query = "SELECT max(id_std) from calcul_ligne"
    Set rs = New ADODB.Recordset
    vrai = ModuleBdD.OpenRecordset(query, rs)
    ValueId = rs.Fields(0)
    
    Set rs = Nothing
    Set rs = New ADODB.Recordset
    
    query = "SELECT * from calcul_ligne where id_std = " & ValueId
    Set rs = New ADODB.Recordset
    vrai = ModuleBdD.OpenRecordset(query, rs)
    vrai2 = ModESCal.LirePremier
    
    While vrai = True
        Set rs = ModESCal.getvaleur
        Set rs2 = ModESCal.getja
        
        vrai = ModESCal.LireSuivant
    Wend

Je voulais savoir si vous aviez déjà utilisé getRows : https://vb.developpez.com/bidou/recordset-ado/?page=objetrecordset#LVI-D-7

Parce que je pensais convertir les recordset en tableau puis traiter les tableau.
Par exemple faire : val = tab1(i) * tab2 (i) ...

M'enfin j'aimerais votre avis sur le getRows.

Merci. :)
0
Réponse 143 / 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 à 15:07
Oui getRows renvoie un tableau à 2 dimensions, et es-tu sûr que tab1 et tab2 sint de la même longueur ?
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 à 15:10
Oui.

Parce que le champ valeur correspond à un temps et ja correspond à un jugement d'allure c'est à dire si le temps est plus ou moins convenable).

Bon et bien merci de ta réponse.
Je vais essayer comme ça. :)
0
Réponse 144 / 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 à 15:41
Allez, une petite question pour pas que tu t'endormes. :D

J'ai un recordset, que je définie au début de module : Private rs As ADODB.Recordset

Ensuite dans ma fonction : Set rs = New ADODB.Recordset

Mais j'ai un problème lorsque je fais : Set rs = ModESCal.getvaleur (il me met type incompatible).
En sachant que : 
Public Function getvaleur() As Double
    getvaleur = calcul_ligne.valeur
End Function


Double et recordset ne font pas bon ménage ?

Merci

EDIT : j'ai pensé que ça venait de ma fonction que j'avais mis en integer, mais même en double, ça revient au même.
Function calcM1() As Double
0

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

Posez votre question
Réponse 145 / 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 à 15:50
rs est un recordset ... c'est un objet qui permet soit de passer des infos à une base de données, soit à récupérer des infos de la base de données, tu ne peux pas lui affecter une variable ... getvaleur te permet de réupérer une variable privée ... 
Dim myValeur As Double

myValeur = ModESCal.getvaleur


Si dans la structure calcul_ligne, la variable valeur = 5.25 alors myValeur = 5.25 ...

Tu as prévu des devoirs de vacances ???
Commence à y penser sérieusement ! :DDD

;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 à 15:54
Erf, je pensais que les recordset s'utilisaient comme des listes.

Tu ajoute un élément, pis un autre, pis encore un autre ...

Euh ... ça existe les listes en vb ? ^^

Ps : je n'ai qu'une semaine de vacances, j'aurais pas le temps de m'entrainer. :'(
Mais dès le 1er juillet je suis de retour.
0
Réponse 146 / 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 à 15:56
tu parles des listes en java ?
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 à 15:58
Ouaip.

Si ça existe en vb c'est kewl, sinon je vais devoir trouver un autre moyen. :)

EDIT : je suis stupide.
Pas besoin de liste, il suffit de faire le calcul en direct.
0
Réponse 147 / 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 à 16:07
Il n'y a pas proprement dit l'équivalent en VB, mais il existe les tableaux

EDIT : je suis stupide. c'est toi qui l'a dit XD ...

Bizarre que Rikki n'est pas relevée ...
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 à 16:09
Elle doit dormir. ^^

Ps : raaaaaaa ma connexion est fermée ou non valide.
Pis comme j'ai pas retenue comment on pouvait la virer, je vais devoir retourner en arrière pour trouver comment je l'ai supprimée.
0
Réponse 148 / 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 à 16:10
Yatta je suis là !
Pas une nouvelle qu'il est débile >:) ♥
0
Réponse 149 / 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 à 16:12
nan elle dort pas ........ te connait bien dis donc ^^

;o)
0
Réponse 150 / 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 à 16:13
Pas besoin de beaucoup le connaître, ça se voit aux premiers abords. xD
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 à 16:14
un ange passe .....
0
Réponse 151 / 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 à 16:18
La bave du crapaud n'atteint pas la blanche colombe.
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 à 16:23
AHAHAHA, laisse-moi rire. 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
16 juin 2008 à 16:25
Ps : au fait, s'toi le crapaud. :P
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 à 16:25
ah! encore un ange qui passe ....
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 à 16:27
Merci j'avais compris --'
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 à 16:27
Mais ils foutent rien ces Anges.

Si j'étais Dieu je les renverrais au travail ...

/me va les renvoyer au travail. :D
0
Réponse 152 / 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 à 16:29
Bon eh bien moi .... je tire le rideau pour ce soir ...

Bonne soirée à vous deux et à demain .... si vous le voulez bien !!!

;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 à 16:34
Bye Polux, bonne soirée ;o

À demain.
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 à 16:35
Bonne soirée Polux.

A demain.

Bon. Me reste 25min moi. :)
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 à 16:36
15. Pwnd.

Mwahahaha.
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
16 juin 2008 à 16:37
Oui mais demain ? :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 à 16:38
Taggle ?
0
Réponse 153 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
17 juin 2008 à 08:47
Salut.

Comment ça va toujours bien ? :)

Ps : j'ai réussi à récupérer un champ unique dans une table.
J'suis content. :D

EDIT : erf, en fait j'ai un problème.
J'ai un dépassement de capacité sur l'avant dernière ligne.
Mais je ne comprend pas parce qu'il n'y a qu'une dizaine d'enregistrements dans ma table. Rien de bien important. 
i = 0
    While vrai = True
        val1 = ModESCal.getvaleur
        val2 = ModESCal.getja
        i = i + 1
        res = val1 * val2 + res
        vrai = ModESCal.LireSuivant
    Wend
    
    res = res / (i * 10000)
    res = res * dp
0
Réponse 154 / 284
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
17 juin 2008 à 08:55
'Jour...

J'dois techniquement réviser mes examens de demain cette après-midi (autorisation spéciale du coordinateur pour réviser à l'atelier :D) mais j'crois que je vais commencer ce matin en douce oô rien fait hier.

Ca va bien vous sinon ? :)
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
17 juin 2008 à 08:56
Je t'avais dit de réviser pourtant. xD

Moi ça va 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
17 juin 2008 à 08:59
Mais ouais mais c'est chiant là :/ j'm'étais préparée pour réviser, installée itou... Et là chu allée rendre visite à mon père, et quand chu rentrée 30mn après j'étais démotivée /o\

Si j'm'en tire demain c'est un miracle :)
0
Réponse 155 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
17 juin 2008 à 09:19
Faut que tu te dises que tu ne joue pas ta vie sur un devoir et ça ira.

C'est toujours comme ça que je fais.

Ps : youhou \o/.
Premier mode de calcul terminé. Plus que 3
0
Réponse 156 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
17 juin 2008 à 10:10
Bonjour les p'tits loups ...

Dsl du retard mais des problèmes à régler ce matin ... m'ont pris au saut du lit et j'ai eu du mal à me dépatouiller (mon neurone était encore entrain de dormir à 8h30 ...).

Pour ton blème Slave, ils sont de quels types res, val1 et val2 ?

J'vais au café en attendant.

Rikki, pourquoi t'y arriverais pas demain ... pffff ... faut y croire pour réussir, alors hop hop !!! motivée ... tu vas y arriver two fingers in the nose ... of course :DD

;o)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
17 juin 2008 à 10:14
Boah !
*Je sais, je réponds alors que je n'ai rien à voir dans le topic °°*

Deux examens, un d'anglais, un d'économie d'entreprise :o)

Mébon, l'anglais c'est "simple"... Le bilan, les ratios et autres comptes, c'est moins simple.... ;x

Mébon, je vais y arriver \o/
0
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
17 juin 2008 à 10:15
C'est bon, j'ai réglé mon problème.
J'en ai passé certains en long et ça ne pose plus de problème.

J'ai finis mes modes de calculs. (récup info Bd + traitement info avec calcul temps + insertion Bd ...)

'tain, comment elle s'annonce bien ma journée. :)

Au fait, bonjour à toi Polux. :D
0
Réponse 157 / 284
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
17 juin 2008 à 10:37
(Hors Sujet)

Je viens de voir que tu pouvais enlever les "touches" du clic droit e tclic gauche sur un touchpad ! C'est génial, j'ai pu tout nettoyer dessous. J'aurais pu refaire un pain avec ce que j'ai trouvé :D rowi. Cémal de manger au dessus de son PC, portable en +

(/Hors Sujet)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
17 juin 2008 à 11:48
<Mode moqueur>
Rien n'interdit de manger au dessus de son clavier ... il suffit de manger proprement ... ou de mettre une bavette ...
</Mode moqueur>

:DD
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
17 juin 2008 à 12:44
Je me doutais d'une remarque de ce genre...
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
17 juin 2008 à 12:53
Ah bâh tu as tendu la perche là quand même ...

;o)
0
Réponse 158 / 284
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
17 juin 2008 à 14:20
Bien calme ce début d'aprem ... et personne quii offre le kawa ... pfff tout fout le camp, j'vous le dit mouai ...

Bon, je m'colle au kawa pour Slave et au thé citron pour Rikki ...

;o)

0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
17 juin 2008 à 14:22
Merci ;)

En + j'ai la gorge qui me démange, et bien sèche, j'aurais bien besoin d'un truc rafraichissant...

Révisions, révisions ...
0
Réponse 159 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
17 juin 2008 à 14:26
Merci, j'en avais bien besoin.

Mais il faudra penser aux boissons fraîches bientôt.

Tiens, au fait, j'ai une petite question.
Pour trier mon datagrid, j'ai : 
  Private Sub grid_HeadClick(ByVal ColIndex As Integer)
  On Error GoTo err
    Select Case ColIndex

    Case 0
        Me.adoData.Recordset.Sort = "[Position_affichage]"
    Case 1
        Me.adoData.Recordset.Sort = "[Libelle]"
    Case 2
        Me.adoData.Recordset.Sort = "[id_std]"
    Case 3
        Me.adoData.Recordset.Sort = "[id_std]"
    End Select
    
    Me.adoData.Recordset.Requery
    
    GoTo fin
    
err:
    MsgBox "Erreur 6"
fin:

Mais il me trie les valeurs 1 - 12 - 2 ...
Est ce que vous sauriez si il y a une option à modifier pour avoir 1 - 2 - 12 ?
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
17 juin 2008 à 14:42
heuuu non mais c'est étrange cette façon de trier ... dans les propriétés peut être, mais sans conviction ...

Et contre la soif, il faut boire chaud et même très chaud ... c'est paradoxal et pourtant ...

Tu stresses Rikki ....... faut surtout pas ........ la zenitude ...

;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
17 juin 2008 à 14:44
Oui, mais boire frais ça fait du bien par où ça passe. ^^

Merci, je vais chercher.
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
17 juin 2008 à 14:44
Non ça va, j'ai eu une plutot bonne nouvelle rapport à demain, bref..

Par contre pour le chaud, c'est à revoir... Il pleut des cordes et le ciel est tout gris (mes pieds sont gelés T.T)
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
17 juin 2008 à 16:04
d'un autre coté, c'est la Suisse ... c'est pas la côte d'Azur ... non plus



non plus ...
0
Réponse 160 / 284
MrSlave Messages postés 2587 Date d'inscription lundi 28 avril 2008 Statut Membre Dernière intervention 26 août 2011 146
17 juin 2008 à 16:02
Journée terminée.

A demain. :)
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
17 juin 2008 à 16:05
Bonne soirée à toi

A demain

;o)
0
Rikkunter Messages postés 6021 Date d'inscription vendredi 2 novembre 2007 Statut Membre Dernière intervention 9 novembre 2011 180
17 juin 2008 à 16:06
Bye, bonne soirée, à jeudi
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
17 juin 2008 à 16:11
Comme on dit chez nous "M***E" pour demain, paraît que ça porte chance ...

On croisera les doigts pour toi et on espère que jeudi tu nous annonceras une bonne nouvelle :o))

Bonne soirée et bisous, je vais pas tarder à y aller et profiter du soleil pour me balader en bord de mer ... :oP

Bonne chance Rikki (on y croit ...)

;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
17 juin 2008 à 16:13
Bon ben, j'te remercie pas alors, on continue dans les traditions ! (Tu es au courant j'espère)

Dans 40 minutes je vais sortir de l'école aussi... Pour finir trempée sous une pluie rageuse :) Yoopi

Bonne soirée à toi aussi Polux, à jeudi ;)

La force est avec moi \o/
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