Tuto VB/Access
MrSlave
Messages postés
2587
Date d'inscription
Statut
Membre
Dernière intervention
-
Rikkunter Messages postés 6023 Date d'inscription Statut Membre Dernière intervention -
Rikkunter Messages postés 6023 Date d'inscription Statut Membre Dernière intervention -
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.
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:
- Tuto VB/Access
- Vb - Télécharger - Langages
- Tuto tableau croisé dynamique - Guide
- Tuto torrent - Guide
- Tuto chromecast - Guide
- Tuto rufus windows 11 - Guide
284 réponses
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 ^^).
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. :)
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. :)
Oui getRows renvoie un tableau à 2 dimensions, et es-tu sûr que tab1 et tab2 sint de la même longueur ?
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 :
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 ...
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)
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)
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 ...
EDIT : je suis stupide. c'est toi qui l'a dit XD ...
Bizarre que Rikki n'est pas relevée ...
Bon eh bien moi .... je tire le rideau pour ce soir ...
Bonne soirée à vous deux et à demain .... si vous le voulez bien !!!
;o)
Bonne soirée à vous deux et à demain .... si vous le voulez bien !!!
;o)
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.
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
'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 ? :)
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 ? :)
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
C'est toujours comme ça que je fais.
Ps : youhou \o/.
Premier mode de calcul terminé. Plus que 3
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)
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)
(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)
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)
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)
Bon, je m'colle au kawa pour Slave et au thé citron pour Rikki ...
;o)
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 :
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 ?
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 ?
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)
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)
Journée terminée.
A demain. :)
A demain. :)
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)
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)