Appel d'une repquete Access par VB6

Question

bonjour.

j'ai cr&#233;&#233; une requete sous access, et je voudrais l'&#233;x&#233;cuter directement par mon application qui est en visual basic 6.
comment puis-je faire svp?
merci

juvamine · Answer

dim cn as new adodb.connection
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source:c:	oto.mdb"
cn.execute ("nom_de_ta_requette_sql")
cn.close
++
juva

BTS IG, d&#233;veloppeurs, et tout le monde ! venez faire un tour sur http://www.webhelp-ig.com
Retrouvez une &#233;quipe de d&#233;veloppeurs confirm&#233;s sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

cs_kimou75 · Answer

ca ne fonctionne pas , il y a une erreur qui est la suivante:
Instruction SQL non valide; "delete","insert","select" ou "update" attendus.

cs_ITALIA · Answer

en DAO en Cochant Projet..R&#233;f&#233;rences...Microsoft DAO 3.51 Object Library :

Set Db = OpenDatabase("C:\MaBase.mdb") Set ReqDb.OpenRecordset("SELECT * Article FROM TaTable WHERE Fournisseur '" & Choix & "'")
If Req.RecordCount <> 0 Then

' Le Code de de ce que tu Fais avec tes Enregistrements

End if
Set Req=Nothing
Set Db=Nothing

It@li@

cs_kimou75 · Answer

en gros, il faut que je re&#233;cris ma requete dans mon prog ?

cs_ITALIA · Answer

Non pas forcement ..mais c'est pr&#233;f&#233;rable

It@li@

cs_kimou75 · Answer

le probleme c'est que ma requete ne passe pas sous vb6, il me dit &#224; chaque fois: fin d'instruction manquant.
en fait c'est les " " au milieu qu'il aime pas je crois, mais je suis oblig&#233; de les laisser.
voici ma requete:

rsb.Open"SELECT(([Autocom ENS].Poste),(( [Nom] & " " & [Prenom]) AS Titulaire),( [Autocom ENS].CF),( [Autocom ENS].UC)) INTO( [Autocom ENS bis]) FROM [Autocom ENS]",cn,adOpenKeyset,adLockOptimistic,adCmdText

cs_CanisLupus · Answer

Salut, pas besoin de r&#233;&#233;crire ta requete en VB si elle est d&#233;j&#224; cr&#233;&#233;e dans access.

   rsb.Open "[Nom de ta requete stock&#233;e]", cn, , , adCmdStoredProc

Loup Gris

cs_kimou75 · Answer

j'ai &#233;ssay&#233;, ca me donne toujours la meme erreur 

rsb.Open "[CreationTableTicketCompTel]", cn, , , adCmdStoredProc

Instruction SQL non valide; "delete","insert","select" ou "update" attendus.

juvamine · Answer

Ta requete fonctionne sous access o moins ?

BTS IG, d&#233;veloppeurs, et tout le monde ! venez faire un tour sur http://www.webhelp-ig.com
Retrouvez une &#233;quipe de d&#233;veloppeurs confirm&#233;s sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

cs_kimou75 · Answer

biensur qu'elle fonctionne, j'essayerais meme pas sur vb sinon, c'est la premiere chose que j'ai regard&#233;

juvamine · Answer

komen elle sapelle sous access ?

BTS IG, d&#233;veloppeurs, et tout le monde ! venez faire un tour sur http://www.webhelp-ig.com
Retrouvez une &#233;quipe de d&#233;veloppeurs confirm&#233;s sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

cs_kimou75 · Answer

elle s'appel: CreationTableTicketCompTel

juvamine · Answer

alors tu fais:
rsb.Open "CreationTableTicketCompTel",cn

vala c tout, pas besoin dargument derri&#232;re

BTS IG, d&#233;veloppeurs, et tout le monde ! venez faire un tour sur http://www.webhelp-ig.com
Retrouvez une &#233;quipe de d&#233;veloppeurs confirm&#233;s sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

cs_kimou75 · Answer

ca ne fonctionne pas non plus, je suis d&#233;sesp&#233;r&#233;

cs_CanisLupus · Answer

Dis, qu"a tu coch&#233; dans le menu Projet/R&#233;f&#233;rences.. ?
Il faudrait quelque chose comme &#231;a : "Microsoft Activex Data Objects x.x Library"

Loup Gris

cs_CanisLupus · Answer

Et ta base, elle est de quelle version ? 97, 2003, .... ?

Loup Gris

cs_kimou75 · Answer

alors j'ai coch&#233;: "Microsoft Activex Data Objects 2.7 Library"



et je travail sous access 2000 et 2003

juvamine · Answer

M&#234;me erreur qu'avant ?

BTS IG, d&#233;veloppeurs, et tout le monde ! venez faire un tour sur http://www.webhelp-ig.com
Retrouvez une &#233;quipe de d&#233;veloppeurs confirm&#233;s sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

cs_kimou75 · Answer

oui, toujours la meme erreur. c'est comme si il viens lire dans la BD que les tables, et 

comme il trouve pas de table de ce nom, puisque c'est une requete.il me remet la 

meme erreur que j'ai &#233;cris en rouge,plus haut.

Appel d'une repquete Access par VB6

19 réponses

Discussions similaires