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

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.

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..

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

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 ?

______________________________________________________________________
Visitez ma ville
Boissons gratuit

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) HandlesMyBase.Load

Connexion =

"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").DefaultView

DataGridView1.DataSource = dv

dv.AllowEdit =

True

DataGridView1.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

Bonjour

tu n'as pas à obliger l'utilisateur à taper les ' :

exp: 

      Dim chaine As String
    chaine = InputBox("Tapez un critère :")

    dim maRequete as String
    maRequete = "select * from maTable where champ = '" & chaine & "'"

tu vois.. tu les ajoutes dans le code..

Cordialement..

_____________________________________________________________________
Visitez ma ville
Boissons gratuit

Guillaume
Data Manager

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

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

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