pepito125
Messages postés3Date d'inscriptionmercredi 25 juillet 2007StatutMembreDernière intervention10 septembre 2007
-
10 sept. 2007 à 23:39
cs_Chatbour
Messages postés764Date d'inscriptionjeudi 27 juillet 2006StatutMembreDernière intervention 6 septembre 2010
-
15 févr. 2008 à 19:14
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
Messages postés764Date d'inscriptionjeudi 27 juillet 2006StatutMembreDernière intervention 6 septembre 201018 28 nov. 2007 à 22:34
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 ?
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
Vous n’avez pas trouvé la réponse que vous recherchez ?