Tuto VB/Access Fermé

Question

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.

lermite222 · Answer

Bonjour,
déjà pour access..
https://mhubiche.developpez.com/Access/cours/bases/
A+
EDIT:
J'ai retrouvé ca .. pour VB6
https://vb.developpez.com/cours/

Polux31 · Answer

Bonjour,

Tu cherches quoi au juste comme info ?? Quelles sont les points qui posent problèmes ?? On peut peut être te filer des tuyaux ...

;o)

Rikkunter · Answer

Google copain !!

Ahaha, je dis ça juste pour t'embêter.
Access... Bienvenue au Club MrSlave.

Polux31 · Answer

Elle est taquine Rikki ....

Voilà un module pour se connecter à une base Access. Il faut ajouter la référence Microsoft ActiveX Data Objects x.x Library ...

https://www.cjoint.com/?gfnGBoir2Q

Reviens me voir si tu as un blème.

;o)

Polux31 · Answer

Fait un module uniquement pour les échanges avec la base, donne lui le nom de ModBdd. Dans le module tu as une variable constante:
Private Const BDD = "c:\maBase.mdb"
Tu remplaces "c:\maBase.mdb" par le chemin et le nom de ta base.

Ensuite dans le Form_Load, rien ne t'empêche de faire :
Sub Form_Load()
   ModBdd.ConnectBdd
End Sub

Evites de mettre du code dans les modules des formulaires. Fait un module par formulaire ainsi qu'un module pour le traitement des données.

J'ai pas d'exemple ici sous la main, mais je vais tacher de te faire passer un petit truc demain pour te montrer comment faire.

;o)

MrSlave · Answer

Bien alors je ne voudrais pas trop partir dans de mauvaises directions, alors je vais faire un petit point.

J'ai mon module ModBdd qui contient :

Public Const PathBase As String = "C:\Documents and Settings\RBEN\Mes documents\base_temps.mdb"

Public Sub ConnectBdd()
    
    Set cnx = New ADODB.Connection
    
    cnx.CursorLocation = adUseServer
    'Définition du pilote de connexion
    cnx.Provider = "Microsoft.Jet.OLEDB.4.0"

    'Définition de la chaîne de connexion
    cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & PathBase & ";Persist Security Info=False;"
    cnx.ConnectionString = cnx.ConnectionString
   
    'Ouverture de la base de données
    cnx.Open
    
End Sub


Et pour me connecter à la base dès le lancement de ma page, j'ai mis :

Private Sub Form_Load()

    ModBdd.ConnectBdd

End Sub


Pour finir, un petit combobox : (mais il ne fonctionne pas).

Private Sub Combo1_Change()

Dim verb As ADODB.Recordset
Set verb = New ADODB.Recordset

verb.Open "SELECT Verbe FROM test"

combobox1.AddItem verb

End Sub


Est ce que je pourrais avoir un petit coup de main pour le combo, siouplait ?

Merci.

Polux31 · Answer

pas mal .... mais c'est pas ça ... dommage ...

Alors il faut pas remplir la combo sur l'évènement Change() de la combo !!! mais par exemple sur le Form_Load ...


Private Sub Form_Load() 
Dim verb As ADODB.Recordset
Set verb = New ADODB.Recordset

ModBdd.ConnectBdd 
verb.Open "SELECT Verbe FROM test" 
While Not verb.EOF
  combobox1.AddItem verb.Fields(0)
  verb.MoveNext
Wend 

End Sub 


J'ai fait ça de tête, je peux pas tester ici

;o)

Polux31 · Answer

Si tu as copié tout le module que je t'ai fait passer, tu peux aussi faire comme ça

Private Sub Form_Load() 
Dim verb As ADODB.Recordset
Dim query As String
Dim Vrai As Boolean

query = "SELECT Verbe FROM test"
Set verb = New ADODB.Recordset

ModBdd.ConnectBdd 

vrai = ModBdd.OpenRecordset(query, verb) 
vrai = ModBdd.RSLirePremier(verb)
  While Vrai = true
    combobox1.AddItem verb.Fields(0)
    vrai = ModBdd.RSLireSuivant(verb)
  Wend 

End Sub

Polux31 · Answer

Salut,

De rien. Je vais enfiler mon 2ème kawa ... j'ai pas les yeux en face des trous ce matin ... vivement l'apéro

;o)

Polux31 · Answer

Je ne sais pas, mais tu peux utiliser une variable globale dans un module. Quand tu cliques sur le bouton tu affectes à la variable la valeur de la combobox, et dans le form_load après avoir rempli la combobox tu rajoutes ça: 

ComboBox1.Text = mavariable

Polux31 · Answer

De rien, t'as plus k'à payer l'apéro .. j'aime les kaouètes ...

;o)

Polux31 · Answer

Je n'utilise le datagrid et le flexgrid qu'en statique, pour affichage. Et en fait j'utilise le Flexigrid pour ça, pour ne pas autoriser la saisie.

Mais effectivement tu peux l'utiliser en ajoutant un peu de code pour pouvoir faire des saisies. Je ne l'ai jamais fait, mais tu peux trouver des exemples sur : https://vb.developpez.com/faq/?page=Controles et sur https://codes-sources.commentcamarche.net/

Pour ajouter une ligne, le flexgrid est plus facilement manipulable. Dans l'évènement Click() du flexgrid tu peux faire:

MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1

Cette propriété n'existe pas dans le datagrid.

;o)

PS: si l'eau est assez fraîche, pas de glaçon dans le pastaga .. :o))

Polux31 · Answer

oula, c'est chiant à faire ... il faut un contrôle ADODC (composant -> Microsoft ADO Date Controls x.x) qu'il faut configurer (clique droit -> propriétés ...). Tu peux le mettre invisible. Ensuite il faut lier le datagrid au controle ADODC avec la propriété DataSource et affecter la table ou la requête Access à la propriété DataMember ...

Pas top à faire.

Polux31 · Answer

non pas si simple ...

MrSlave · Answer

Ou alors je fais un champs de texte qui récupère ce que j'écris et qui l'ajoute soit à un datagrid, soit à un flexgrid.

Polux31 · Answer

Mais alors à quoi te sers le datagrid ou le flexgrid ?

Polux31 · Answer

Je ne comprends pas bien. Tu peux très bien te faire un tableau uniquement avec des champs texte, sans devoir passer par un datagrid ou un flexgrid ... quel en est l'intérêt ? c'est ça que je ne pige pas bien ...

mais bon je te l'ai dit, j'ai pas les yeux en face de trous et mon neurone est en grève depuis ce matin ... :-s

MrSlave · Answer

Une seule chose à dire, les concepteur de VB sont des tarés.

Tu peux avoir des cases à cocher dans un flexgrid mais dès qu'il s'agit d'y mettre 3 pauvres lettres c'est la merde.

Ca saouuuuuuuuuuule.

Ps : bon en fait, je crois que je vais faire un champ de texte où je mettrais par ex a et b.
Et un flexgrid qui m'affichera :
a
b ...

Polux31 · Answer

tu peux les mettre avec le code, le flexgrid, n'est pas fait à l'origine pour saisir de données ...

zen ... inspirez .... expirez ... 

;o)

Polux31 · Answer

ca fait un bagne que j'ai plus trop utilisé ça ... me faudrait que je fouille dans mes archives pour trouver un truc qui ressemble à ce que tu cherches. Mais là ... pas trop le temps ... tu es pressé ?

PS: Si le café ou le thé de Rikki pouvait être un plus fort et pas ressembler à de l'eau légèrement teinté ...

;o)

MrSlave · Answer

Salut.
Comment ça va bien ?

Alors quelque chose pour moi ? ^^

Polux31 · Answer

Hello ...

Bon j'arrive à peine et je suis à la bourre ... pas encore pris mon kawa .. :o)

Cha va béné, merci et toi ?

J'ai fouillé dans mes archives. J'ai pas pu prendre d'exemples parce que trop gros et liés à unebase Oracle ou SQL serveur ...

En fait je ne me servais du flexgrid que pour l'affichage. Je n'ai jamais fait de saisie directement dedans. Le flexgrid n'étant que le reflet de la table. J'avais des zones de saisie à part et à chaque validation,  je mettais à jour le flexgrid, ce qui revient à ce que tu disais ... pour chaque colonne, une zone texte, un bouton de validation qui commande la mise à jour de la base et la mise à jour du flexgrid par une requête. Un peu comme un sous formulaire.

Ca va pas trop t'aider, mais je n'ai pas mieux ...

;o)

Polux31 · Answer

J'ai également jeté un oeil sur l'aide, mais par grand chose sur l'utilsation ...

Je vais quand même regarder sur vbfrance, il doit bien y avoir quelque chose la dessus. Ca peut toujours servir.

;o)

MrSlave · Answer

En fait j'ai encore une question.

Je me suis servi du code ci-dessous :
https://codes-sources.commentcamarche.net/

Pour ce qui est de la modif et de l'ajout c'est bon.
Mais je n'arrive pas à sélectionner les lignes.
Quand je charge les éléments de ma table, la première ligne est sélectionnée, et quand je rajoute un enregistrement, la dernière est sélectionnée.

Une idée ?

Polux31 · Answer

je n'ai pas acces au lien d'ici :s.

J'ai trouvé ça sur vbfrance ... ça à l'air pas mal : https://codes-sources.commentcamarche.net/

Que veux-tu dire par "je n'arrive pas à sélectionner les lignes" ?

Polux31 · Answer

j'ai pu ouvrir ton lien.

Sur le formulaire tu as le datagrid qui est lié au controle adoData, c'est lui qui permet de selectionner une ligne.
Je pense que tu dois faire un datagrid.Refresh quand tu fais une modif ... et/ou une data.Refresh pour réinitialiser l'objet.

Pour le boulot, je ne suis pas bousculé ce matin ... ;o)

Polux31 · Answer

ce bout de code rajoute une ligne et la remplit avec le recordset ...

Je suis développeur informatique ... et en ce moment je suis chef de projet et éventuellement développeur dans une boîte en haute Normandie (je suis de Toulouse).

;o)

Polux31 · Answer

mais dans le code que je t'ai montré, il n'y a qu'un seul refresh  celui là initialise de controle data, l'équivalent de MoveFirst en SQL.

MrSlave · Answer

Ah ok.  ;)

J'ai trouvé mon erreur.
Comme un c**, j'avais mon adodc en enabled = false.  -_-"

MrSlave · Answer

J'ai encore une question.  :D

Si j'suis chiant vous pouvez le dire.

Est ce qu'il est possible de rajouter une scrollbar verticale sur un datagrid ? (pis comment on fait, si c'est possible) ^^

Merci.

Polux31 · Answer

la scrollbar se met automatiquement ...

;o)

Polux31 · Answer

tu cliques droit sur le controle et ensuite propriété, puis l'onglet fractionnement et tu mets ScrollBar à 4- dgbAutomatic.

Polux31 · Answer

Bravo tu deviens un pro de VB ... ;o)
Bon app a vous deux

MrSlave · Answer

Je suis désolé de revenir à quelque chose d'important (patapey Rikk, patapey ...).  :D

Quand on met des chose dans combo_change, les choses en question seront prises en compte à quelle moment ?
Lors d'une modification de la valeur du combo ?

Parce que j'ai 3 combo.
J'ai mis le premier en accessible et j'ai bloqué les 2 autres.
Et j'ai mis (pour bloquer le 1er et libérer le 2eme):

Private Sub Combo1_Change()
        Combo2.Enabled = True
        Combo1.Enabled = False
End Sub

Mais apparemment ce n'est pas ça. ^^

Polux31 · Answer

En principe, la fonction Change() intervient dès que l'on tape ou change une valeur dans la zone texte de la combo (ou autres contrôles ayant cette fonction).

Dès que le contrôle a le focus, pour toute modification du contenu du contrôle, le code derrière est exécuté.

Je ne sais pas si c'est bien clair comme explication ...

Polux31 · Answer

Alors c'est sur l'évènement Click() ...

MrSlave · Answer

J'suis pas encore un pro je crois, j'ai encore besoin de toi. ^^

Toujours avec mes combo liées. Bon quand je sélectionne une valeur sur la combo1 elle devient inactive et la 2eme devient active. Mais je ne veux pas qu'elle me revoit toutes mes valeurs de la table.

Je m'explique :
- une séquence est composée d'un id, d'un verbe, d'un sujet et d'un complément.
- quand je sélectionne le verbe (combo1), je ne dois afficher que les sujet qui correspondent au verbe sélectionné. (donc le même id)

J'ai donc fait :

Dim sujet As ADODB.Recordset
        Dim query2 As String
        Dim query4 As String
        Dim Vrai As Boolean
         
        Combo2.Enabled = True
        Combo1.Enabled = False
        
        query4 = "Select id_std from ent_std where lib_verbe =" & Combo1.Text
        query2 = "SELECT LIB_Sujet FROM ENT_STD where id_std =" & query4
        Set sujet = New ADODB.Recordset
        
        Vrai = ModuleBdD.OpenRecordset(query2, sujet)
         Vrai = ModuleBdD.RSLirePremier(sujet)
         While Vrai = True
         Combo2.AddItem sujet.Fields(0)
         Vrai = ModuleBdD.RSLireSuivant(sujet)
        Wend


Là je l'ai fait en 2 requêtes :
- je récupère l'id de l'enregistrement contenant le verbe
- je récupère les sujets donc l'id correspond à celui du verbe.

J'espère que c'est assez clair. ^^

Polux31 · Answer

Oui mais tu ne passes pas ta 1ère requête à la base donc, tu ne récupères pas l'id ...
Testes avec cette requête :

Dim Query As String
Query = "SELECT LIB_Sujet FROM ENT_STD where id_std = "
Query = Query & "(Select id_std from ent_std where lib_verbe ='" & Combo1.Text & "')" 
Vrai = ModuleBdD.OpenRecordset(Query, sujet)
...


C'est fait à la volée, sans filet ... peux pas tester ici .. :oS

;o)

Polux31 · Answer

j'avais bien compris ça :o) et je pensai qu'avec une requête imbriquée ça marcherait :-s ...

Tu peux également fait une variable qui récupère ta première requête :

Dim myId As Integer
Dim query As String
Dim rs As ADODB.RecordSet

   query = "SELECT id_std FROM ENT_STD WHERE lib_verbe ='" & Combo1.Text & "'"
   set rs = New ADODB.Recordset
   Vrai = ModuleBdD.OpenRecordset(Query, rs)
   myId = rs.Fields(0)
   set rs = Nothing

  query = ""SELECT LIB_Sujet FROM ENT_STD WHERE id_std =" & myId
  set rs = New ADODB.Recordset
  Vrai = ModuleBdD.OpenRecordset(Query, rs)
  Vrai = ModuleBdD.RSLirePremier(sujet)
      While Vrai = True
         Combo2.AddItem sujet.Fields(0)
         Vrai = ModuleBdD.RSLireSuivant(sujet)
     Wend
...
enfin j'espère ..

;o)

Polux31 · Answer

ça bloque où ? as-tu un message d'erreur ?

Polux31 · Answer

ça veut dire que ta requête ne retourne rien alors ... où qu'il y a eu un problème dans le passage vers la base.

Mets un point d'arrêt sur vrai = ModBdd.OpenRequête(query, rs) et passe le code pas à pas (F8) pour voir s'il y a une erreur dans la fonction OpenRequete() .. Regardes au niveau de If Err.Number <> 0 then ...

Polux31 · Answer

Peux tu mettres ça dans RSLireSuivant(byRef rs as adodb.Recordset) as boolean, stp ?

If err <> 0 Then
   RSLirePremier = False
   MsgBox Err.Numbre & ": " & Err.Description
   Exit Function
End If

Polux31 · Answer

Sinon autre solution ... fais passer ton zinzin zipper avec la base par cjoint et je regarde ce soir.

Polux31 · Answer

c'est les doublons qui te gène ? parce que chez moi j'ai les 3 combos qui sont remplis ...

Polux31 · Answer

Bon je ne peux pas ouvrir Access ici ... je regarde ça ce soir, il faut que j'y aille là ... j'ai une réu

:S

Kisssouu Rikki

Bye MrSlave à demain

Bonne soirée à vous deux.

;o)

MrSlave · Answer

Bonjour à tous ceux qui passeront ici.  :)

Polux31 · Answer

Hello,

Mes hommages du matin ... Comment vous allez bien ... ?

Je te passe le fichier que j'ai "un peu" modifié : https://www.cjoint.com/?gkiKTAf4ux

Remets le chemin de ta base dans ModuleBdD. J'ai juste le temps d'aller boire un café et je file en réunion ... je reviens vers 10 h.

N'hésites pas à laisser tes questions ici ...

M'a fallu 2 aspirines pour tout comprendre ...

nan, je rigole ... ca ferait tellement plaisir à Rikkitounette ...

;o)

Polux31 · Answer

Bon la réunion est annulée ... veulent pas faire leur boulot, moi je m'en fous, je suis pas pressé et je suis quand même payé et plus ça dur, plus je gagne d'argent ... :DDDD  (petite parenthèse)

et il me rend un truc qu'il va falloir que j'assimile.  mais qui fonctionne... lol

Pour ce qui est des modules, ce n'est en fait que l'équivalent d'une classe (pour faire simple) et ça permet de ne pas mélanger les torchons avec les petites cuillères.

Je vais pas te faire un cours sur l'architecture d'une application, mais en règle générale, on a trois couches. La couche supérieure qui reçois les données (l'interface utilisateur par exemple) où l'on saisie et remonte les données. La couche intermédiaire qui manipule les données (là on conditionne les données) soit en saisie, soit en affichage et la couche inférieure qui fait la liaison avec la source de données (fichiers ou base de données ...). Tu peux également avoir des sous couches. Une couche peut être composée d'un ou plusieurs modules. Il y a toujours un ou plusieurs modules qui font la liaison entre les divers couche.

Ce type d'architecture permet d'avoir des modules indépendants. Dans ton zinzin, j'ai fait un module qui gère ton formulaire Form2 que j'ai nommé ModfrmForm2. Et j'ai fait un module intermédiaire qui gère les données ModESEnt_STD. Ce module gère les données de la table ENT_STD. Il n'est pas complet, je n'ai pris que les données dont j'avais besoin. Mais tu dois le compléter pour prendre en compte tous les champs de la table. Tous les appels à la base font par le module ModuleBdD et ce module peut être utiliser par tous les autres modules. De même le module ModESEnt_STD peut être utilisé par tous les autres modules qui ont besoin des données de cette table.

Je te laisse digérer ça doucement ... je retourne boire un café et je vais remonter quelques bretelles et je re ...

;o)

PS: Rikki, prend des notes ... je vais pas répéter :DDDD

Polux31 · Answer

il faut utiliser Unload ... qui permet de libérer la mémoire utiliser par la form ... effectivement hide ne fait que masquer. Ensuite il faut relancer avec show qui lance et passe par le Form_load() du formulaire.

;o)

Polux31 · Answer

D'ou l'interet d'avoir un module à part avec des fonctions pour chaque chose :o).

Regarde le code de ModfrmForm2. Tu as une procédure initCombo1 ... (j'ai d'ailleur oublié de faire un combo1.Clear) ...

Pour remettre la form dans son état initiale, il suffit de faire une procédure du genre :
Public Sub MaZ_Form
With Form2
   .Combo1.Enabled = True
   .Combo2.Enabled = True
   .Combo3.Enabled = True
   .Combo1.Clear
   .Combo2.Clear
   .Combo3.Clear
   .Text1.Enabled = True
   .Text2.Enabled = True
   .Text1.Text = ""
   .Text2.Text = ""
End With

InitFrm
End Sub

MrSlave · Answer

Je viens de passer 5min a essayer d'ajouter des valeurs fixes pour un combobox. 
Je crois avoir testé toutes les manières possibles.  xD

Mais bon, ça fonctionne c'est le principal. :)

Polux31 · Answer

Apéro alors ?

:o)

MrSlave · Answer

Atta, j'ai encore une question.  :P

Est ce qu'il est possible de trier les valeurs du Datagrid ?
J'ai voulu les trier lors de l'appel avec un ORDER by mais ça me les met à la suite, sans tri.

MrSlave · Answer

Raaaaaa. S'quoi ça ? conca = Combo1.Text & " - " & Combo2.Text & " - " & Combo3.Text If (Me.txtLibelle.Text <> "" Or conca <> "" And Me.txtPosAff.Text = "") Then sup = MsgBox("Veuillez remplir le champ : position de la séquence", vbCritical + vbOKOnly + 0, "Position Séquence") Exit Sub ElseIf (Me.txtLibelle.Text = "" Or conca = "" And Me.txtPosAff.Text = "") Then sup = MsgBox("Vous devez renseigner les champs", vbCritical + vbOKOnly + 0, "Position Séquence") Exit Sub ElseIf (Me.txtPosAff.Text <> "" And Me.txtLibelle.Text = "" Or conca = "") Then sup = MsgBox("Tous les champs ne sont pas renseignés", vbCritical + vbOKOnly + 0, "Position Séquence") Exit Sub End If Sachant que j'ai 2 champs texte (txtLibelle et txtPosAff et 3 combo. Je veux que soit txtLibelle ou les 3 combo concaténée et txtPosAff soit non vides pour passer à l'étape suivante. Mais ça ne fonctionne pas du tout. Si je ne met rien du tout, il me met : Veuillez remplir le champ : position de la séquence. Oô

Polux31 · Answer

Heu j'ai besoin d'un café là ... mon neurone est sur la digestion ..

;o)

MrSlave · Answer

Euh .... siouplait. ^^

Je dois récupérer un ID grâce au verbe + sujet + complément.

Imaginons ma table :

Id - verbe - sujet - complement
1 - couper - fil - avec pince
2 - couper - sac - sans pince

Ma première combo va m'afficher couper.
Me deuxième fil et sac (disons que je choisisse sac)
Et ma troisième sans pince.

Il faut que je récupère l'ID dont le verbe est couper, le sujet sac et le complement sans pince.

Ma requête sera "Select id_std where verbe = " & combo1.text & " sujet ....

Mais comment je l'utilise ?  :\

J'ai bien vu le post 176 de Polux mais c'est assez embrouillé.

J'suis désolé de vous prendre tant de temps, mais sans moi vous ne sauriez pas quoi faire. :)

Polux31 · Answer

Donc ici tu auras :

myId = myRecordset.Fields("Id_Std")

Fait attention dans tes requêtes SQL ... les chaînes de caractères doivent être entre simple côte ... :

query = "Select id_std From Ent_STD where Lib_verbe =  '" & combo1.text & "' _
        And Lib_sujet = ' "  & combo2.text & " ' And Lib_Complement = ' " & combo3.Text & " ' "

;o)

Utilisateur anonyme · Answer

"Je ne peux pas les mettre avec le code. Parce que ça sera au user de remplir le tableau"

Je ne comprends rien. Faut bien remplir à un moment

MrSlave · Answer

Salut à tous. (même si j'ai l'impression que ce tous s'adresse à Polux vu que Rikk n'est pas là aujourd'hui).

Polux31 · Answer

Salut à vous ...

Pas là Rikki aujourd'hui ??? :-((

Je t'envoie le fichier ... et je file boire un café ... alors ne commence pas à raler ... tu vas encore trouver des modules supplémentaires ... (eh oui peut pas m'empécher de les multiplier ..). Un jour tu me remercieras t'avoir fait ça ...

;o)

https://www.cjoint.com/?gli7QgOptV

je suis plus là  ---->>>>>>>>>

Polux31 · Answer

ben oui ... quikon va embéter ?... pffffffff elle pourrait prévoir une suppléante ...

:o)

Polux31 · Answer

Alors, pour le temps ... sans vouloir te vexer (loin de là) ... pour règler le beug, j'ai mis 5 à 10 minutes et 15 minutes pour remettre de l'ordre ....

pour la question technique :

Mod_calc_retenu fait partie de la structure qui reçoit les données du recordset.
Si tu remarques bien, lorsque je fais une requête, je récupère toujours toutes les données d'un tuple (ligne complète d'un enregistrement). Ensuite je remplis ma structure avec le recordset. Je peux ainsi avoir accès à tous les éléments. Ca peut paraître bourrin de prendre tous les éléments dans le recordset pour une seule valeur, mais je ne perds pas plus de temps d'accès à le faire, je n'ai pas à construire une fonction supplémentaire, et bien souvent on peut avoir besoin de récupérer un autre élément lié au résultat de la requête (par exemple l'Id ou une clé étrangère pour faire une recherche dans une autre table). 

;o)

MrSlave · Answer

Je vois bien que tu ne sais pas quoi faire, alors je vais en profiter pour te poser une nouvelle question. :)


Form1.adoData.Recordset![Libelle] = Trim$(Me.txtLibelle.Text)


Je n vois pas vraiment à quoi sert le Trim$.
Parce que Me.txtLibelle.text va récupérer la valeur insérée dans le champ txtLibelle et va l'affecter dans la form1.

Polux31 · Answer

tu peux enlever le "$" qui ne sert strictement à rien ... ensuite la fonction Trim() permet d'enlever les espaces avant et après une chaîne de caractères :

Trim("  coucou  ") renvoie "coucou"

Un espace dans un textBox compte comme un caractère. Il est parfois utile de s'assurer que l'utilisateur n'est pas mis des espaces. Imagine que l'utilisateur doive mettre "Oui" ou "Non" dans une zone texte. Et que tu testes la valeur saisie.
" Oui" n'est pas égal à "Oui" ni à "Oui  " ... comprendo ?

;o)

Polux31 · Answer

heuuu oui je crois ... si tu click sur la colonne ça doit faire le tri :o))

a voir ...

MrSlave · Answer

Euh ... tu vas peut être me prendre pour un NooB, mais je viens de rajouter un datagrid dans un nouveau form.
Et je veux rajouter des lignes comme pour l'autre.

Mais au lieu de m'écrire à la suite, il m'écrase la ligne.
S'quoi le problème docteur ?

Polux31 · Answer

Je ne sais pas ... :(

Regarde dans les propriétés du Datagrid si tu as les mêmes que sur ceux de form1 ... ça vient peut être de là.

Polux31 · Answer

lol ... je ne connais pas tous les contrôles de vb .... loin de là ...

Sans rire ... fais voir ton code ... je viens de faire un essais et sans rien toucher j'ai bien une liste qui s'affiche ..

;o)

Polux31 · Answer

Eh p'tite tête ... fastoche ... si tu avais commencé par mettre le code ...

Private Sub btAjout_Click()
    adoData3.Recordset.AddNew
    adoData3.Recordset![Valeur] = Trim(Me.txtval.Text)
    adoData3.Recordset![ja] = Trim(Me.txtJa.Text)
End Sub

;o)

p'tin ... elle rate ça Rikki, c'est dommage ... :DDD

Polux31 · Answer

Si c'est pas indiscret, dans quel cadre tu fais ce zinzin ?

Polux31 · Answer

ok ok ... merci ...

MrSlave · Answer

J'ai encore besoin de toi. (t'inquiète pas, dans 2 semaines je suis en vacances.  :) ).

De quel format est le résultat d'une combo ? (combo.text)

Parce que je veux insérer dans une table ce que je récupère des combo.

J'ai :
If sup = vbOK Then
      sql = ModuleBdD.Ajout(un, deux, trois)
      MsgBox "Création de l'en-tête confirmée"

Et dans ModuleBdD :
Public Function Ajout(un As String, deux As String, trois As String)

    rs.Open "Select * from ent_std", cnx
    CmdSql.CommandText "Insert into ent_std values ( ,'" & un & "','" & deux & "','" & trois & "','','','','','','','','','')"
    CmdSql.Execute , rs
    rs.Update

End Function

Mais il me met type d'argument incompatible sur un dans sql = ModuleBdD.Ajout(un ...)

Polux31 · Answer

Tu n'as pas besoin de mettre l'emplacement de la clé (autoincrémenté) : Insert into ent_sdt values('" & un & ".....

De quel format est le résultat d'une combo ? c'est format String lorque l'on récupère avec la propriété .Text, si les items de la combo sont numériques, il faut utiliser la propriété .Value ...

Polux31 · Answer

ah oui exact ... il faut ByVal ... zavais pas voyu cha

Polux31 · Answer

Tu es sur de ton code pour Ajouter ???
J'suis pas sûr que ça fonctionne ... :O°

Polux31 · Answer

Mais j'avais pas tout vu ...............  grrrrrrrrrrrrrrrrrr

Que fait cette fonction dans ModuleBdD ?????????

Polux31 · Answer

Sacrilège ........

Non ce n'est pas une méthode du module BdD.... cette fonction appartient au module qui déclenche l'ajout ...

Va falloir que je parle à tes profs mouai ... mdrrr

Polux31 · Answer

OUUUIIIIIIIIIIIIIIINNNNNNNNNNNNNNNNNNNNNNNNNNNN !!!!!!!!!!!!!!!!!!!!

Polux31 · Answer

Tu manipules des données directement de l'IHM vers la base de données ......... :(((
Alors qu'il y a un module pour faire la transition ....

Tu veux ajouter dans Table Ent_STD ...  ModESEnt_STD sert à ça ... il suffit d'ajouter la méthode pour le faire. Comme ça, ensuite, n'importe où dans ton code tu pourras passer par cette méthode pour ajouter des enregistrement dans la table Ent_STD ... sans être obligé de tout réécrire ... et je pense que ta méthode ne marche pas ...

MrSlave · Answer

Je crois que je vais te demander un petit coup de main là parce que je me noie.

Déjà je ne sais pas si je dois affecter ma requête à une variable et utiliser cette variable après, ou utiliser CommandText.

Polux31 · Answer

Eh bien résonne en objet, même avec VB ... le principe reste identique. D'ailleur VB manipule des objets, ça doit pouvoir t'aider.

Pour info : je ne suis venu à l'informatique que pour une réorientation professionnelle (j'ai été 15 ans qualiticien et 8 ans responsable commercial avant) ... j'ai suivi une formation de 12 mois avec un stage en entreprise de 2 mois. Pendant la formation, on a survolé le VB, le HTML, PHP et autres langages. La formation était plutôt orientée base de données (client/serveur), spécifications et conceptions.
Le langage n'est qu'une question de syntaxe. Mais les mécaniques et raisonnement pour faire fonctionner une appli restent les mêmes quelque soit le langage. J'ai fait des appli en Java, en C et C++, en VB et même des applis pour du net avec PHP, Ajax, Javascript etc ... sans parler des bases de données ...

Il y a assez de tutos ou forums sur le net pour trouver des solutions à un problème. Il y a aussi de très bons livres dédiés à chaque langage.

Si tu as appris le Java en cours, tu dois savoir ce qu'est l'encapsulation des données et des méthodes liées aux données, je pense. Il en est de même pour VB.

voili voilou ...

Ne fais pas une fixation sur le langage, mais concentres toi sur l'organisation de tes données ...

Polux31 · Answer

Si j'ai bonne mémoire (j'en doute) ... ce qui est chiant avec access c'est qu'il n'accepte pas les insert en SQL ... ça a peut être changer, mais il me semble qu'il faille faire un Add avant d'inserer les données.

Je vais regarder ça ...

MrSlave · Answer

Bon ma journée est finie, je rentre chez moi.

Je reprendrais tout ça au calme demain matin après un peu de repos.  :)

Bonne soirée à toi.

Polux31 · Answer

Merci .. bonne soirée

A demain

MrSlave · Answer

Salut, salut.

J'espère que vous allez bien. :)

Ba voui, je suis encore là.

Dites moi (si vous le savez bien entendu ^^), j'ai une erreur(pour changer) : "type défini par l'utilisateur non défini", sur la ligne "Set rs = New ADOBD.Recordset" de ma fonction.

Voici mon code :
Function Insertion(ByVal un As String, ByVal deux As String, ByVal trois As String)
Dim rs As New ADODB.Recordset
Dim requete As String
Dim vrai As Boolean

    requete = "Insert into ent_std values ('" & un & "','" & deux & "','" & trois & "','','','','','','','','','')"
    Set rs = New ADOBD.Recordset
    rs.Open requete, ModuleBdD.cnx
    Insertion = True
     
End Function

Donc si vous avez une idée de mon problème, et si vous voulez m'aider (il y en a peut être qui ne veulent pas), j'accepte vos solutions avec grand plaisir.

Merci.  :)

MrSlave · Answer

SI tu nous as manquée.

http://www.commentcamarche.net/forum/affich 6743129 tuto vb access?page=4#238

Polux31 · Answer

Salut les p'tits loups ... :o)) Alors pour l'erreur : Dim rs As New ADODB.Recordset << ----- elle est là ... Ceci dit ... je ne pense pas que ça marche quand même ... :DDD ... ça, c'est fait ... Kikou Rikki ... Si tu relis les posts d'hier tu verras que oui ton absence nous a chagriné ... Voili voilu voilou et hop --->>> je suis parti boire mon café ... ;o)

MrSlave · Answer

J'ai partiellement reglé mon problème. :)

Maintenant c'est une erreur "type donnée incompatible dans l'expression du critère"

Je n'ai plus que ça dans ma fonction :
    Set rs = New ADODB.Recordset
    rs.Open "Insert into ent_std(id_std, lib_complement, lib_sujet, top_debut, top_fin, lib_std, mod_cal_retenu, date_last_calc, th_act, taux_alea, mod_cal_dernier_trn, lien_photo) values ('" & un & "','" & deux & "','" & trois & "','','','','','','','','','')", ModuleBdD.cnx
    rs.Close

C'est bizarre parce que tous mes champs sont des champs de texte. (Enfin 12 champs de texte et 1 champs numérique auto-incrémental).

Je vais bien finir par réussir une requête d'insertion, nom d'une pipe en bois !  :P

Polux31 · Answer

Comme je te l'ai dit hier ... il ne faut pas indiquer l'identifiant qui est auto incrémenté en insertion automatique ... tu donnes plus de champs à mettre à jour que de données (ca va pas le faire) et pourquoi mettre les champs vides ??? 

Ca corrige ta requête SQL mais je doute que ça fasse ce que tu veux faire ...


Rikki qui est sur Access a peut être une idée ??

;o)

Polux31 · Answer

dans un Insert tu indiques les champs où tu veux mettre des valeurs ... ce n'est pas la définition de la table ...

Table maTable(id, champ1, champ2, champ3)

Insert Into myTable(champ1, champ3) value ('Papa', 'Maman')

ID   champ1    champ2     champ3
--------------------------------------------------
1     Papa                Maman

Pour Rikkounette ... l'insertion dans une table Access (ou autre) n'a rien à voir avec le type de connexion ... ADODB est un gestionnaire de connexion (on dit aussi "driver") ...

Vous avez les mêmes profs ??? :DDD

je vous laisse encore plancher sur le sujet ... j'ai une big réunion dans pas longtemps et je ne serai dispo que cet aprem ...

Et comme c'est en sciant que Léonard devint scie, c'est en programmant qu'on devient programmeur ...

;o)

EDIT: correction ... non vous avez pas les mêmes profs ... bien vue Rikki  ;o)

MrSlave · Answer

Il y a un truc que je ne comprend pas dans ton code Polux.

Tu as une méthode fillStruct qui fait appel à inittab.

With entStd
        .id_STD = -1
        .Lib_Verbe = ""
        .Lib_Complement = ""
        .Lib_Sujet = ""
        .Mod_cal_retenu = ""
    End With

Vu que Mod_cal_retenu est un champ de type texte je l'ai mis à "" et non à 0.
Mais quand je pointe sur Mod_cal_retenu, ça m'affiche .Mod_cal_retenu = 0.
Je ne comprend pas d'où vient le 0.

Idem, tout à l'heure sur le code :
If Not IsNull(rs.Fields(8)) Then
            .Mod_cal_retenu = rs.Fields(8)
        Else
            .Mod_cal_retenu = ""
        End If

Si je pointais vers rs.Fields(8), ça m'affichait rs.Fields(8) = "M1" (donc là ça va).
Mais si je pointais toute la ligne, j'avais .Mod_cal_retenu = 0.

J'ai repris le code du début, mais je dois avouer que je ne comprend pas.

Je suis vraiment désolé de te prendre tout ton temps comme ça.
J'espère pouvoir te rendre la pareille un jour (m'enfin ça m'étonnerais vu mes connaissances par rapport aux tiennes ^^).

Polux31 · Answer

dans le module modent_std il faut aussi changer le type dans la structure :
Private Type TabEnt_STD
    id_STD As Long
    Lib_Verbe As String
    Lib_Complement As String
    Lib_Sujet As String
    Mod_calc_retenu As String
End Type

ça doit le faire ...

Rikkunter · Answer

J'espère vous avez bien mangé :)

Je viens de me rendre compte d'une nouvelle catastrophe naturelle, après avoir recommencé un bout de mon applic sur Access avec un backup tout moisi, je vois que tous les formulaires sont effacés après que je sois allée manger...

Je sais plus quoi penser.

EDIT : Aha. En supprimant puis rajoutant les tables liées, les formulaires se font la malle ? Génial, ça ...

Polux31 · Answer

Bon alors et ce café bien fort ???.... l'est zou ???

Il est gros ton projet Rikki ?

Polux31 · Answer

vu d'ici ... non je vois pas ... mais si tu mets ton code ... je vais peut être entrevoir le pourquoi du comment ...

Polux31 · Answer

Première erreur:
Public Sub fillStruct(rs As ADODB.Recordset)

    initTab
    With entStd     '<<--------- l'erreur ici   Mettre With element
...


Deuxième erreur
Public Sub initTab()

    With element
        .id_element = -1
        .type_element = ""
        .Lib_element = ""
        .actif = ""    <<-------------------- type booléen dans la structure mettre False par défaut.
    End With
    
End Sub

Voili voilou  :O))

Polux31 · Answer

bâh, ça arrive à tout le monde ... même au plus expérimenté, quand on a la tête dans le guidon on ne voit pas toujours tout ... :o)

MrSlave · Answer

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):
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é.

Polux31 · Answer

l'erreur vient de là:
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 ...

Polux31 · Answer

peux-tu me faire passer le module stp ...

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 ...

Rikkunter · Answer

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

Polux31 · Answer

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:

vrai = ModESElement.searchIdByItem("type_element", "V")

Ensuite pour lire, il suffit de faire :
maVariable = ModESElement.getLib_element

;o)

Polux31 · Answer

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)

Polux31 · Answer

Voilà j'ai fini les garnitures ... c'est tout beau ...

Je vais me rentrer chez mon moi ... 

Bonne fin de soirée. reKisssouuu

;o)

MrSlave · Answer

Salut les gens comment ça va bien ?

Toujours en forme sous ce beau soleil ?

Polux31 · Answer

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)

Polux31 · Answer

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)

Polux31 · Answer

p'tin ... c'est dur la vie en Suisse ...
Mais c'est si beau ...

Polux31 · Answer

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

MrSlave · Answer

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à !".

Polux31 · Answer

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)

Polux31 · Answer

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.

Polux31 · Answer

tu es dans quel module quand tu fais ça ?

Polux31 · Answer

alors modifie liredernier dans ModESEnt_STD comme ça :
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 ...

Polux31 · Answer

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

Polux31 · Answer

Id_Std est de type string ? et plus en mode auto incrémenté ???

rs.Open "Insert into ent_std(id_std, mod_cal_retenu) values ('" & ValueId & "','" & mod_cal & "')", ModuleBdD.cnx
     End If

Polux31 · Answer

la requête doit faire un truc comme ça

"Insert into Ent_STD (mod_cal_retenu) values('" & mod_cal &"') Where id_Std = " & ModESEnt_Std.getIdStd & ";"

;o)

Polux31 · Answer

si tu es encore là ...

peux tu me faire passer ton zinzin ... j'y jeterai un oeil ce qeek

;o)

MrSlave · Answer

Salut les gens.

Comment ça va bien aujourd'hui ?  :)

Rikkunter · Answer

Slaaaave est de retouuuuuurrreuuuhh.

Yop :)

Ca va et toi, la grande forme ?

Moi j'ai faim tiens ... Pour changer :D

Polux31 · Answer

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)

Rikkunter · Answer

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/

MrSlave · Answer

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 ? :)

Polux31 · Answer

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)

Polux31 · Answer

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 ?

Polux31 · Answer

Et quel est le retour de "SELECT LAST_INSERT_ID()" ? je ne connais pas cette instruction ... :o5

Polux31 · Answer

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)

Polux31 · Answer

ah bâh voui ... zavais pas vu ...

Polux31 · Answer

peux-tu me passer le zinzin ? parce que j'ai un peu perdu le fils ... :o(

Polux31 · Answer

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)

Polux31 · Answer

Ah oui normal ...
Après ValueId = rs.Fields(0) faire :

set rs = Nothing

set es = new ADODB.recordset

;o)

@ ++

Polux31 · Answer

Ils ont remis la réu d'une demi-heure ... reporté à 11h ... tu peux envoyer le kawa de suite ... :o)

MrSlave · Answer

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.  ^^

Polux31 · Answer

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))

Polux31 · Answer

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)

Rikkunter · Answer

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.


=========> [].

Polux31 · Answer

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)

MrSlave · Answer

Ba voilà.

Je pose plus de question et vous ne dites plus rien.

Ralala ...

MrSlave · Answer

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.  :)

Polux31 · Answer

Oui getRows renvoie un tableau à 2 dimensions, et es-tu sûr que tab1 et tab2 sint de la même longueur ?

MrSlave · Answer

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

Polux31 · Answer

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)

Polux31 · Answer

tu parles des listes en java ?

Polux31 · Answer

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 ...

Rikkunter · Answer

Yatta je suis là !
Pas une nouvelle qu'il est débile >:) &#9829;

Polux31 · Answer

nan elle dort pas ........ te connait bien dis donc ^^

;o)

Rikkunter · Answer

Pas besoin de beaucoup le connaître, ça se voit aux premiers abords. xD

MrSlave · Answer

La bave du crapaud n'atteint pas la blanche colombe.

Polux31 · Answer

Bon eh bien moi .... je tire le rideau pour ce soir ...

Bonne soirée à vous deux et à demain .... si vous le voulez bien !!!

;o)

MrSlave · Answer

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

Rikkunter · Answer

'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 ? :)

MrSlave · Answer

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

Polux31 · Answer

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)

Rikkunter · Answer

(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)

Polux31 · Answer

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)

MrSlave · Answer

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 ?

MrSlave · Answer

Journée terminée.

A demain.  :)

MrSlave · Answer

Salut tout le monde.

Comment ça va bien ?

J'avais une petite question Polux.  :)
Est ce qu'il y aurait un moyen de vérifier ce qui a déjà été inséré dans une combo ?
Parce que j'ai des champs qui se répentent. Donc je pensais ajouter un champ qui vérifie si la valeur qu'on veut ajouter est déjà présente.
Private Sub initCombo1()
Dim vrai As Boolean
Dim test As String

    With Form2
        .Combo1.Clear
        ModESEnt_STD.initTableEnt_STD
        vrai = ModESEnt_STD.LirePremier
        While vrai = True
           .Combo1.AddItem ModESEnt_STD.getlib_verbe
            vrai = ModESEnt_STD.LireSuivant
        Wend
    End With
    
End Sub
Au lieu de faire directement Combo1.addItem ..., on fait var = ModESEnt ....
On vérifie si la valeur est présente. Si elle est présente, on lit le suivant, sinon on l'ajoute.

Merci

Polux31 · Answer

Salut,

Bon j'ai les doigts croisés depuis ce matin pour Rikki (une petite pensée pour elle en passant) mais je m'autorise de les décroiser pour te répondre :D

Il me semble que j'utilise déjà une méthode pour vérifier une donnée avant de la mettre dans une combo ... j'en suis pas sûr, je vais vérifier et je te dis quoi.

;o)

Polux31 · Answer

Je confirme ... regarde dans ModfrmForm1, il y a un tableau myListe() et une méthode verifListe() pour éviter les doublon dans les combos ...
Tu peux t'en inspirer pour ce que tu veux faire, c'est le même principe.

;o)

Polux31 · Answer

De rien ... :D

;o)

MrSlave · Answer

Salut.

Rikk est de retour ?

Allez hop, kawa pour tout le monde et Thé pour la miss. :)

Polux31 · Answer

Kikou les p'tits loups,

Comment ça va trop bien vous ?

Alors Rikki, comment ça c'est passé ? 

Merci pour le kawa Slave. 

La bonne journée à vous deux ...

;o)

MrSlave · Answer

Allez hop ça faisait longtemps.

Polux, j'ai un problème. :)

Si je veux insérer des choses dans un datagrid, je suis obligé de récupérer ce qu'il y a dans la table où je veux ajouter des éléments.
adoData.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & bdd
    adoData.RecordSource = "select Position_affichage,Libelle,id_std, is_std from SEQ_STD"
    adoData.CommandType = adCmdText
    adoData.Refresh
Mais j'aimerais que rien ne s'affiche dans mon datagrid, et je ne sais pas trop comment faire.

J'ai essayé d'enlever le adoData.refresh, en me disant que si on ne le rafraichissait pas, il ne m'afficherait rien dans le datagrid. J'ai eu raison mais dans ce cas, j'ai une erreur lors d'une tentative d'ajout d'un élément.

Une idée peut être ?

Merci.

Polux31 · Answer

Il faut mettre un flag ... je m'explique. Tu déclares un flag en variable globale du module. Tu fais le refresh quand le flag est à True par exemple et tu fais pas le refresh que le flag est à False ...

Donc quand tu fais un rajout que tu veux voir afficher, tu passes le flag à True et dans le code tu mets une condition:
If flag = True Then adoData.Refresh

épicétou...

;o)

Rikki, c'est bien je trouve 1.7 ... et puis c'est pile poil le reflet de la réalité ... quand on prévoit 4 % de croissance économique, on arrive péniblement à faire entre 1.5 et 2 ... tu es en plein dedans ... :D

Bon gras kawa avant de parit en réu ...

Polux31 · Answer

là c'est moi qui suit plus .... tu as bien employé le flag qui te raffraichit ton datagrid quand tu le décides (en passant, bien vu Rikki dans ton post 509). Je ne vois pas où est le blème maintenant ...

Vais au kawa et je re pour lire la réponse.

;o)

Polux31 · Answer

Oui, c'est normal que tu affiches tout avec ta requête : 
"select Position_affichage,Libelle,id_std, is_std from SEQ_STD"

Ca devrait aller mieux si tu y mets une condition ...

;o)

Polux31 · Answer

Bonjour les p'tits loups,

Eh ben quel calme ce matin ... z'êtes pas malades au moins ?

Bon je vais me mettre un kawa au fond du gosier avant de déclencher les hostilités.

@++

;o)

Polux31 · Answer

Y a des nantis quand même ... ^^

Félicitations pour le 3 en économie Rikki.

Petite journée pour moi, je vais partir de bonne heure cet aprem direction Paris... je vais faire la fête de la zik là bas avec des zamis ... 

Voili, voilou ... bon je continue d'écrire mes spec ... pfff le plus chiant à faire dans ce métier.

@ +

Rikkunter · Answer

(Je tiens à noter que 3 est une note pitoyable en temps normal vu que la moyenne est à 4, mais je suis contente avec ça xD)

Sur ce, c'est bientôt manger, donc bon ap à vous, et bonne fête de la musique à Polux si on le revoit pas avant ;)

MrSlave · Answer

Je suis de retour.  \o/

Comment ça va bien les gens ?

Polux31 · Answer

Yeahhh .... Mr Slave .... le retour .. tsoin tsoin !!!

Ca va bien merci et toi ? racontes un peu ta soutenance, tes longues vacances ... etc :D

;o)

Polux31 · Answer

ben voilà, pour pas que la reprise soit dure, faudrait pas s'arrêter ....

Content pour toi pour ton DUT.

2 mois de boulot, c'est vite passé. Surtout en juillet et août. Les gens partent et rentrent de vacances, c'est cool... :DDD

Vais me faire un kawa bien chaud ...

;o)

MrSlave · Answer

Je valide le kawa.

Pour la peine je m'en fait un aussi.  :)

MrSlave · Answer

Euh .... Polux ?

Est ce que je peux te poser une petite question ? ^^

C'est pour mon projet en vb, mais ma question est plutôt du genre algo, pas vb.

Polux31 · Answer

ben voui, pose ta question ... on est là pour ça quand même ...

;o)

MrSlave · Answer

Alors je vais éssayer d'être clair.

Je ne sais pas si tu te rappelle de mon projet, mais en fait je dois réaliser une base de temps pour différentes actions (appelés standards.)
Ces standards sont décomposés en séquences (sous-actions).
Le problème c'est que les séquences peuvent elles même être des standards (donc décomposés en séquences).

Ca va je suis clair ? ^^
Au final je dois calculer un temps pour le standard.
Si aucune des séquences n'est un standard, le calcul n'est pas dur, mais sinon, je dois utiliser la récursivité et ça se complique vite.

En gros je pensais faire quelque chose comme ça :
1/ Récupération du dernier Id inséré (pour savoir quel standard doit on calculer)
2/ Récupération de toutes les séquences.
3/ Vérification des séquence pour voir si certaines sont des standards. (j'ai inséré un champ qui me dira si une séquence est un standard ou pas)
4/ Si pas de standard, alors calcul du temps par quelques calculs simples. (ça c'est bon. ^^)
5/ Si il y a un standard, je dois récupérer les séquences et à nouveau tout recommencer. :P

Mon problème c'est que je ne vois pas trop comment je peux organiser ça.

Un petit exemple.

Imaginons un standard (std1) qui comporte des séquences.
std1 (seq1, seq2, seq3, seq4).
Mais la seq2 et la seq4 sont également des standards, donc elles ont également des sequences.
std1 (seq1, seq2, seq3, seq4)
seq2 = std2 (seq2.1, seq2.2, seq2.3, seq2.4)
seq4 = std4 (seq4.1, seq4.2, seq4.3, seq4.4)

Je vais donc calculer seq2 et seq4 facilement.
Pis après je calcule std1. Tout d'abord seq1 et seq3 et je rajoute seq2 et seq4.

Ps : En fait, je ne suis pas sûr que ça soit si dur que ça.
Ca fait beaucoup de bien de tout reprendre de haut.  xD

Polux31 · Answer

Oui apparemment c'est bien une fonction récursive qu'il faut faire. Mais tu peux très bien faire appel à une fonction en utilisant un booléan.

En gros et rapidement.

Pour le 1 et 2, ça ne doit pas te poser de problème, tu sais faire.
Pour le 3, il faut faire appel à une fonction qui vérifie
Si la séquence Std1(seq1) est un standard. 
    Si le retour est oui, 
    alors je récupère les séquences seq1
       et je vérifie que STDseq1(seq1.1) est un standard,
         si oui, je recommence avec STDseq1.1(seq1.1.1) ... etc.
         si non, je recommance avec STDseq1.1(seq1.1.2) ... etc.
   si non,
      je vérifie si Std2(seq1) est un standart ...
etc ...

Pas sûr, mais je commencerai comme ça. Ecrire tes conditions ligne par ligne (pas en code, en bon français ou pseudo code) et ensuite fait ta fonction de recherche, également en pseudo code.

;o)

PS: Tu as des nouvelles de Rikki ? l'ai pas beaucoup vu depuis que tu es parti en vacances :-S

MrSlave · Answer

Je vais essayer.  :)

Ps : Rikk est en vacances. Et comme elle ne vient pas ici quand elle est chez elle, on est pas près de la revoir.
M'enfin je lui parle de temps en temps quand même. (c'est pratique msn  ^^)

Polux31 · Answer

ok, passe lui le bonjour à l'occaz

;o)

MrSlave · Answer

Pas de problèmes.

Je viens de me rendre compte que je me suis planté sur mes temps, je dois donc revoir un max de truc. 
Mais ça simplifie grandement mon calcul de temps final.

En gros, je pensais que tu inscrivait le nom de tes séquences et que tu entrais tous les temps à la fin. C'était un gros bordel pour le calcul final. Mais en fait, à chaque séquence tu dois calculer un temps.
Donc mon projet va être plus lourd (ouverture d'une nouvelle fenêtre à chaque insertion de séquence ...).

Mais pour le calcul final je vais juste avoir à faire :
fonction calcul_temps
récupérer Id
récupérer séquences
vrai = lirepremier
If vrai = true
appel fonction calcul(vrai)
else "ça marche pas :P"
Et puis :
fonction calcul(vrai as boolean)
While vrai = true
if is_standard = 0
tmpséquence = calcul_temps_séquence
tmps = tmps + tmpséquence
vrai = liresuivant
if vrai = false then
end sub
else appel calcul(vrai)
end if
else
récup séquence
vrai = lirepremier
If vrai = true
appel calcul(vrai)
else "ça marche toujours pas"
endif
endif
wend

Je ne sais pas si c'est très clair, mais je pense que ça peut marcher. (ce n'est qu'un petit algo, hein ! J'ai encore des modifs à faire)

Polux31 · Answer

fonction calcul(vrai as boolean)
Pourquoi envoyer vrai à la fonction calcul ?  cha me chiffonne cha mouai !!!

MrSlave · Answer

Oupsss. J'ai écris quelques lignes sur une feuille, mais ça je l'ai écris de tête.
C'est vrai que ça ne sert à rien. ^^

Je peux par exemple définir vrai à true au début pour qu'il entre dans le while.
De toute façon, lorsque le vrai me sert pour un if, je lui dit directement ce qu'il doit faire.

'tain, je suis claqué. Heureusement que je fini dans 20 min.  :P

Polux31 · Answer

lol ... pas assez fort le kawa c't'aprm

;o)

MrSlave · Answer

Je n'en avais même pas pris, c'est peut être pour ça.  ^^

Bon je ne vais pas tarder à y aller moi. 

Bonne soirée, pis travailles pas trop.  ;)

Polux31 · Answer

merci, bonne soirée aussi

;o)

MrSlave · Answer

Salut Polux, la forme ?

C'est kewl les retours de vacances. 
J'étais largué avant de partir, pis en fait mon projet est de plus en plus simple.

En fait pour le calcul du temps, ça n'est pas du tout ce que je pensais hier.
En fait chaque standard a un temps. Donc si une séquence est un standard, alors il suffit d'ajouter son temps au premier standard.  

Mon boss était pas là hier. Aujourd'hui il arrive, prend 5min pour me réexpliquer et c'est reparti.

Vé me prendre un kawa et je serais d'attaque.  \o/

Polux31 · Answer

Salut,

Ava bien merci ... 

Ton projet te semblait compliqué avant les vacances parce que tu avais la tête dans le guidon comme on dit. Il faut prendre parfois du recul pour y voir plus clair ensuite.

Vais aussi me mettre un kawa au fond du gosier.

;o)

MrSlave · Answer

Salut Polux.

J'ai de nouveau une question.  :P

Quand tu charges ton datagrid, tu utilise une requete "select champ1, champ2 from table".
Mais est ce qu'il serait possible de ne faire apparaître que le champ1 par exemple ?

Parce que j'aurais un champ qui sera une clé étrangère en gros. Il pointera sur l'id d'une autre table. 
Je n'ai pas envie de l'afficher, mais je veux pouvoir l'insérer à chaque fois que j'entrerais un nouvel enregistrement dans ma table.

Polux31 · Answer

Oui tu peux. C'est le résultat de la requête que tu affiches, donc si tu fais "Select champ1 form table" tu n'auras que le champ1.

;o)

Polux31 · Answer

Ah ça je ne sais pas .... je ne sais pas si on peut faire : datagrid1.col(1).visible = false ... par exemple.

Polux31 · Answer

Que mon truc n'existe pas, ça m'étonne pas .. mdrrr j'ai mis ça de tête sans vérifier ... j'avais 1 chance sur un gros paquet d'être à coté de la plaque ... ^^

Plus étrange que Me.DataGrid1.Columns(1).Visible = False ne fonctionne pas. Je ne peux pas le vérifier là ... dsl. Il faut peut être une condition. As-tu regardé dans l'aide en ligne (F1) ?

;o)

Polux31 · Answer

regarde sur vbfrance dans les exemples et astuces proposés.

;o)

MrSlave · Answer

Dernière journée avant le we. \o/
Le Mans ce soir et Paris demain.

Salut Polux. Comment vas tu ? (je ne demande pas de nouvelles des autres parce que de toute façon il n'y a plus que nous 2 sur ce topic ^^)

Je me posais une petite question. (Encore ... :P )

A quel moment est créé l'enregistrement lorsqu'on fait :
Form3.adoData3.Recordset.AddNew
    Form3.adoData3.Recordset![valeur] = Trim(Me.txtval.Text)
    Form3.adoData3.Recordset![ja] = Trim(Me.txtJa.Text)
Parce que j'ai mis ça dans un sub. J'ai également un appel à une fonction qui récupère le dernier id entré et va l'insérer dans le dernier enregistrement d'une autre table. (celui que j'ai créé juste au dessus).

Mais ça ne fonctionne pas.  :S
Alors je me suis dit que peut être l'enregistrement n'était pas créé directement.

Polux31 · Answer

Bonjour,

Effectivement, on doit seul sur ce topic :D

En principe l'enregistrement se fait avec le AddNew ... quand tu appelles la procèdure qui contient ce code. Je vais peut être dire une connerie (à cette heure, c'est fort probable) ... ne faut-il pas terminer par un Update ?

;o)

Polux31 · Answer

Je comprends pas tout là. Dsl, mais j'ai le neurone pas encore réveillé.

Ici : Form3.adoData3.Recordset.AddNew
    Form3.adoData3.Recordset![valeur] = Trim(Me.txtval.Text)
    Form3.adoData3.Recordset![ja] = Trim(Me.txtJa.Text)
Tu fais un addnew à travers un objet adodc qui a un lien direct avec une table de la base ?

Et dans le post 558 (eh oui déjà ...lol) tu fais un Update avec un recordset via ADODB.

A quel niveau l'enregistrement ne se fait pas ?

MrSlave · Answer

Bon je vais reprendre :
Private Sub btAjout_Click()
    
    Form3.adoData3.Recordset.AddNew
    Form3.adoData3.Recordset![valeur] = Trim(Me.txtval.Text)
    Form3.adoData3.Recordset![ja] = Trim(Me.txtJa.Text)
       
    ModfrmForm3.AjId
    
End Sub
Public Sub AjId()
Dim Vrai As Boolean
Dim ValueId, ValueNum As Long

    ModESEnt_STD.initTableEnt_STD
    query = "SELECT max(id_std) from ent_std"
    Set rs = New ADODB.Recordset
    Vrai = ModuleBdD.OpenRecordset(query, rs)
    ValueId = rs.Fields(0)
    Set rs = Nothing
    
    ModESCal.initTableCal
    query = "SELECT max(num_ligne) from calcul_ligne"
    Set rs = New ADODB.Recordset
    Vrai = ModuleBdD.OpenRecordset(query, rs)
    ValueNum = rs.Fields(0)
    Set rs = Nothing
    
    Set rs = New ADODB.Recordset
    If Vrai = True Then
        rs.Open "Update calcul_ligne Set id_std = " & ValueId & " Where num_ligne= " & ValueNum, ModuleBdD.cnx
    Else
        MsgBox "Un problème est survenu durant le calcul du temps"
    End If

End Sub
C'est plus clair ? ^^

En fait quant j'ajoute un nouvel enregistrement, il ne le prend pas en compte pour l'ajout de l'id avec l'update. Parce qu'il me met l'id sur l'enregistrement précédent.
Ca donne :
Num - Id - Ja - Valeur
42 - 12 - 32 - 54
43 - 0 - 56 - 89

Au lieu de m'ajouter l'id (par exemple 12) au dernier enregistrement, il me l'ajoute à la ligne précédente.
C'est pour ça que j'ai l'impression qu'il y a un décalage avec le AddNew.

Polux31 · Answer

As-tu passé le code pas à pas pour voir ce que récupère les 2 requêtes ? le problème vient peut être de la.

Arrêt le code aussi avant le ModfrmForm3.AjId et regarde dans la base si l'addnew a bien fonctionné.

MrSlave · Answer

Le nouvel enregistrement n'est pas créé avec le AddNew.

Donc la valeur récupérée par "SELECT max(num_ligne) from calcul_ligne" est celle du dernier enregistrement, mais pas celui que je veux. Mon sub ajout fonctionne bien, mais comme l'enregistrement n'est pas créé, l'id est ajouté à la mauvaise ligne. 

En fait, c'est bizarre parce que je ne peux voir le dernier enregistrement que lorsque je ferme ma fenêtre.

Polux31 · Answer

as tu essayé de faire:
Form3.adoData3.Recordset.AddNew
    Form3.adoData3.Recordset![valeur] = Trim(Me.txtval.Text)
    Form3.adoData3.Recordset![ja] = Trim(Me.txtJa.Text)
    Form3.adoData3.Recordset.UpDate

MrSlave · Answer

Tu es un génie.  :)

Merci encore une fois de ton aide.

Polux31 · Answer

Eh oui ... dommage que tu sois le seul à le reconnaitre ... mdrrrrrrrr

C'est toujours avec plaisir ...

;o)

MrSlave · Answer

Hu ? Oô

Je ne voudrais pas remettre en cause ta suprême intelligence, mais en fait ça ne marche pas.

J'ai pas tout compris là.
Ca a marché un coup et ça ne marche plus. S'quoi cette merde ? oô

Polux31 · Answer

Arrfff c'était trop beau .... m'enfin j'aurai rêvé 2 à 3 minutes ... ^^

refait la boucle pas à pas pour bien voir ce qui se passe et vérifie en base que tout se passe bien ..

MrSlave · Answer

Je comprend de moins en moins.

Lorsque j'ai les points d'arrêt, pas de problème ça marche niquel. Mais dès que je les enlève, l'enregistrement est ajouté mais pas l'id.

Bizarre, vous avez dit bizarre ....  Oô

EDIT : j'ai l'impression qu'il attend quelque chose.
Lorsque j'ajoute un nouvel enregistrement, l'id est ajouté.

Polux31 · Answer

oula ... tout se passe bien quand tu le fais pas à pas ??? et ça se passe mal en mode normal ?

Polux31 · Answer

Mais quand tu fais pas à pas, ça marche bien ?

Polux31 · Answer

c'est que le système va plus vite que la base. Mets un sleep 2000 apreès Form3.adoData3.Recordset.UpDate.

et test

;o)

Polux31 · Answer

ben voui .... sleep permet de faire une pause en principe ... hummm je vais fouiller sur le net.

je re

;o)

Polux31 · Answer

pfffff, il faut déclaré l'api ... j'chu nul aussi des fois

Declare Sub Sleep Lib "kernel32" ( _
                 ByVal dwMilliseconds As Long)

Polux31 · Answer

en fait, le code VB s'exécute plus vite que la mise à jour de la base. Il faut savoir qu'une liaison ADODB est plus rapide qu'une liaison faite avec un objet.

;o)

MrSlave · Answer

Salut Polux, comment vas tu ?

Il me semble que tu m'as déjà donné cette réponse mais je n'arrive pas à la retrouver.

J'ai une erreur : "Cette opération n'est pas autorisée si l'objet est ouvert" dans (sur le 1er update) :
Public Function InsertionTop(ByVal topDeb As String, ByVal topFin As String) As Boolean
Dim Vrai As Boolean
Dim query As String
Dim ValueId As Long
    
    ModESEnt_STD.initTableEnt_STD
    query = "SELECT max(id_std) from ent_std"
    Set rs = New ADODB.Recordset
    Vrai = ModuleBdD.OpenRecordset(query, rs)
    ValueId = rs.Fields(0)
    'Set rs = Nothing
    
    'Set rs = New ADODB.Recordset
    If Vrai = True Then
        rs.Open "Update ent_std Set top_debut = '" & topDeb & "' Where id_std= " & ValueId, ModuleBdD.cnx
    Else
        MsgBox "Un problème est survenu durant l'insertion du top début"
    End If
        
    If Vrai = True Then
        rs.Open "Update ent_std Set top_fin = '" & topFin & "' Where id_std= " & ValueId, ModuleBdD.cnx
    Else
        MsgBox "Un problème est survenu durant l'insertion du top fin"
    End If
    
End Function

Est ce que tu as une idée d'où peut provenir l'erreur ?

Merci

Polux31 · Answer

Salut, ça va merci et toi ?

Il faut peut être fermer le recordset et en ouvrir un autre à chaque opération. Attention, "Set rs = Nothing" ne ferme pas le recordset. Il libère l'objet rs, c'est comme un destructeur en POO ou java. Le "Set rs = new ADODB.Recordset" étant l'instanciation du constructeur de la classe ADODB.
Il faut faire, je pense:
Set rs = new ADODB.Recordset
rs.open ...
...
rs.Close
Set rs = Nothing

pour chaque commande sql.

;o)

Polux31 · Answer

Bah t'inkiète ... la semaine est faite pour qu'on se repose du week end, sinon à quoi elle servirait ? hein ? 

;o)

MrSlave · Answer

Ouaip, j'suis bien d'accord.  :)

Euh ... j'ai encore un petit problème.  :P
Je récupère certaines info dans ma table avec un recordset et j'aimerais pouvoir les traiter dans l'ordre, d'abord le premier ...
J'ai vu qu'il existait des méthodes pour ça (MoveFirst, MoveNext ...) mais j'ai une erreur sur le premier MoveFirst du type : "Erreur de compilation : méthode ou variable attendue." 

Public Sub stand(ByVal valueId As Long)
Dim query, id_seq As String
Dim Vrai As Boolean
Dim tmps, tmpstot As Long
Dim is_std As Long
Dim idseq As Long
    
    ModESSeq_std.initTableSeq_STD
    query = "SELECT * from seq_std where id_std = " & valueId
    Set rs = New ADODB.Recordset
    Vrai = ModuleBdD.OpenRecordset(query, rs)
   
    Vrai = rs.MoveFirst
    While Vrai = True
        is_std = ModESSeq_std.getis_std
        If is_std = 0 Then
            Vrai = rs.MoveNext
            If Vrai = False Then
                tmps = ModESCal.calcM1
                tmpstot = tmpstot + tmps
            End If
        Else
            idseq = ModESSeq_std.getIdSeq
            valueId = ModESSeq_std.searchIdByItem(id_seq, idseq)
            stand (valueId)
        End If
        Vrai = rs.MoveNext
        If Vrai = False Then
            tmps = ModESCal.calcM1
            tmpstot = tmpstot + tmps
        End If
    Wend

    MsgBox "tmpstot : " & tmpstot

End Sub

Est ce que tu aurais une idée de la provenance de cette erreur ?

Merci

Polux31 · Answer

Si tu as gardé les méthodes de lecture (LirePremier, LireSuivant etc ...) dans le moduleBdd, elles sont faites pour ça.
Il suffit de leur passer le recordset en paramètre. Dans le module de données ModESSeq_std, tu dois également avoir les méthodes LirePremier LireSuivant etc ... qui ensuite passent par le moduleBdd.
Il faut faire :
vrai = ModESSeq_std.LirePremier(rs)
While vrai = True
   is_std = ModESSeq_std.getis_std
   If is_std = 0 Then
      vrai = ModESSeq_std.LireSuivant(rs)
.... etc
vrai = ModESSeq_std.LireSuivant(rs)
wend

;o)

Polux31 · Answer

Merci ...  ôO

MrSlave · Answer

Mmmm.

Je suis à la recherche de listes.
J'ai trouvé ça pour les listes liées : http://faq.vb.free.fr/index.php?question=160

Mais n'y aurait-il pas des listes prédéfinies ?
Je veux juste ajouter quelques valeurs dans une liste puis les réutiliser après.

Donc, si j'avais juste à faire, list.add, ça serait pas mal. ^^

Polux31 · Answer

Listes prédéfinies ??? je ne comprends pas ....

Polux31 · Answer

lol merci mais j'ai rien fait là ........ je plane un peu aujourd'hui ^^

Claire · Answer

Salut,

Voici les cours et tutoriels gratuit en Français pour Visual Basic

Polux31 · Answer

sympa Claire :oP ...

Même pas proposé le kawa :-S

;o)

MrSlave · Answer

J'y crois pas, j'ai des erreurs sur des choses qui fonctionnaient très bien avant.  Oô

Je ne sais pas pourquoi, mais je ne n'arrive pas à ajouter plusieurs lignes dans mon Datagrid, dès que j'en rajoute une elle efface la précédente.
Vu que j'ai déjà fait l'erreur, je me dis "couillon, t'as oublié le Form.adoData.recordset.addNew", mais en fait non, il était bien présent.
Alors j'ai essayé de faire quelques modifs mais maintenant j'ai une erreur "Indice en dehors de la plage" sur une fonction que je n'ai pas touchée. (à la ligne if Myliste ...)
Private Function verifliste(valeur As String) As Boolean
Dim i As Integer

    For i = 1 To nb
        If myListe(i) = valeur Then
          verifliste = True
          Exit Function
        End If
    Next i
        
    verifliste = False

End Function
Cette fonction étant appelée par le remplissage d'une combobox.

Mais là je capte pas. :S
Comment ça l'indice est en dehors de la plage ?  Oô

Polux31 · Answer

As-tu vérifié que myListe se remplit bien ?
Vérifie que nb contient bien le nombre de données de ta liste ... parfois on incrémente nb d'une valeur supplémentaire dans la boucle, il faut donc faire nb - 1 !!!

;o)

Polux31 · Answer

oui ça veut dire que l'indice de i n'est pas dans myListe ... si myListe contient qu'un seul élément, il ne peut pas lire le 2ème puisque qu'il n'existe pas

Polux31 · Answer

Oulala, tu fait bien un addnew avant et un update après ? et dans ta base, la ligne aussi est effacée ?

Polux31 · Answer

Salut,

Je crois je sers plus à grand chose ... tu trouves les soluces tout seul, c'est super :DD

Bonne journée

;o)

Polux31 · Answer

'tin, manquerait plus que tu regresses ... ôO

;o)

MrSlave · Answer

Ca pourrait arriver.  :P

Tiens, une question me vient à l'esprit. ^^
Comment est ce que je peux faire pour modifier une variable qui soit commune à une fonction récursive. (je sais c'est pas compréhensible, je vais faire un exemple)

Imaginons la fonction test dans laquelle je calcule une valeur val.
Cette fonction test se rappelle elle-même et va calculer une valeur val2 qu'elle va ajouter à la valeur val.
Cette fonction test se rappelle elle-même et va calculer une valeur val3 qu'elle va ajouter à la valeur val2.
Cette fonction test se rappelle elle-même et va calculer une valeur val4 qu'elle va ajouter à la valeur val.

(vive le copier-coller).

Je suis un peu perdu. Parce qu'en rappelant test, je vais initialiser val.   :S

Aurais-tu une petite idée ?


Merci

Polux31 · Answer

voui .... j'ai une petite idée ...

Et si tu mets une variable globale en haut dans le module ??? ça le ferai pas ?

;o)

Polux31 · Answer

^^

MrSlave · Answer

J'espère que c'est pas encore une question alakon mais ...

Est ce qu'il est possible de comparer une valeur à toutes celles qui sont dans une combobox ?

:)

Polux31 · Answer

Là je sais pas, faut que je regarde de plus près ...

oups !!! pas vu l'heure. Tu liras ça demain.

;o)

MrSlave · Answer

Voui, je lis ça aujourd'hui ^^

Mais je suis bête parce que tu avais déjà fait une fonction pour.  :P
Je l'avais pô vu.

Néanmoins je ne comprend pas pourquoi j'ai des valeurs en doubles. Je n'y ai pas touché à ce que tu avais fait.
Au début ça fonctionnait, après non.

Polux31 · Answer

Salut ... me souviens plus bien de tout :-Z ... mais si ça fonctionner avant, pas de raison que ça marche plus ... regarde si il y a bien un Combo1.Clear avant la mise à jour de la combo. Il faut que tu fasses du pas à pas pour bien voir si tout se passe bien ... c'est pas toujours cool de repasser le process ligne par ligne mais ça permet de bien ce qui se passe ...

Je file au kawa ...

@+

MrSlave · Answer

J'ai peut être trouvé le problème ....
Private Function verifliste(valeur As String) As Boolean
Dim i As Integer

    For i = 1 To nb
        If myListe(i) = valeur Then
          verifliste = True
          Exit Function
        End If
    Next i
        
    verifliste = False

End Function
Voilà ta fonction verifliste.
Tu as remplie la liste en ajoutant des verbes au début, donc là pas de problèmes, je n'ai pas de doublons.
Mais dans la 2eme fonction (qui va ajouter des sujets dans la 2eme combo), quand elle fait appel à verifliste, la première liste n'a pas été vidée. 
Donc on va comparer les sujets à ce que contient la liste, c'est à dire les verbes.

Je vais faire quelques tests pour voir ce que ça donne.

MrSlave · Answer

Je viens de trouver l'erreur.  

Encore un problème d'initialisation.
If verifliste(ModESEnt_STD.getLib_Complement) = False Then
                j = j + 1
                If j > nb2 Then
                    nb2 = nb2 + 1
                    ReDim Preserve myListe(nb2)
                    myListe(j) = ModESEnt_STD.getLib_Complement
                End If
J'avais ça.
Mais nb2 était initialisé à 1 et j à 0 par défaut (vu que je ne l'avais pas initialisé).
Je n'ai plus de doublons, je suis heureux.  :)

Polux31 · Answer

lol ... tu vois, tu as presque plus besoin de moi :DD

;o)

MrSlave · Answer

Salut Polux. :)

(plus de 615 posts quand même).

Comment ça va bien ?
Prêt pour un we de 3 jours ?

Dis, est ce que tu t'es déjà servi d'ArrayList ?

J'ai éssayé de faire comme indiqué ici : https://plasserre.developpez.com/cours/vb-net/
J'ai donc mis : Imports System.Collections en haut de mon module et Dim L As New ArrayList() en tant que variable globale.

Mais je ne peux pas m'en servir.  :S

La définition de la variable ne passe pas.

P'tet une petite idée ?  :)

Polux31 · Answer

Salut,

je va bien merci ... et non pas un week de 3 jours mais de 3 semaines ....... YESSSSSSSSSSSSSS, j'ai réussi à poser des congés ... elle est pas belle la vie ??

Non je n'ai jamais utiliser d'ArrayList mais à première vue, c'est pour du VB.NET et non du VB6 ... z'ont raté ton kawa ce matin ??? pas assez fort ??? trop de lait ??? mdrrr

;o)

Polux31 · Answer

Ah bah si, ça existe ... si tu te le programmes ... :DDD

Tu peux très bien te faire un module classe en vb pour faire ça.

je vais prendre mon first kawa là ...

;o)

MrSlave · Answer

Mwai bah on verra plus tard, je vais me débrouiller comme ça pour le moment. ^^

Il y a quand même un truc que je ne capte pas.
J'ai ça :
Private Function verifliste(valeur As String) As Boolean
Dim i As Integer

    For i = 1 To nb
        If myListe(i) = valeur Then
          verifliste = True
          Exit Function
        End If
    Next i
        
    verifliste = False

End Function
Avec i = 2 (2eme passage  :P), nb = 6, valeur = "sac", mais j'ai une erreur indice en dehors de la plage sur la ligne If myliste ....
Je comprend pas comment je peux être en dehors de la plage.  Oô

Polux31 · Answer

vérifie que la valeur de myListe(2) ne soit pas nulle ...

;o)

MrSlave · Answer

C'est bon, j'ai réglé ce problème en passant le nombre d'enregistrement en paramètre de la fonction.  ;)

Bon je retourne une nouvelle fois sur le calcul du temps.
J'aime pas la récursivité. ^^

Polux31 · Answer

Bon voilà, plus qu'1/2 heure et hop en congés ......

Je passerai encore sur le forum jusqu'à mercredi et après je ferme l'informatique jusqu'à début août.

N'hésites pas à poster, si tu as un blème, je ferai de mon mieux pour t'aider, koike tu te débrouilles très bien maintenant :DDD

Bon courage et bonne continuation.

;o)

Polux

Polux31 · Answer

myList est dans un module indépendant d'une form ? parce que sinon, à chaque fois que tu unload la form, tu perds les données ... il faut aussi que myList soit déclaré comme variable globale du module ...

Si tu peux, refais moi passer ton outil mardi matin sur le forum. Je regarderai ça à tête reposé à mon chez moi :O))

bon week end

;o)

PS: Un p'tit bisou à Rikki de ma part si tu la croises sur msn ;o)

MrSlave · Answer

Je t'ai envoyé tout ça.

Merci.  :)

Bon we et bon début de vacances.

Polux31 · Answer

Bonjour,

Alors passé un bon week ?

J'ai pu charger ton appli :D

Peux tu me dire à quel niveau tu as un blème stp ?

;o)

MrSlave · Answer

Saluuuuuut.  :)

Bah le we était assez tranquille.
J'ai passé 3 jours à monter un garage (en bois) avec mon père et un cousin.
J'ai pris mes premiers coups de soleil de l'année.  :D

Et toi, ton début de vacances ?

Euh ... pour l'appli, c'est au niveau du calcul de temps.
Dans ModESSEq_sts il y a les fonctions à la fin.
J'ai une erreur au niveau de myListe(z) = id dans verifstd.

Bon, vé me prendre mon 1er kawa parce que j'ai un peu de mal à m'y mettre ce matin.  :)

Polux31 · Answer

heuuu, j'ai pitete sauté une étape mais je n'ai pas trouvé la fonction qui remplit le tableau myListe ??? 
Tu la remplis ou myListe ???

;o)

Polux31 · Answer

lol .... là peut pas te dire, c'est toi l'homme métier :D

mais quand fais-tu l'insertion dans myListe ? j'ai rien vu ... et j'en suis au 3ème kawa ... 

;o)

MrSlave · Answer

^^

Je le fais dans verifstd qui est appellée par appelcalc elle même appellée par ModfrmForm3.valider.
C'est mieux là ?
:D

Polux31 · Answer

Ah ok, ben ça peut pas marcher :DDDDDDDD

Je regarde mieux et je te dis quoi ...

:o)

Polux31 · Answer

bon je viens faire le processus pas à pas ... dans verifstd lorsque l'on fait vrai = ModESSeq_std.LirePremier(rs), le retour est faux, donc on ne passe pas dans le reste du code, myliste() n'est pas implémentée et la verifstd renvoie toujours True !!!

;o)

Polux31 · Answer

heuuu oui sans doute :DDDD 

Eh hop un 3ème kawa ...

;o)

MrSlave · Answer

Bon je vais aller manger moi.

Bon app'.  :)

MrSlave · Answer

Euh .... Polux ?  :)

Apparement j'ai une erreur de syntaxe sur la requete suivante :
rs.Open "Update calculs Set Mx-coef_dp = " & dp & " where id_calc = " & id, ModuleBdD.cnx

Sachant que la table calculs existe, que le champ Mx-coef_dp existe, que dp et id ne sont pas null et que ModuleBdD.cnx existe, aurais-tu une idée de la provenance de mon erreur ?  :)

Merci.

MrSlave · Answer

Pour le calcul du temps, ça ne serait pas mieux ça ?
Public Function essai(ByVal ValueId As Long) As Double
Dim query As String
Dim vrai As Boolean
Dim isstd, valid, vallid As Long
Dim val, res, valtot As Double

    ModESSeq_std.initTableSeq_STD
    query = "select * from seq_std where ref_std = " & ValueId
    Set rs = New ADODB.Recordset
    vrai = ModuleBdD.OpenRecordset(query, rs)
    
    If vrai = True Then
        vrai = ModESSeq_std.LirePremier(rs)
        While vrai = True
            isstd = ModESSeq_std.getis_std
            If isstd = 1 Then
                valid = ModESSeq_std.getIdStd
                res = essai(valid)
                restot = restot + res
            End If
            vrai = ModESSeq_std.LireSuivant(rs)
            If vrai = False Then
                vallid = ModESSeq_std.getref_std
                val = ModESCal.calcM1(vallid)
            End If
        Wend
        valtot = valtot + vallid + restot
    End If
    essai = valtot
End Function
Quand on insère un standard dans une table, on récupère son id et on peut appeller la fonction.
Tout d'abord on récupère les séquences.
On lit la première. Si la première est aussi un standard (isstd) alors on rappelle la même fonction grâce à l'id du standard auquel correspond la séquence (Idstd).
Ensuite on va lire le suivant.
Si pas de suivant, ça veut dire qu'on est rendu à la fin. On récupère donc l'id du standard sur lequel on travaillait et on appelle la méthode permettant le calcul.
Pis on ajoute tout à la fin.

J'espère que c'est assez clair.  :S

Ps : Et sinon comment ça va bien ?
Toujours en forme ?
Pas de grasse mat' ? ^^

Ps : j'ai souhaité le bonjour à Rikk de ta part hier.  :)

Polux31 · Answer

Bonjour,

L'algo à l'air correct ... je suppose que tu l'as testée ? 

Ici : val = ModESCal.calcM1(vallid), la fonction te renvoie un long mais je ne vois pas à koi ça sert ?

Merci pour Rikki

;o)

Polux31 · Answer

Oui ça d'accord mais val n'est pas utilisé :-/

Polux31 · Answer

oO .... ben j'ai rien dit moi :DDDDDDDD

MrSlave · Answer

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

Polux31 · Answer

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 ?

MrSlave · Answer

'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.

Polux31 · Answer

o0 ......

ben c'est magiciel alors ... lol

;o)

Florence · Answer

Salut,

-> Tutoriels Visual Basic 6
-> Tutoriels Access

Polux31 · Answer

Hello,

Toujours en bataille avec VB et Access ?

Tiens un kawa.

;o)

Polux31 · Answer

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)

Polux31 · Answer

J'ai été dans les Alpes de Haute Provence (Sisteron)... Que du bonheur ...

Que 17 formulaires et 17 modules ... ^^

;o)

MrSlave · Answer

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.

Polux31 · Answer

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 ?

Polux31 · Answer

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)

Rikkunter · Answer

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*

Polux31 · Answer

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)

Polux31 · Answer

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)

Polux31 · Answer

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)

MrSlave · Answer

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/

MrSlave · Answer

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 ?  :)

Polux31 · Answer

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)

Polux31 · Answer

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 ...

Rikkunter · Answer

Ouais c'est énorme, surtout pour une raclure comme Slave :DD...

MrSlave · Answer

Bon, moi je ne vais pas tarder à partir en we. Dans 5/10 min environ.
La semaine prochaine sera la dernière que je passerais à travailler ici.
Une petite semaine de vacances et la reprise des cours tant attendue.  :)

Enfin ce sont surtout les soirées qui sont attendues.  :D

Bon we à tous ceux qui passeront par là et à lundi.

Rikkunter · Answer

Bon vikende Slave.

o/

Polux31 · Answer

Merci, bon week à toi aussi ...

Bon week end Rikki ;o)

Tuto VB/Access

284 réponses

Discussions similaires