CREATION DE ADODB.RECORDSET DYNAMIQUEMENT !!

devsurf Messages postés 148 Date d'inscription dimanche 13 octobre 2002 Statut Membre Dernière intervention 13 novembre 2008 - 1 nov. 2002 à 15:08
Polack77 Messages postés 1098 Date d'inscription mercredi 22 mars 2006 Statut Membre Dernière intervention 22 octobre 2019 - 9 mars 2009 à 11:57
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/4929-creation-de-adodb-recordset-dynamiquement

Polack77 Messages postés 1098 Date d'inscription mercredi 22 mars 2006 Statut Membre Dernière intervention 22 octobre 2019 1
9 mars 2009 à 11:57
Génial (8/10) :)
Merci, cette classe est bien pratique pour remplir un RecordSet :)
Des pitite remarque quand même (la perfection n'est pas de ce monde ;)) :
- Certaines variables ne sont pas déclarées (Names de la fonction AddRecord par exemple)
- Il manque le destructeur de la classe
- Impossible d'ajouté des colonnes une fois la première ligne ajouté

Néanmoins cette classe reste très bien et très pratique :)
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
2 nov. 2002 à 21:00
ok ok .... pour Naiss / Code , il s'agit d'un changement de derniere minute qui n'a pas ete suivi...... rien de grave.

Quant a la reference manquante, je m'en excuse....
devsurf Messages postés 148 Date d'inscription dimanche 13 octobre 2002 Statut Membre Dernière intervention 13 novembre 2008
1 nov. 2002 à 15:08
Salut
Je trouve ce code trés original et bien fait. Je suis debutant mais j'ai quelques remarques
Ton code à mon avis a une erreur:
dans form1 :

RM.AddField "Nom", FT_VarChar, 30
RM.AddField "Naiss", FT_VarChar, 10
puis après plus bas
RM.Fill "Code", "3112"
Tu essaye d'ajouter un valeur à un champ "Code" qui n'existe pas puisse que tu a créée le champ "Naiss" à la place

J'ai donc juste remplacé la ligne:
RM.AddField "Naiss", FT_VarChar, 10
par celle ci
RM.AddField "Code", FT_VarChar, 10
et ca marche

En plus de ca le projet ne fait pas refférence à l'objet ADODB (j'ai VB5)
alors pour les autres debutants comme moi voici c'est ce que j'ai fait: (win9x )

En effet il faut activer l'objet ADODB dans les réfférences
Pour faire activer le modèle ADODB de windows:
1. appuyer sur F2
2. faites un clique droit avec votre souris pour ouvrir un menu contextuel
3. cliquez sur références...
4. recherchez "Microsoft ActiveX Data Objects Recordset 2.1 Library" et validez en cliquant sur OK
5. vous pouvez maiintenant utilisez l'objet outlook pour envoyer et gerer les mails
Si vous n'arrivez pas le faire comme ce ci alors editez votre projet.vbp avec un bloc notes et ajoutez la ligne suivante en deuxieme ligne (si vous avez win9x ):
Reference=*G{00000300-0000-0010-8000-00AA006D2EA4}#2.1#0#C:PROGRAM FILESFICHIERS COMMUNSSYSTEMADOMSADOR15.DLL#Microsoft ActiveX Data Objects Recordset 2.1 Library

Voila voilou.....
devsurf@hotmail.com
Rejoignez-nous