Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Configurer Adodc paramétré avec Access

Configurer Adodc paramétré avec Access

13 réponses
Avatar
vino
Je voudrais utiliser l'objet Adodc pour récupérer un enregistrement dans une
base de données Access mais le problème, c'est que je suis obligé de
récupérer tous les enregistrements de la table puis ensuite me positionner
sur celui désiré. Ceci occasionne des problèmes de lenteur.
Ma requête paramétrée est présente sur Access et il faudrait donc que je
puisse envoyer le paramètre vers Access via l'Adodc afin de pouvoir réupérer
un seul enregistrement.

Merci de votre aide.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
vino
Bonjour,

Le problème Driss c'est que ma requête est d'abord appelée depuis un Adodc (
qui est réalisé en interface graphique). Je sélectionne le nom de ma requête
dans le RecordSource qui sélectionne tous les enregistements pui je
sélectionne l'unique enregistrement nécessaire comme ceci :
adodcInterventions1.Recordset.Find ("NUMFICH=" & numFich)

Mais comme j'ai conçu mon Adodc à l'aide de la boîte à outils et configué
avec l'onglet propriété, je suis d'abord obligé de charger ces propriétés
avant d'exécuter le Form_Load avec l'appel de la procédure et l'envoir du
paramètre (NumFich).

Sinon j'avais fait cela pour le paramétrage :
Dim cmd as New Command
Cmd.ActiveConnection = objConn
Cmd.CommandType = adCmdText
Cmd.CommandText = "essaiParametres"
Cmd.CreateParameter "N°PATIENT", adChar, adParamInput, , "304102977/CX"
Set rs = Cmd.Execute()

Les paramètres ne fonctionnes pas en plus.

Si vous n'avez pas une idée qui viens viens tout de suite à l'esprit, ne
n'est pas la peine de vous casser la tête Driss, j'essaierai de me
débrouiller autrement ou de ne pas faire ces formulaires.
En tout cas je tenais à vous remercier pour toute votre aide apportées.

Merci.

Gilles.


"Driss HANIB" a écrit :

Bonjour Vino

peux tu me marquer toutes tes lignes pour lancer ta requete et créer ton
recordset ?
Je pourrai comparer
merci

Driis
"vino" a écrit dans le message de
news:
> Il n'y a pas l'air d'avoir de correspondance entre les 2 modes.
>
> J'arrive cependant à appeler ma procédure stockée mais il me marque "1
> paramètre manquant" et je n'arrive pas à lui envoyer ces paramètres.
> Il doit pourtant y avoir un moyen parceque les procédures stockées c'est
> quand même important et pratique.
>
> Je vais continuer à chercher comme je peut pas tellement faire autrement.
> Si tu as une autre idée qui te passe par la tête n'hésite pas à me la
donner
> parceque là je fais un peu du sur place.
>
> Merci beaucoup Driss.
>
> ps : oui je travail dans un CH.
>
> "Driss HANIB" a écrit :
>
> > Bonjour Vino
> >
> > En fait je ne pratique pas AODC mais DAO alors je vais te mettre ce que
moi
> > je fais et peut être trouveras tu une "adaptation"
> >
> > Dim Rs As Recordset
> > Dim SQL As QueryDef
> > ' extraction des données
> > Set SQL = BaseLogilab.QueryDefs("MonNomRequete")
> > SQL(0) = MaValeur
> > Set Rs = SQL.OpenRecordset(dbOpenDynaset)
> >
> > ps: je vois que toi aussi tu es dans le médical..
> >
> > Driss
> >
> >
> > "vino" a écrit dans le message de
> > news:
> > > Bonjour Driss et un grand merci andré pour avoir essayer de m'aider,
> > >
> > > Oui, voici ma requête qui marche nickel sur Access :
> > > PARAMETERS numFiche Text ( 255 );
> > > SELECT *
> > > FROM PATIENT
> > > WHERE N°PATIENT=[numFiche];
> > >
> > > J'appelle cette procédure dans le RecordSource de l'Adodc mais il
faudrait
> > > que j'envoie le paramètre, en l'occurence numFiche, afin de pouvoir
> > récupérer
> > > uniquement la ligne d'enregistrement du patient voulu.
> > >
> > > Merci de votre aide.
> > >
> > > "Driss HANIB" a écrit :
> > >
> > > > Bonjour Vino
> > > >
> > > > ta requête enregistrée dans Access est-elle déjà paramétrée ?
> > > >
> > > > Driss
> > > >
> > > > "vino" a écrit dans le message
de
> > > > news:
> > > > > Bonjour, et merci de m'avoir répondu
> > > > >
> > > > > Mais ce n'est pas exactement ce que je cherche.
> > > > > Je voudrais appeler une requête enregistrée dans Access et envoyer
un
> > > > > paramètre à cette même requête afin qu'elle puisse me retourner
une
> > seule
> > > > > ligne d'enregistrement seulement.
> > > > > Si vous avez une solution.
> > > > >
> > > > > Merci de votre aide
> > > > >
> > > > > "andre.araste" a écrit :
> > > > > > Bonjour
> > > > > >
> > > > > > Je pense qu'il faut rédiger un prédicat spécifiant une clause
WHERE
> > du
> > > > genre
> > > > > > :
> > > > > >
> > > > > > adodc1.RecordSource = "SELECT * FROM Table1 WHERE Table1.Nom <
'B'
> > ORDER
> > > > BY
> > > > > > Table1.Prix"
> > > > > >
> > > > > > Cette ligne écrit les enregistrements contenus dans le champ Nom
de
> > la
> > > > > > Table1 dont le nom commence par la lettre A par ordre de prix
> > > > > > --
> > > > > > Bonne réception.
> > > > > >
> > > > > > http://perso.orange.fr/andre.araste/
> > > > > > Membre du Club Win's: http://www.clubwins.org
> > > > > > Avertissement: Je ne vends rien.
> > > > > > >"vino" a écrit dans le
> > message de
> > > > > > >news:
> > > > > > > Je voudrais utiliser l'objet Adodc pour récupérer un
> > enregistrement
> > > > dans
> > > > > > > une
> > > > > > > base de données Access mais le problème, c'est que je suis
obligé
> > de
> > > > > > > récupérer tous les enregistrements de la table puis ensuite me
> > > > positionner
> > > > > > > sur celui désiré. Ceci occasionne des problèmes de lenteur.
> > > > > > > Ma requête paramétrée est présente sur Access et il faudrait
donc
> > que
> > > > je
> > > > > > > puisse envoyer le paramètre vers Access via l'Adodc afin de
> > pouvoir
> > > > > > > réupérer
> > > > > > > un seul enregistrement.
> > > > > > >
> > > > > > > Merci de votre aide.
> > > > > >
> > > > > >
> > > > > >
> > > >
> > > >
> > > >
> >
> >
> >





Avatar
parci
On Thu, 1 Mar 2007 06:55:13 -0800, vino
wrote:

Bonjour,

Le problème Driss c'est que ma requête est d'abord appelée depuis un Adodc (
qui est réalisé en interface graphique). Je sélectionne le nom de ma requête
dans le RecordSource qui sélectionne tous les enregistements pui je
sélectionne l'unique enregistrement nécessaire comme ceci :
adodcInterventions1.Recordset.Find ("NUMFICH=" & numFich)

Mais comme j'ai conçu mon Adodc à l'aide de la boîte à outils et configué
avec l'onglet propriété, je suis d'abord obligé de charger ces propriétés
avant d'exécuter le Form_Load avec l'appel de la procédure et l'envoir du
paramètre (NumFich).

Sinon j'avais fait cela pour le paramétrage :
Dim cmd as New Command
Cmd.ActiveConnection = objConn
Cmd.CommandType = adCmdText
Cmd.CommandText = "essaiParametres"
Cmd.CreateParameter "N°PATIENT", adChar, adParamInput, , "304102977/CX"
Set rs = Cmd.Execute()




Essaie avec ces corrections (référence à ADO 2.7/8) :

Dim param As ADODB.Parameter
Dim Cmd As New ADODB.Command

Dim sParam As String
sParam = "304102977/CX"

Cmd.CommandType ­CmdStoredProc
Set param = Cmd.CreateParameter("x", _
adVarChar, _
adParamInput, _
Len(sParam ) , _
sParam)

Cmd.Parameters.Append param
Avatar
vino
Bonjour Parci,

Votre requête paramétrée marche mais je n'arrive pas à récupérer mon
enregistrement retourné.
Comment faire ?

Merci.

"parci" a écrit :

On Thu, 1 Mar 2007 06:55:13 -0800, vino
wrote:

>Bonjour,
>
>Le problème Driss c'est que ma requête est d'abord appelée depuis un Adodc (
>qui est réalisé en interface graphique). Je sélectionne le nom de ma requête
>dans le RecordSource qui sélectionne tous les enregistements pui je
>sélectionne l'unique enregistrement nécessaire comme ceci :
>adodcInterventions1.Recordset.Find ("NUMFICH=" & numFich)
>
>Mais comme j'ai conçu mon Adodc à l'aide de la boîte à outils et configué
>avec l'onglet propriété, je suis d'abord obligé de charger ces propriétés
>avant d'exécuter le Form_Load avec l'appel de la procédure et l'envoir du
>paramètre (NumFich).
>
>Sinon j'avais fait cela pour le paramétrage :
>Dim cmd as New Command
>Cmd.ActiveConnection = objConn
>Cmd.CommandType = adCmdText
>Cmd.CommandText = "essaiParametres"
>Cmd.CreateParameter "N°PATIENT", adChar, adParamInput, , "304102977/CX"
>Set rs = Cmd.Execute()
>

Essaie avec ces corrections (référence à ADO 2.7/8) :

Dim param As ADODB.Parameter
Dim Cmd As New ADODB.Command

Dim sParam As String
sParam = "304102977/CX"

Cmd.CommandType ­CmdStoredProc
Set param = Cmd.CreateParameter("x", _
adVarChar, _
adParamInput, _
Len(sParam ) , _
sParam)

Cmd.Parameters.Append param





1 2