Ajouter, modifier, supprimer des informations via ADO

[erics83]

Bonjour,

Je souhaiterai ajouter, modifier, supprimer des informations via ADO.

Par simple clic, on sélectionne l'information, et en cliquant sur une des commandbutton, on ajoute, modifie, supprime les infos rapatriées....pour l'ajout, c'est OK, mais modifier et supprimer...galère....

En PJ les exemples de fichiers.

Merci, car j'ai essayé d'utiliser des codes existants, mais sans grand succès...surtout pour la suppression....

Merci,

En vous remerciant pour votre aide,

 

[erics83]

Re : Ajouter, modifier, supprimer des informations via ADO

Bonjour,

Je n'arrive pas à faire "reconnaitre" les valeurs que je dois ajouter et/ou modifier, le code bloque au niveau de

rs(1).Value = TextBox1.Value

idem pour la modification....

Une petite aide ?

En vous remerciant,

 

[Compte Supprimé 979]

Re : Ajouter, modifier, supprimer des informations via ADO

Bonjour

Un lien : Lire et écrire dans les classeurs Excel fermés

A+

 

[erics83]

Re : Ajouter, modifier, supprimer des informations via ADO

Merci BrunoM45,

Le tuto de Silkyroad est mon inspiration depuis longtemps (c'est lui qui m'a fait découvrir les possibilités d'ADO...), puis j'ai aussi trouvé les super tutos de JB (qui donnent encore plus d'exemples...et/ou solutions....)

Mais j'ai toujours le même problème : impossible (pour l'instant) de récupérer une valeur de Textbox, j'ai fait

rs(2)="Toto" ou "zzz"

, oui, cela fonctionne bien, mais lorsque je fais

rs(2)= textbox1.value 'par exemple

je n'arrive pas à récupérer....la valeur de la textbox....même en l'écrivant dans une cellule d'une feuille, je n'arrive pas à la récupérer....

Merci pour votre aide,

 

[BOISGONTIER]

Re : Ajouter, modifier, supprimer des informations via ADO

Voir PJ

-La suppression n'existe pas
-Il manque un identifiant ( j'ai pris l'entreprise qui doit être unique)
-Le nom de champ BD de Article doit comprendre le nombre de lignes exact de la BD. Il est mis à jour par la création

JB

 

[erics83]

Re : Ajouter, modifier, supprimer des informations via ADO

Super merci JB,

je vais essayer de mettre "" lorsque je voudrais supprimer : j'utilise la modification et je mets à vide...je fais les essais pour voir si tout OK....

Par contre, je viens d'avoir une mauvaise surprise : au boulot, nous avons Excel 2007, et le code de connexion ADO ne fonctionne pas...je suis me suis inspiré du tuto de Silkyroad pour modifier la connexion, mais ça n'a pas fonctionné non plus...

J'ai fait

 With Cnn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & CurDir & "\Bases\Base Domaine.xls" & ";Extended Properties=""Excel 12.0;HDR=YES;"""
        .Open
    End With

à la place de

  'Cnn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & CurDir & "\Bases\Base Domaine.xls"

Mais le code bloque au niveau de ".open" et me met un message d'erreur de connexion :



Merci pour votre aide,

 

[BOISGONTIER]

Re : Ajouter, modifier, supprimer des informations via ADO

Bonjour,

J'ai testé ce programme sur Excel2007

http://boisgontierjacques.free.fr/fichiers/Formulaire/Article4.xls
http://boisgontierjacques.free.fr/fichiers/Formulaire/ADOInterro4.xls

JB

 

[erics83]

Re : Ajouter, modifier, supprimer des informations via ADO

Merci JB,

En fait, je suis en Excel 2010, et j'ai l'impression que ce sont les sécurités des serveurs de mon boulot qui empêchent la connexion : quand je laisse mon dossier sur Clef USB, tout fonctionne, et lorsque je copie mon dossier sur le serveur, j'ai le message d'erreur de connexion...

Auriez-vous à tout hasard une solution de contournement ?

En vous remerciant pour votre aide,

et merci d'avoir mis nos post dans vos tutos, j'ai fait plusieurs recherche sur le web avant de vous solliciter, et dans aucunes on trouvait la création / modification via ADO expliquée de manière aussi simple....merci