Accueil > Forum > > > > Parametres Access
 Parametres Access
lundi 27 septembre 2004 à 16:06:34 |
Parametres Access
ghans
|
Bonjour, Voici le probleme : j'ai une base access, dans laquel j'ai une requete dont un champ prend un parametre du style : Date=[Formulaires]![Choix]![DateDeb] permettant via un formulaire access de saisir une date de début Je souhaiterais appeler cette requete depuis une appli VB via ADO... comment puis-je lui passer ce paramètre ??? D'avance merci pour votre aide, qui sera, a n'en pas douter une aide précieuse... car je suis un peu dans le mur en ce moment... Gh@ns |
|
lundi 27 septembre 2004 à 16:43:03 |
Re : Parametres Access
frop01
|
Voici un exemple de MSDN :
Public Sub ActiveConnectionX()
Dim cnn1 As ADODB.Connection
Dim cmdByRoyalty As ADODB.Command
Dim prmByRoyalty As ADODB.Parameter
Dim rstByRoyalty As ADODB.Recordset
Dim rstAuthors As ADODB.Recordset
Dim intRoyalty As Integer
Dim strAuthorID As String
Dim strCnn As String
' Define a command object for a stored procedure.
Set cnn1 = New ADODB.Connection
strCnn = "driver={SQL Server};server=srv;" & _
"uid=sa;pwd=;database=pubs"
cnn1.Open strCnn
Set cmdByRoyalty = New ADODB.Command
Set cmdByRoyalty.ActiveConnection = cnn1
cmdByRoyalty.CommandText = "byroyalty"
cmdByRoyalty.CommandType = adCmdStoredProc
cmdByRoyalty.CommandTimeout = 15
' Define the stored procedure's input parameter.
intRoyalty = Trim(InputBox( _
"Enter royalty:"))
Set prmByRoyalty = New ADODB.Parameter
prmByRoyalty.Type = adInteger
prmByRoyalty.Size = 3
prmByRoyalty.Direction = adParamInput
prmByRoyalty.Value = intRoyalty
cmdByRoyalty.Parameters.Append prmByRoyalty
' Create a recordset by executing the command.
Set rstByRoyalty = cmdByRoyalty.Execute()
' Open the Authors table to get author names for display.
Set rstAuthors = New ADODB.Recordset
rstAuthors.Open "authors", strCnn, , , adCmdTable
' Print current data in the recordset, adding
' author names from Authors table.
Debug.Print "Authors with " & intRoyalty & _
" percent royalty"
Do While Not rstByRoyalty.EOF
strAuthorID = rstByRoyalty!au_id
Debug.Print , rstByRoyalty!au_id & ", ";
rstAuthors.Filter = "au_id = '" & strAuthorID & "'"
Debug.Print rstAuthors!au_fname & " " & _
rstAuthors!au_lname
rstByRoyalty.MoveNext
Loop
rstByRoyalty.Close
rstAuthors.Close
cnn1.Close
End Sub
|
donc il faut l'objet ADODB.Parameter et ses propriétés Type , Size ,Direction , Value et la méthodes Parameters.Append et un ptit .Execute() pour cloturer.  MSN  YAHOO  Membre du club CodeS-SourceS |
|
lundi 27 septembre 2004 à 18:05:58 |
Re : Parametres Access
ghans
|
Alors...bin...soit c'est moi qui suis pas terrible,
soit c'est microsoft qui explique mal....
mais je n'y arrive pas
J'ai déclare un ADODB.parameter
que j'ai chargé avec notamment
param.name = "[Formulaires]![Choix]![DateDeb]"
Param.Type = adDate
Param.Value = #1/1/2001#
ensuite je fais avec une ADODB.command :
With cmd
.Parameters.Append Param
.CommandType = adCmdText
.CommandText = "select * from AATEST"
.ActiveConnection = cnx
End With
éh bien lors de la command :
Set Rs = cmd.Execute()
éh bien il attend un paramètre... donc il ne recoit pas celui que je lui ai passé
qu'est ce que j'ai raté ???
Gh@ns dit celui qui ne comprend rien
|
|
mardi 28 septembre 2004 à 09:11:55 |
Re : Parametres Access
ghans
|
Réponse acceptée !
Re-bonjour,
Bon, éh bien après épluchage de la msdn voici la solution, je l'a met si cela peut aider quelqu'un... on sait jamais
Merci quand même a la personne qui m'a montrer qu'il y avait la solution dans la msdn...
Dim cnx As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim Rs As New ADODB.Recordset
Dim Param As New ADODB.Parameter
'** on instancie le paramètre et on le créer dans la command
'** Le nom du paramètre pourrait etre tout autre, il suffit qu'il existe pour qu'accès le prenne
Set Param = cmd.CreateParameter("[Formulaires]![Choix]![DateDeb]", adDate, adParamInput, , #1/1/2001#)
With cmd
.Parameters.Append Param '** j'ai un doute sur l'utilité de cette ligne
.CommandType = adCmdStoredProc '**afin de dire qu'il s'agit d'une procèdure stockée
.CommandText = "AATEST" '**c'est le nom de la procèdure stockée dans access
.ActiveConnection = cnx
End With
Set Rs = cmd.Execute() '**on execute la requete
Encore merci à ceux qui font que ce site existe !!!!
Au plaisir...
Gh@ns
|
|
Cette discussion est classée dans : access, aide, date, parametres, requete
 Répondre à ce message
 Sujets en rapport avec ce message
Format date dans une requete pour access [ par Sly03 ]
Bonjour a tous,SVP Comment puis-je utiliser le format date dans une requete SQL ?Ex: Je voudrais envoyer ceci : "SELECT * From TABLE WHERE Date=#21/02
plusieurs questions sur access [ par Edlamouette ]
salut je suis debutant sur access et j'aurais besoin de votre aide, merci d'avance1°) j'ai un formulaire basé sur une requete paramétrée. Cette requet
VB : Requete pour access [ par aptech ]
Je suis sous VB6 avec une DB access, je fais la requete suivanteSELECT id_rdv FROM rendez_vous WHERE (date>=" & dDebut & ") AND (dateCa fonctionne pas
Probleme access requete paramétrée par controle du formulaire [ par pinpoy ]
Salut,j'ai un problème sous access avec un formulaire.Je m'explique, j'ai un formulaire que lon remplit avec un code agent (qui provient d'une zone de
access [ par Lexounet ]
Voila g un probleme ki pour mon nivo est insolvable !!!G un champ dt ( pour une date ex : 17/05/2003) et je voudrais effectuer une requete qui me perm
Probleme de date entre requete sql et access [ par malzairean ]
Bonjour,J'ai une requete SQL que j'envoie a une base access sous une appli VB, le probleme c'est que sous VB je recupere la date sous format jj/mm/aaa
Access, champ date [ par dam94 ]
Bonjour,J'ai une base "Historique", dans laquelle il y a une table "Histo" avec 3 champs :- ID- Date (de type date complet)- TexteJe voudrai savoir co
Requete Vb6 vers Access avec parametres [ par egallant ]
Bonjour,J'ai une requête existante dans Access qui a deux parametres (saisis via une inputbox). Jusque la normal.Maintenant, je souhaite depuis du cod
Requete Access selon une date [ par foliop ]
salutdans ma table jai des enregistrement avec la date au format JJ/MM/2004jaimerai dans une requete selectionner tous les enregistrements du mois de
Requéte/ formulaire access [ par fab101 ]
Bonjoura tous et a toute Voila j'aurais voulu savoi si il est possible a l'aide soit d'une macro ou de code VB de creer un formulaire directement a l'
 Livres en rapport
|
Derniers Blogs
 TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|