Requête dans une base de données Access 2003

Question

Salut à tous!
                    Je suis entrain de réaliser un petit programme en VB 2005 express qui gère les données contenues dans une base access 2003. Les requêtes fonctionnent sur Access avec ou sans paramètres. Mais lorsque je fais la connection à la base sous VB 2005, celles qui n'ont pas de paramères fonctionnent, alors que celles qui ont des paramètres n'apparaissent même pas dans la fenêtre "vues" du VB 2005. En fait, j'aimerais pouvoir executer une requête qui demande à l'utilisateur d'entrer un texte, dans une boite de texte, comme argument ou variable de la requête.

Je suis un débutant en VBA, votre aide m'est vraiment précieuse.

cs_Chatbour · Answer

Salut,


Qu'est-ce que vous voulez dire par paramètre ? Une requête qui contient une condition paramètrée ?


Dans ce cas voici un exemple :

on veut sélectionner la liste des personnes 

dont l'age est supérieur à 20 ans :


Requete = "select * from Personnes where Age > " & txtAge.Text

où txtAge est un TextBox destinée à accueillir le "paramètre" age..

Vous pouvez faire autre chose :
Param = InputBox("Entrez l'âge :")
Requete = "select * from Personnes where Age > " & Param

Voyez-vous ce que je veux dire..


Bon, ce n'est qu'un exemple très simple, il y a des centaines de sources dans ce site qui devront vous éclairer plus les choses..


Cordialement..

miniheli · Answer

Hello,

je reviens sur ce sujet interressant,

comment fais-tu si l'utilisateur doit taper du texte ?

Doit-il sytématiquement saisir les ' à la fin et au début de sa chaîne de caractères ?

Ou y-a-t'il une solution à intégrer au code ?

Guillaume

cs_Chatbour · Answer

Salut,

si tu expliques d'avantage ce que tu désires faire..

"comment fais-tu si l'utilisateur doit taper du texte ?" : tu veux dire remplir des champs de données ? ou bien entrer dynamiquement des requêtes SQL ?

ma ville
Boissons gratuit

miniheli · Answer

Hello,

je parle de remplir le champs du InputBox lors de l'utilisation de l'appli.

Comment faire dans le code pour ne pas obliger la personne à saisir les   '   autour du texte : 

Comment faire pour pouvoir taper   CHAT   au lieu de   'CHAT'  

Je suis en train de bosser dessus, j'ai aussi un problème avec mon ORDER BY qui me gêne...

Voici mon code pour l'insant : 

Private

Sub AnalyseImpact1_Load(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles
MyBase.LoadConnexion = 

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source" & _
" C:\Adfs\dfs\Partage\Data Manager\ARTICLES\Articles.mdb"ConnexionOLE.ConnectionString Connexion

da = 

New OleDbDataAdapter(
"SELECT DISTINCT ARTICLE.ART_CODE AS [Code Article Fils] " & _

" , ARTICLE.ART_INTITULE AS [Intitulé Article Fils], ARTICLE_1.ART_CODE AS [Code Article Père 1], " & _

" ARTICLE_1.ART_INTITULE AS [Intitulé Article Père 1] FROM ((((MAP_ARTICLE_GAMME RIGHT OUTER JOIN " & _

" HISTORIQUE_NOMENCLATURE ON MAP_ARTICLE_GAMME.MAG_NUMERO_GAMME = " & _

" HISTORIQUE_NOMENCLATURE.HN_NUMERO_GAMME AND MAP_ARTICLE_GAMME.MAG_NUMERO_ARTICLE " & _

" = HISTORIQUE_NOMENCLATURE.HN_NUMERO_ARTICLE) RIGHT OUTER JOIN NOMENCLATURE_GAMME ON " & _

" HISTORIQUE_NOMENCLATURE.HN_NUMERO_GAMME = NOMENCLATURE_GAMME.NO_NUMERO_GAMME AND " & _

" HISTORIQUE_NOMENCLATURE.HN_NUMERO_ARTICLE = NOMENCLATURE_GAMME.NO_NUMERO_ARTICLE_PERE AND " & _

" HISTORIQUE_NOMENCLATURE.HN_NUMERO = NOMENCLATURE_GAMME.NO_NUMERO_HISTO) RIGHT OUTER JOIN " & _

" ARTICLE ON NOMENCLATURE_GAMME.NO_NUMERO_ARTICLE_FILS = ARTICLE.ART_NUMERO) LEFT OUTER JOIN " & _

" ARTICLE ARTICLE_1 ON MAP_ARTICLE_GAMME.MAG_NUMERO_ARTICLE = ARTICLE_1.ART_NUMERO) " & _

" WHERE (HISTORIQUE_NOMENCLATURE.HN_ACTIF = 1) AND (HISTORIQUE_NOMENCLATURE.HN_DATE_DESACTIVATION " & _
" #1/1/1900#) AND (MAP_ARTICLE_GAMME.MAG_DATE_DESACTIVATION #1/1/1900#) AND " & _

" (NOT (ARTICLE_1.ART_CODE LIKE ARTICLE.ART_CODE)) AND (ARTICLE.ART_CODE = 'C010095') " & _

" ORDER BY ARTICLE.ART_CODE, ARTICLE_1.ART_CODE", ConnexionOLE)ds = 

New DataSet()da.Fill(ds, 

"mytable")dv = ds.Tables(

"mytable").DefaultViewDataGridView1.DataSource = dv
dv.AllowEdit TrueDataGridView1.Visible 

True
Mon but est de placer après le   ConnexionOLE.ConnectionString = Connexion
   un   Param = InputBox("Entrez le code article :")

Puis à la fin du code SQL un " & Param pour que l'utilisateur puisse choisir le ARTICLE.ART_CODE. 

Pour l'instant j'ai mis  C010095 pour tester, mais je voudrais que l'utilisateur puisse tapper C010093, A010125 ou autre dans le InputBox avant d'éxecuter la requête.

Thank's

Guillaume

cs_Chatbour · Answer

Bonjour 

tu n'as pas à obliger l'utilisateur à taper les ' :

exp:  

ma ville
Boissons gratuit

miniheli · Answer

Guillaume
Data Manager

jakyyy · Answer

Bonjour,

j'ai un probleme similaire ,mais qui se produit juste por le type numerique,

si quelqu'un pe m'aider,je donne la portion du programme concernee :



Dim



 a 

As



Integer

a = 12


strSql "select table1.* from table1 where age'a' "
je me demande ou il y a l'erreur dans cette expression

jakyyy · Answer

Bonjour,

j'ai un probleme similaire ,mais qui se produit juste por le type numerique,

si quelqu'un pe m'aider,je donne la portion du programme concernee :



Dim



 a 

As



Integer

a = 12


strSql "select table1.* from table1 where age'a' "
je me demande ou il y a l'erreur dans cette expression

jakyyy · Answer

Bonjour,

j'ai un probleme similaire ,mais qui se produit juste por le type numerique,

si quelqu'un pe m'aider,je donne la portion du programme concernee :



Dim



 a 

As



Integer

a = 12


strSql "select table1.* from table1 where age'a' "
je me demande ou il y a l'erreur dans cette expression

jakyyy · Answer

j'ai essayer l'istruction suivante :
Dim

 a 
As
Integera = 12
strSql "select table1.* from table1 where age" & a

ca marche 

Mais pourqoi la premiere ne marche plus

cs_Chatbour · Answer

Salut,

C'est normal que la première ne marche pas car a n'est pas replacée par sa valeur..

cs_Chatbour · Answer

pour te convaincre plus, exécutes ce code :

dim a as Integer
a = 17
MsgBox "la valeur de a est a "


MsgBox "la valeur de a est " & a


 C'est clair ?

Requête dans une base de données Access 2003

12 réponses

Votre réponse

Discussions similaires