mayday mayday !!

Question

cela fait deux jours que je suis le dessus : 

J'essaie de lancer une requete VBA depuis access
et je n'arrive pas a me connecter la base de donnees: cela bug au premiere ligne...
peut etre que VBA access 2000 ne reconnait pas
le ADO.Connection

Dim cnn as ADO.Connection
Dim cmd As ADODB.Command
Dim rst As ADODB.Recordset

Set cnn = New ADODB.Connection

With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open "C:\STAGE\pays.mdb"
End With

Set cmd = New ADODB.Command
Set rst = New ADODB.Recordset

With cmd
.CommandType = adCmdText
.CommandText = "toto"
.ActiveConnection = cnn
End With

Set rst = cmd.Execute

BasicInstinct · Answer

faut que tu rajoutes la reference :
Microsoft ActiveX data Objects 2.0 Library

Sous VB6, ca se trouve dans le Menu:
Projet / Reference

sous Excel XP:
dans l'editeur de macros (Alt + F11) menu :
Tools / references

galldup · Answer

Merci beaucoup cela marche mais je bugge a le  
 derniere ligne cad : 

 set rst cmd.execute

  ??

il faut savoir qu'on ne peut pas tout savoir...

BasicInstinct · Answer

ton commandtext doit etre une requete sql du type :
select * from toto

galldup · Answer

C'est ce que j'ai teste mais cela ne marche toujours pas...

Mais j'ai trouve autre chose, je lance une query qui existe deja dans le progr access et cela marche...

Par contre est ce que tu connais le code qui permet de construire un graphique (toujours en VBA)...?

C'est ambitieux mais je n'ai pas le choix...
en tous cas, merci !

BasicInstinct · Answer

tu utilises koi pour dev ??

galldup · Answer

j'utilise VBA (access 2000)...

BasicInstinct · Answer

logiquement (et sans aucune certitude), il doit y avoir un activeX pour la création de graphique.
je peux malheureusement pas te donner + d'info, j'ai pas access d'installé

Bonne Prog

Mayday mayday !!

7 réponses