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
Décidément ça n'en fini plus.
Je crois que je vais avoir besoin d'un petit conseil. :)
Parce qu'en fait les verbes, sujets et complément seront tous mélangés dans lib_element.
Ce qui les différenciera sera type_element (V, S ou C).
Je pensais donc faire (pour récupérer les verbes):
Ainsi que :
Et après j'appelle getlib_verbe.
Mais j'ai une erreur qui me dit que mon objet est fermé.
Je crois que je vais avoir besoin d'un petit conseil. :)
Parce qu'en fait les verbes, sujets et complément seront tous mélangés dans lib_element.
Ce qui les différenciera sera type_element (V, S ou C).
Je pensais donc faire (pour récupérer les verbes):
queryV = "Select Distinct lib_element from element where type_element = V"
Set rsV = New ADODB.Recordset
vraiV = ModuleBdD.OpenRecordset(queryV, rsV)
Ainsi que :
Public Function getlib_verbe() As String
getlib_verbe = rsV.Fields(0)
End Function
Et après j'appelle getlib_verbe.
Mais j'ai une erreur qui me dit que mon objet est fermé.
l'erreur vient de là:
Si tu remplis bien la structure avec fillStruct(), tu dois faire :
Ou tetechozekomecha ...
Public Function getlib_verbe() As String getlib_verbe = rsV.Fields(0) <<------ ça ne marche pas ça .. End Function
Si tu remplis bien la structure avec fillStruct(), tu dois faire :
Public Function getlib_verbe() As String getlib_verbe = element.lib_element End Function
Ou tetechozekomecha ...
Bon c'est ce que j'ai fait.
J'ai quasiment tout repris pour element. (tabElement ...) et j'en ai recréé un pour mon truc.
M'enfin il me met que l'opération n'est pas autorisée si l'objet est fermé.
(et il pointe sur .lib_verbe = rsV.Fields(0)).
Est ce que tu sais de quoi ça vient ?
Une définition manquante, .... ?
J'ai quasiment tout repris pour element. (tabElement ...) et j'en ai recréé un pour mon truc.
M'enfin il me met que l'opération n'est pas autorisée si l'objet est fermé.
(et il pointe sur .lib_verbe = rsV.Fields(0)).
Est ce que tu sais de quoi ça vient ?
Une définition manquante, .... ?
peux-tu me faire passer le module stp ...
De plus je viens de voir ça:
ca doit être plutôt ça :
toujours le problème de chaine de caractères dans un code SQL ...
De plus je viens de voir ça:
queryV = "Select Distinct lib_element from element where type_element = V"
ca doit être plutôt ça :
queryV = "Select Distinct lib_element from element where type_element = 'V'"
toujours le problème de chaine de caractères dans un code SQL ...
6 pages exclusivement pour MrSlave, ça mérite une ovation \o/
Mon applic reprends peu à peu des couleurs, et je la fait encore mieux que la V1... À tout malheur est bon gnagna.... Je sais plus le proverbe exact :D
Mon applic reprends peu à peu des couleurs, et je la fait encore mieux que la V1... À tout malheur est bon gnagna.... Je sais plus le proverbe exact :D
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Au café il aurait fait un tabac ....
Bon, Slave je crois que tu te fais des trous dans le cerveau là ...
La fonction searchIdByItem() est adaptée à ce que tu recherches. Tu passes en paramètre à ta fonction le champ sur lequel il faut faire la recherche qui est égal à l'item passé en paramètre ... tu n'as pas besoin de faire une structure uniquement pour ça. Ce qui existe déjà (comme dans ModEsEnt_STD) est largement suffisant.
Il suffit de faire dans le module qui a besoin de récup lib_element:
Ensuite pour lire, il suffit de faire :
;o)
Bon, Slave je crois que tu te fais des trous dans le cerveau là ...
La fonction searchIdByItem() est adaptée à ce que tu recherches. Tu passes en paramètre à ta fonction le champ sur lequel il faut faire la recherche qui est égal à l'item passé en paramètre ... tu n'as pas besoin de faire une structure uniquement pour ça. Ce qui existe déjà (comme dans ModEsEnt_STD) est largement suffisant.
Il suffit de faire dans le module qui a besoin de récup lib_element:
vrai = ModESElement.searchIdByItem("type_element", "V")
Ensuite pour lire, il suffit de faire :
maVariable = ModESElement.getLib_element
;o)
Oups ... j'ai manqué la sortie de Slave ... bon ben, bonne soirée à toi ...
Moi avec tout ça, j'ai pas tout fini ma maquette pour demain ... mais bon, j'ai fait l'essentiel, le reste c'est la garniture pas indispensable.
Bonne soirée à toi aussi Rikki.
kissouuu à demain
;o)
Moi avec tout ça, j'ai pas tout fini ma maquette pour demain ... mais bon, j'ai fait l'essentiel, le reste c'est la garniture pas indispensable.
Bonne soirée à toi aussi Rikki.
kissouuu à demain
;o)
Voilà j'ai fini les garnitures ... c'est tout beau ...
Je vais me rentrer chez mon moi ...
Bonne fin de soirée. reKisssouuu
;o)
Je vais me rentrer chez mon moi ...
Bonne fin de soirée. reKisssouuu
;o)
Salut les gens comment ça va bien ?
Toujours en forme sous ce beau soleil ?
Toujours en forme sous ce beau soleil ?
Coucou bande de gens.
Beau soleil ? Le temps n'en fait qu'à sa tête depuis quelques jours, tout gris, pluie, éclaircie, grand soleil, chaud, nuages, tout gris, pluie, ...
Faim et soif aussi.
Mais ça va.
Et vous ?
Beau soleil ? Le temps n'en fait qu'à sa tête depuis quelques jours, tout gris, pluie, éclaircie, grand soleil, chaud, nuages, tout gris, pluie, ...
Faim et soif aussi.
Mais ça va.
Et vous ?
Moi il fait beau, j'ai du kawa à portée de main, et j'ai demandé mon aprem pour pouvoir corriger, imprimer, relier et rendre mon rapport avant 16h.
Pis évidemment, je l'ai eu mon aprem.
Donc je fini ma journée à 12h. :)
Pis évidemment, je l'ai eu mon aprem.
Donc je fini ma journée à 12h. :)
Bonjour l'autre monde :o))
Eh ben je vois que ça commence fort ... que des mots aimables ... :o)
Et en plus une demi-journée pour l'ami Slave ... chouette ça !
Ici soleil aussi mais fraîcheur et ça va pas aller en s'arrangeant d'après la météo.
Je file au café et j'épluche ma boîte mail avant de commencer les hsotilités ...
@ ++
;o)
Eh ben je vois que ça commence fort ... que des mots aimables ... :o)
Et en plus une demi-journée pour l'ami Slave ... chouette ça !
Ici soleil aussi mais fraîcheur et ça va pas aller en s'arrangeant d'après la météo.
Je file au café et j'épluche ma boîte mail avant de commencer les hsotilités ...
@ ++
;o)
Arrrffffffffff je le crois pas ... j'ai pas du me réveillé ce matin et je rêve encore là ... j'ai mis ma maquette sur le réseau hier soir ... ben y a des malins qui l'ont essayé et qui m'envoient des mails de beug parce que ça marche pas ..... c'est écris en gros que c'est une maquette ..... y a vraiment des tâches quand même... m'enfin ...
Rikki, tu n'as pas déjeuné ce matin ? ou alors tu es en pleine croissance :D ... ou alors c'est un truc de filles :DD
Bon quoiqu'il en soit, c'est vendredi et ce soir c'est le week .... alors journée cool et zen ...
;o)
Rikki, tu n'as pas déjeuné ce matin ? ou alors tu es en pleine croissance :D ... ou alors c'est un truc de filles :DD
Bon quoiqu'il en soit, c'est vendredi et ce soir c'est le week .... alors journée cool et zen ...
;o)
Pas déjeuné T.T levée trop tard, juste le temps de me lever, préparer, partir pour le train...
La prochaine fois, écris Maquette en Caps Lock, au début et à la fin du nom du fichier, ptete ils comprendront :)
Waip, vendredi, journée tranquille... Vendredi 13 qui plus est pour les supersticieux, rien qu'un jour ordinaire :)
La prochaine fois, écris Maquette en Caps Lock, au début et à la fin du nom du fichier, ptete ils comprendront :)
Waip, vendredi, journée tranquille... Vendredi 13 qui plus est pour les supersticieux, rien qu'un jour ordinaire :)
p'tin ... c'est dur la vie en Suisse ...
Mais c'est si beau ...
Mais c'est si beau ...
Je ne vois pas en quoi une chaîne de montagnes c'est beau x.u
Je déteste la montagne et tout ce qui touche à la neige, heureusement que je vis où y a pas de montagnes plein de neige, de chalet de bois et autre c*nneries du même style >:)
M'enfin, rancoeur personnelle... J'préfère une belle plage de sable, avec le soleil tapant...♥
Je déteste la montagne et tout ce qui touche à la neige, heureusement que je vis où y a pas de montagnes plein de neige, de chalet de bois et autre c*nneries du même style >:)
M'enfin, rancoeur personnelle... J'préfère une belle plage de sable, avec le soleil tapant...♥
Pour les Pyrénées, j'suis ok avec Slave ...
Par contre Rikki, énorme déception pour moi ... je t'imaginais comme Candie, vivant dans un petit chalet de bois au flan de la montagne au sommet blanc de neige, au milieu de vertes prairies peuplées de vaches ruminantes et toi courrant, tes tresses blondes au vent, parmis les fleurs des champs...
:O°
Par contre Rikki, énorme déception pour moi ... je t'imaginais comme Candie, vivant dans un petit chalet de bois au flan de la montagne au sommet blanc de neige, au milieu de vertes prairies peuplées de vaches ruminantes et toi courrant, tes tresses blondes au vent, parmis les fleurs des champs...
:O°
J'aime pas la plage.
Au moins en montagne la présence de l'Homme est moins flagrante.
On peut marcher tranquillement sans qu'un conn*** de vendeur de chouchou ou de beignets vienne te gueuler dans les oreilles.
On peut profiter du calme et de la tranquillité sans que le gamin d'un autre couple vienne t'exploser la tête avec un ballon pendant que tu essaye de dormir.
Tu peux prendre ton temps et profiter de la vie tout simplement sans être entouré de monde.
Je ne suis pas contre les gens, mais parfois ils me saoulent. ^^
J'aime la montagne, parce qu'un peu de calme ça fait un bien fou.
Et puis j'adore le fait de pouvoir marcher perdu dans ses pensées.
J'adore la sensation que tu as rendu en haut, quand tu te dis : "Je suis arrivé en haut".
J'adore voir le soleil se coucher derrière des pics enneigés.
J'adore voir ces montagnes dressées qui nous rappellent à chaque instant que l'Homme évolue peut être depuis des milliers d'année, mais elle étaient là avant nous et seront là bien après.
Et ce que j'aime par dessus, c'est apprécier le calme des cimes, et me dire que le monde devrait être comme ça :"calme, en paix, où tout le monde pourrait cohabiter".
Utopique, non ? :)
Au moins en montagne la présence de l'Homme est moins flagrante.
On peut marcher tranquillement sans qu'un conn*** de vendeur de chouchou ou de beignets vienne te gueuler dans les oreilles.
On peut profiter du calme et de la tranquillité sans que le gamin d'un autre couple vienne t'exploser la tête avec un ballon pendant que tu essaye de dormir.
Tu peux prendre ton temps et profiter de la vie tout simplement sans être entouré de monde.
Je ne suis pas contre les gens, mais parfois ils me saoulent. ^^
J'aime la montagne, parce qu'un peu de calme ça fait un bien fou.
Et puis j'adore le fait de pouvoir marcher perdu dans ses pensées.
J'adore la sensation que tu as rendu en haut, quand tu te dis : "Je suis arrivé en haut".
J'adore voir le soleil se coucher derrière des pics enneigés.
J'adore voir ces montagnes dressées qui nous rappellent à chaque instant que l'Homme évolue peut être depuis des milliers d'année, mais elle étaient là avant nous et seront là bien après.
Et ce que j'aime par dessus, c'est apprécier le calme des cimes, et me dire que le monde devrait être comme ça :"calme, en paix, où tout le monde pourrait cohabiter".
Utopique, non ? :)
Kisonkon, mékisonkon ... j'hallucine ... j'ai viré la maquette du réseau .. maintenant je reçois des mails pour me demander le runtime ou la dll parce qu'ils ont fait un raccourci sur le bureau et que ça marche plus ...
Je crois que je vais faire comme Slave ... à midi je pars en week end ... j'ai une grande fatigue là ...
:-s
Je crois que je vais faire comme Slave ... à midi je pars en week end ... j'ai une grande fatigue là ...
:-s
Je suis désolé de casser cette discussion avec mes problèmes mais j'ai une nouvelle question. :)
Je suis dans le moduleElement et je voudrais récupérer l'Id de l'en-tête standard (Id_std).
Je pensais donc utiliser getIdstd, mais il me renvoi 0. Je suppose que c'est parce que je ne lui indique pas vers quelle en-tête ponter.
Le problème c'est que je ne vois pas trop comment lui dire : "tu prend l'id de cette en-tête là !".
Je suis dans le moduleElement et je voudrais récupérer l'Id de l'en-tête standard (Id_std).
Je pensais donc utiliser getIdstd, mais il me renvoi 0. Je suppose que c'est parce que je ne lui indique pas vers quelle en-tête ponter.
Le problème c'est que je ne vois pas trop comment lui dire : "tu prend l'id de cette en-tête là !".
getIdStd est dans le module ModESEnt_STD, je crois ... dis moi ce que tu veux faire exactement. l'Id que tu veux récupérer doit surement être lié à une condition ?
;o)
;o)
Ba en fait je veux rajouter le mode de calcul par exemple dans une ligne de table que j'ai déjà créé.
Ex :
Id_std lib_verbe .... mod_cal_retenu
1 couper .... ?
Donc je récupère l'ID du std que je viens de créer pis je rajoute dans le champ mod_cal_retenu le mode de calcul que je passe en paramètre.
Je ne sais pas si je suis bien clair.
Ex :
Id_std lib_verbe .... mod_cal_retenu
1 couper .... ?
Donc je récupère l'ID du std que je viens de créer pis je rajoute dans le champ mod_cal_retenu le mode de calcul que je passe en paramètre.
Je ne sais pas si je suis bien clair.
Si c'est le dernier enregistrement, il faut faire ModESEnt_STD.InitTableEnt_Std et ensuite faire LireDernier(). Tu auras le dernier Id_Std avec getId_STD.
alors modifie liredernier dans ModESEnt_STD comme ça :
Ensuite tu fais :
et dis moi le résultat ...
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
Ensuite tu fais :
vrai = ModESEnt_STD.LireDernier(ModuleBdD.getRs)
et dis moi le résultat ...
ok dans module ModuleBdb fait ça:
dans l'entête du module
et dans getRs :
EDIT :::: grosse erreur de ma part ... j'avais pas vérifié
Tu as raison c'est dans ModEsEnt_STD pas dans moduleBdD
dans l'entête du module
et dans getRs :
EDIT :::: grosse erreur de ma part ... j'avais pas vérifié
Tu as raison c'est dans ModEsEnt_STD pas dans moduleBdD
Ça n'inscrit rien dans ma table.
Peut être une erreur de fonction ?
Peut être une erreur de fonction ?
Function InsertionModCal(ByVal mod_cal As String)
Dim ValueId As Integer
Dim vrai As Boolean
ModESEnt_STD.initTableEnt_STD
vrai = ModESEnt_STD.LireDernier(ModuleBdD.getRs)
If vrai = True Then
ValueId = ModESEnt_STD.getIdStd
Set rs = New ADODB.Recordset
rs.Open "Insert into ent_std(id_std, mod_cal_retenu) values ('" & ValueId & "','" & mod_cal & "')", ModuleBdD.cnx
End If
End Function