Probleme d'initialisation avec DAO

Version imprimable

26/07/2011, 11h51
candrau

Probleme d'initialisation avec DAO

Bonjour,

J'essaye actuellement d'intégrer dans un userform un tableau type excel, via le tutoriel que j'ai trouvé ici. Pour l'instant, j'ai juste fait un gros copié-collé du code donné dans ce tutoriel, afin de comprendre son fonctionnement, et j'ai actuellement l' erreur de compilation suivante : "Object required", sur la ligne suivante :

Code:

Set rst = CurrentDb.OpenRecordset(strSql)

dans la fonction "RemplirFeuille" du tutoriel.
J'ai pourtant bien insérer la bonne référence dans mon projet, à savoir "Microsoft DAO 3.6 Object Library".
Quelqu'un aurait une idée sur ce qui ne va pas ?
26/07/2011, 12h10
oOVaveOo
Bonjour,
je me sers en général de ADO, mais si la logique DAO est la même, je ferai :
Code:

1 2 Set rst = New DAO.Recordset rst.open strSql
ou un truc dans le genre ....
26/07/2011, 14h17
candrau

Cette syntaxe ne marche pas, on obtiens l'erreur :"Invalid use of new keyword". Sinon, j'ai déclaré au départ la variable rst comme dans l'exemple (j'ai pris exactement le même code), à savoir comme ça :

Code:

Dim rst As DAO.Recordset
26/07/2011, 14h23
Pierre Fauconnier

Salut.

Es-tu en VBA pour Excel? Si oui, tu ne peux pas utiliser Currentdb qui est un objet Access (sauf à avoir déclaré un objet dao.database au nom de Currentdb, ce dont je doute). Tu as donc probablement recopié un code utilisable en Access et tu essaies de le faire fonctionner en Excel. Tu dois donc l'adapter en déclarant un dbengine et une database et en les instanciant. Tu pourras alors y connecter des recordset...

De quel exemple parles-tu? Un code trouvé sur le net est rarement utilisable sans modifications.

Précise le contexte dans lequel tu utilises le code, et nous pourrons probablement mieux t'aider.
26/07/2011, 14h30
candrau

J'ai pris texto le tutoriel "La Mise en Forme Conditionnelle Illimité Sous Access", et effectivement, je n'ai pas fait gaffe que c'était sous access (pourtant, c'est marqué dans le titre du tutoriel....) Je vais aller faire un tour dans les FAQ pour voir les syntaxes pour déclarer ce que tu as relevé et modifier le code

Inspire-toi de ceci

Code:

1
2
3
4
5
6
  Dim myEngine As New DAO.DBEngine
  Dim MyBase As DAO.Database
  Dim rst As DAO.Recordset
 
  Set MyBase = myEngine.OpenDatabase("d:\données\database1.mdb")
  Set rst = MyBase.OpenRecordset("select * from matable")

26/07/2011, 16h58
candrau

Oui c'est bon, ça marche maintenant, merci encore :ccool: