BASE DE DONNÉES EN ADO POUR DÉBUTANT

Commentaire de PCPT le 20/03/2007 19:01:29 administrateur CS

salut,
pour le principe ("encore" une DB), aucun souci.
par contre çà va pas... si le but est de tourner cette source à la "tuto", faut au moins nommer tes contrôles, commenter abondamment, mettre un chemin relatif (base), option explicit, et pour faciliter le côté pratique : tout çà sous forme de classe.

et il manque pas mal de possibilités et de tests.
la base est-elle joignable? occupée? connectée? créer une base? une table? ajouter un champs? etc....

à toi de voir ^^
++

Commentaire de PCPT le 20/03/2007 23:02:04 administrateur CS

re,
sans aller jusqu'au tuto, au moins dire pourquoi choisir telle ou telle propriété (adLockPessimistic par exemple), c'est ces commentaires qui manquent.

>la base est-elle occupée?
*selon le mode d'ouverture, on peut interdire l'ouverture par plusieurs utilisateurs en simultané. pas besoin de réseau, 2 applis connectées à la même base à partir du même PC.

>la base est-elle joignable?
*local ok, mais si le fichier n'existe pas on ne la joindra jamais. et idem si justement on interdit la multi-connection simultanée

>est-on connecté à la base?
*comment savoir qu'il faut ou non ouvrir la base avant de tenter une modif d'enregistrement?... une fois ouverte, on doit (devrait) savoir à tout moment qu'elle n'est pas fermée donc accessible

bonne continuation ++

Commentaire de mehdi7604 le 21/03/2007 18:36:33

bonjour,
evite d'utiliser c:\......*.mdb"
et remplace la par app.path
ça ne te donnera pas d'erreursd si tu change de pc ...

Commentaire de mehdi7604 le 22/03/2007 13:19:37

ok bonne chance .

Commentaire de ld40 le 24/03/2007 16:03:09

ça part bien...
je ne note pas pour l'instant car j'ai trouvé un bug :)

lorsque tu supprimes le nieme enregistrement et que tu vides ainsi la base, ça plante.

voir la procedure: Mise_à_Jour_Listview1
ligne:  resultatADO.MoveFirst

Commentaire de Exploreur le 25/03/2007 11:11:51

Bonjour à tous,

PCPT >> Bouh..C'est pas simple!!lol...

LD40 >> J'ai bien regardé au niveau de la mise à jour de la listview, et justement j'ai mis une gestion d'erreur qui avertit(entre autre), que bof ou eof est rencontré, mais cela ne plante pas le prog...Je ne comprend pas..Par conte il y avait un bug dans l'affichage de la boite de dialogue dans cette function..

Mehdi7604 >> Effectivement
             If Listview1.Listitems.Count = 0 then
                MsgBox "Base de données vide"
             Else
             ' Ok pour affichage
             End if

Il y aura dans un temps qui m'est encore inconu, une mise à jour de cette petite source..Car aprés un retour d'aide d'une personne qui ma mit les points sur les "I", sur comment faire une optimisation de code, de procédure, de fonction...
J'ai avant de poster, savoir et comprendre ce déroulement, ce cheminement...Donc pour l'instant je suis calé sur le PC et j'essaye de comprendre et d'usée ma touche F1 !!


A+
Exploreur

Commentaire de Exploreur le 25/03/2007 18:51:12

Bonsoir à tous,

Ok Mehdi7604...

A+
Exploreur

Commentaire de PCPT le 28/03/2007 10:42:02 administrateur CS

salut Exploreur,
il y a une amélioration mais c'est toujours pas cà :(
inutiliable (pour un autre projet) dans l'état.
il faut absolument faire la distinction entre l'accès à une base (connection) et l'execution d'une requête (après la connection), ce qui n'est pas le cas ici.

tu as choisi ADO, c'est très bien. mais tu utilises DAO pour le compaquetage, il faut absolument t'en séparer.

prend ton temps, essaye de voir "comment coder" pour que ton module (ou ta classe ;)) n'ait pas besoin d'être retouchée pour être intégrée dans un autre projet

bon courage @+ ;)

Commentaire de Exploreur le 29/03/2007 09:57:50

Bonjour à tous,

Et voici encore une mise à jours !!! Cela avance doucement, mais sûrement !!!

A+
Exploreur

Commentaire de Exploreur le 04/04/2007 14:33:30

Salut Patou60110,

Merci pour le commentaire et la note que je dédie à PCPT, car c'est grâce à lui si j'ai pu mettre à jour le code de cette source et apprendre à coder clairement...

Mais il me reste encore du chemin à parcourir...

A+
Exploreur

Commentaire de Exploreur le 11/04/2007 11:14:18

Bonjour à tous,

Petite mise à jour (ajout de requêtes)

A+
Exploreur

Commentaire de Exploreur le 11/04/2007 20:14:59

Salut PCPT,

Bon, ben on va revoir les appelations...Sniff, pas encore le bon raisonnement...

Par contre je viens de tester un ajout, et pas de problème pour moi.
Je ne comprend pas pourquoi cela ne fonctionne pas chez toi ?

Note : Merci d'être présent sur cette source...Tu comprends ce que je veux dire...

A+
Exploreur

Commentaire de Exploreur le 11/04/2007 21:32:52

Re,

Ouai.........Ouai......Je vais allé recompter mes moutons moi !

Pour les quotes problème résolu :
Values('" & Txt_détails(1).Text & "','" & Txt_détails(2).Text & "'," & Txt_détails(3).Text & ",'" & Txt_détails(4).Text & "')"

Pour le reste, je vais bucher...

Merci

A+
Exploreur

Commentaire de patou60110 le 12/04/2007 17:04:00

salut exploreur, je vient de telecharger la modif et j'ai jetter un oeil vite fait je regarderais sa ce soir. mais cela va m'aider beaucoup encore chapeau pour ce que tu fait pour les debutant comme moi p.s j'ai pas eu encore l'occasion de jetter un oeil sur des autre code. promis je regarde se week end

Commentaire de PCPT le 12/04/2007 23:27:45 administrateur CS

PCPT.... qui attend avec impatience le 'point 3' qui est le plus important ici ^^
(d'autant plus que tu as le support pour régler çà)

je regarderai la maj ensuite ;)
bon courage, mettre régulièrement à jour cette source est la preuve que tu n'en manques pas
++

Commentaire de Exploreur le 14/04/2007 15:10:15

Bonsoir à tous,

New Maj de la source...et encore une !!!

Je viens de revoir la formulation de mes requêtes dans cette source, alors soyez pas choqués(experts et initiés),en regardant cette formulation de requêtes, car j'en suis au stade où j'apprend à les faire..Mais je suis pratiquement sûr qu'il manque quelque chose...Je cherche et je vais trouvé..(je pense que c'est du côté de la connection...). Affaire à suivre..lol

Critiques négatives et positives sont les bienvenues

A+
Exploreur

Commentaire de Exploreur le 14/04/2007 21:18:26

Salut Mehdi7604,

Merci pour le commentaire....Je n'ai pas encore fini.

A+
Exploreur

Commentaire de Exploreur le 17/04/2007 11:50:52

Bonjour à tous,

Et encore une de Maj...

Bon...ben...j'ai encore revue un peu le module et j'espère que c'est good...lol.. PCPT svp....!

A+
Exploreur

Commentaire de Exploreur le 18/04/2007 21:35:34

Bonsoir à tous,

PCPT >> Fonction du test cheminBase "\" faite et le nom de la base tempo faite aussi...Bientôt MAJ.

SYMPA *** Merci encore pour tous tes conseils *** SYMPA

A+
Exploreur

Commentaire de MANEL le 24/04/2007 10:03:01

Salut ,
Ta source m'a apporté beaucoup sur ADO dans lequel je débute .
Mais , il y a la fonctionalité de création d'une base de données par code en ADO
que je n'ai pas trouvé dans les documentations que j'ai pu consulter sur ADO ;
c'est-à-dire une instruction en ADO qui serait l'équivalent de l'instruction
CREATEDATABASE en DAO .
Existe-t-il une instruction ou possibilité quelconque en ADO qui permet comme en
DAO de créer une base de données par programmation ?
Donc , peux-tu me dire si cela est possible ou non en ADO ?
Et dans l'affirmative , comment procéder ?
Merci de bien vouloir répondre .
MANEL

Commentaire de fiscde le 24/04/2007 21:49:13

Bonsoir,

merci de me transmettre la procédure pour ouvrir la base

avec un mot de passe par exemple "test"

Voici le chemin
CheminBase = App.Path & "BD ligue1.mdb"
A+
Exploreur

Commentaire de fiscde le 24/04/2007 22:22:31

Merci explorateur,
mais cela ne fonctionne pas.

En fait je suis parti de t'on application sans rien modifier et cela fonctionne bien.Mais pas avec l'ajout d'un mot de passe 'Test"
Voir t'on code

Public Function Bln_OpenDataBase() As Boolean
    
    ' Gestion erreur
     On Error GoTo Aff_Err

    ' Choix du fournisseur ,ouverture Base de Données
     CnxAdo.Provider = "Microsoft.jet.OLEDB.4.0"
        
    ' Appel founction verif chemin de la base
     Verif_Chemin_Base
    
    ' Resultat de la fonction verif_cehemin_base
     CnxAdo.ConnectionString = CheminBase
        
    ' Ouvre la connection à la source
     CnxAdo.Open
    
    ' Si pas d'erreur connection ok
     Bln_OpenDataBase = True
      
    ' On sort
     Exit Function

Merci pour la réponse

@+

Commentaire de Exploreur le 24/04/2007 23:48:33

Salut Fiscde,

Fait un copier/coller de cela :

Public Function Bln_OpenDataBase() As Boolean
    
    ' Gestion erreur
     On Error GoTo Aff_Err

    ' Appel founction verif chemin de la base
     Verif_Chemin_Base
    
     ' Choix du fournisseur ,ouverture Base de Données, et password
     CnxAdo.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source = '" & CheminBase & "'; Jet OLEDB:Database Password=test"
                        
    ' Si pas d'erreur connection ok
     Bln_OpenDataBase = True
      
    ' On sort
     Exit Function
    
    
Aff_Err:
' connection échouée suite problème
    Bln_OpenDataBase = False
    Err.Clear

End Function

J'espère avoir répondu à ta question...
ATTENTION, il faut ouvrir la base avec Access en : Mode Exclusif et lui attribuée ton pass : test


A+
Exploreur

Commentaire de Exploreur le 27/04/2007 10:46:48

Salut Manel,

Finalement je viens de trouver la réponse à ta question ici :

http://faq.vb.free.fr/index.php?question=74

Oui, on peut créer une base en ADO..

A+
Exploreur

Commentaire de Exploreur le 30/04/2007 13:50:06

Bonjour à tous,

Nouvelle MAJ, voir décription...Bon il y a encore une chose que je dois changer(PCPT >> Api recherche fichier)

A+
Exploreur

Commentaire de Exploreur le 21/05/2007 16:21:52

Salut,

Tu va dans Outils et tu choisis : Créateur de Menu
Si tu as télécharger ma source regarde comment j'ai fait...

A+
Exploreur

Commentaire de Exploreur le 21/05/2007 18:27:13

Salut,

Pas de problème....Chacun ses goûts pour les boutons...lol...

A+
Exploreur