Discussion :

[Danny001]

Bonjour

Je m'arrache les cheveux depuis des mois faute de connaissance et non faute de recherche. J'ai achete la brique sur Vb6, le sql et sur access et pourtant dans les codes sources que je croise, il y a ce que je presume etre des commandes qui ne sont expliquees nulle part ( Styles Node, Me. ...). Avec un peu d'aide on est parvenu a 1 resultat de recherche dans le premier formulaire ; mais il ne donne que le premier resultat. Ce à quoi je voudrais parvenir c'est que la recherche soit renvoyée soit sur une grille ou un datalist et que la recherche puisse se faire sur n'importe critere et renvoyer tous les resultats possible.
Si quelqu'un voulait bien prendre le temps de m'aider meme au prix de charcuter tout ce qui a deja ete fait pour faire juste ce maudit formulaire de recherche. Je lui en serais tres reconnaissant. J'ai 47 ans, je travaile a temps plein et je me vois mal retourner a l'ecole...
Je suis convaincu que cela peut se faire simplement et que la solution est probablement deja dans le code ecrit. MAis je n'arrive vraiment pas a trouver..

Merci de m'aider

Danny

[Delbeke]

Désolé,
Il manque un fichier dans le zip : Gestiondivx.frm. Comme c'est le form principal, ca va être dur de t'aider.

[Danny001]

J'ai reouvert mon zip et le formulaire est bien present. Dans l'explorateur de projet, il s'appele frm.Gestion(gestiondivx.frm). MAis si vraiment il n'apparait pas je peux reenvoyer un nouveau zip.
Merci d'avance..
Danny

[Delbeke]

Autant pour moi, je devais être encore dans le cake.

Tout d'abord, il serait plus judicieux, de ne pas mettre de connectionstring ni de recordsource directement dans les propriétés des contrôles ADO. Il est bien plus perninent de les remplir par le code.
J'ai eu des difficultés parceque tes controles avait un chemin vers un disque D: que je n'ai pas dans ma machine.

Ensuite, il vaut mieux remplir la connection string avant le load de la form. L'accès à un élément d'une feuille entraine forcèment son load, donc plus besoin de le préciser. Ce qui donne dans ta sub Main

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Main()
  MaChaineDeConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cinema1.mdb;Persist Security Info=False"
  frmGestion.AdoGestion.ConnectionString = MaChaineDeConnection
  frmGestion.AdoGestion.RecordSource = "Select * from DivX"
  frmGestion.AdoGestion.Refresh
  frmGestion.Show
End Sub

Au passage, sauf quand le path courant est la racine, le app.path ne se termine pas par un \ Regarde bien la chaine de connection que j'ai corrigé.

Ensuite, pour ta feuille de recherche, on va utiliser un frmRecheche.Show VbModal, ce qui donne comme résultat quelque chose comme un msgbox : L'appelant est verouillé tant que l'appellé est ouvert, ce qui t'evite de gérer le masquage de la feuille appelante.

Ensuite on va utiliser une astuce pour que l'objet ado de la feuille de recherche soit un clone de la feuille principale.

Tout d'abord, dans la feuille pincipale, efface les propriétés connection string et recordsource du composant AdoRecherche. Met egalement sa propriété commandtype à 1 (comme déjà fait pour le AdoGestion)

Ton bouton recherche de ta feille principale devient donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CmdRecherche_Click()
    Set frmRecherche.AdoRecherche.Recordset = AdoGestion.Recordset 'clonage du recordset
    frmRecherche.Show vbModal
End Sub

Dernier truc. Pour que le datagrid affiche quelque chose, il faut modifier sa propriété datasource en AdoRecherche

Vouilou, tu n'étais pas trés loin de la solution.

[Danny001]

J'ai effectué les modifications comme il me semblait le plus logique mais peut etre que je ne les ai pas faites au bon endroit. Pour le demarrage, il y a un module.bas dans lequel j'initialise la chaine de connection. Mais peut etre doit il etre supprime et le code mis directement dans le controle Ado.
Pour ce qui est de la commande recherche j'ai mis les 2 lignes de code des le debut de la commande recherche car il y a tout le code qui gere la recherche en elle meme qui doit rester.

Tout cela me mene a un probleme de definition de Variable lors de la compilation et ne semble plus reconnaitre le controle adogestion.
Il y a surement des choses totalement evidentes a tes yeux que tu as omis de me dire dans ton precedent message

Pour info, je suis belge, 47 et vivais pres de Conde sur escaut mais maintenant je vis au Quebec a Trois Rivieres.Et un petit air de france me fait beaucoup de bien. Je vais continuer a essayer de trouver ce qui ne fonctionne pas, mais probablement que j'aurai encore besoin de vos services.

Merci encore

Danny

[Delbeke]

Bon, comme je suis bon prince, voici le source tel que je l'ai corrigé.
Tu verras que je n'y ai porté que les modification que j'ai énumérée dans mon précédent post !

[Danny001]

Ne t'inquietes pas, je sais tres bien que c'Est moi qui ai probablement modifié a un endroit ou il ne le fallait pas. Ton code aura de positif que si quelqu'un veut l'utiliser ou s'en inspirer, il pourra le faire car attache a ce forum.
Merci encore.

Danny

[Danny001]

J'ai teste le fichier et il ne plante plus. Mais je dois donner quelques eclaircissement. Pourqoui un data list et un datagrid : juste parce que je ne sais pas ce qui conviendrait le mieux et evidemment j'en supprimerai l'un ou l'autre ( pour ca aucun probleme) Mais le probeme vient ( je crois) de la comprehension de ce que je recherche. Ce que les list et grid me donnent: c'est juste l'ensemble des données de la base. Ce a quoi je veux arriver c'est a juste afficher le resultat des recherches suivant les criteres et pas un resultat comme sur le gestionfrm mais bien sur le datalist ou le datagrid. Par exemple, je voudrais afficher tous les titre dans lequel il y est ecrit "Lion" quelque part dans le titre ou alors Tous les films joué par un acteur comme tout les films de Fernandel ou alors tous les films de 1965.
J'arrive a cette recherche via le gestionfrm ; mais il ne me donne qu'un resultat et moi, je voudrais arriver a afficher tous les resultats en meme temps. Une fois que j'aurai compris le principe ca ira surement mieux ( du moins je l'espere ) meme si ca doit me prendre 10 ans, je finirai par y arriver ou alors par trouver cette ame princiere qui parviendra a me faire comprendre.

Il y a plein de soft sur internet qui font cela et mieux encore et il aura peut etre mieux valu que je m'oriente vers eux. Mais je tiens a arriver au bout...

Merci a celui ou celle qui prendra le temps de comprendre ce que je recherche et plus encore a celui ou celle qui m'apportera la solution.


Danny