Fonction vba pour executer requete sql Résolu

Question

Bonjour, 

j'ai une petite question j'ai cr&#233;e une base de donn&#233;es sous Access et maintenant je cr&#233;e une interface en vba
dans mon code je voudrais faire une fonction qui retourne le r&#233;sultat d'une requ&#234;te 
je ne connais pas vraiment la syntaxe j'ai cherch&#233; &#224; droite a gauche et on ma dit qu'il fallait que j'entre &#231;a pour commencer

Dim conConnection As ADODB.Connection 
Dim recSet As New ADODB.Recordset 

il me semble que c'est pour connecter ma base a mon code
moi je pensais que c'&#233;tait d&#233;j&#224; fait quand on n&#146;utilisait vba 

voila merci

Shainaizz

tbbuim1 · Accepted Answer

Quel est le message d'erreur   

L'erreur est au niveau de A= ou de la requ&#234;te Insert 

As-tu v&#233;rifi&#233; si Classeur() te retourne bien la valeur souhait&#233;.

Tu peux le savoir en faisant:

Msgbox  Classeur( )

Pour ce qui est de la requ&#234;te insert, il semble y avoir une erreur de syntax...



En principe, il faut &#233;crire

INSERT INTO Table (Champ1) VALUES ('truc');

INSERT INTO Table SELECT * FROM Tbl;



Mais je n'ai jamais essay&#233;

INSERT INTO Table (Champ1) Select Champ1 from Tbl;



Quoiqu'il en soit, il semble qu'il manque la table dans laquelle tu
veux ins&#233;rer dans ta requ&#234;te. Donc forc&#233;ment &#231;a ne marche pas...



Si tu veux avoir la syntax des divers requ&#234;tes SQL, va sur google et tape SQL Syntax

tu as un tas de sites qui d&#233;tails toutes les possiblit&#233;s

.
R&#233;sum&#233;: Si A est le nom de ta table alors il ne doit pas &#234;tre
entre quotes, ni parenth&#232;se. si c'est le nom d'un champ, il manque le
nom de la table.
TBBUIM

tbbuim1 · Answer

AAAAARRRGGGGGG!!!!!!!! 

Pas de recordset sous ACCESS, c'est inutile (ou presque) 

Pour lancer une requ&#234;te sous access rien de plus facile 



Docmd.OpenQuery "NomDeLaRequ&#234;te"



Pour lancer une requ&#234;te &#233;crite dans le code, avec une variable string

Genre rq = "Select * from Table;"



Docmd.RunSQL rq



Regarde dans l'aide access, toutes les possibilit&#233;s que t'offre la commande

Docmd

Ouverture de table, de formulaire, d'&#233;tat, de rq...



Pour r&#233;cup&#233;rer un seul &#233;l&#233;ment d'une requ&#234;te, par exemple, la somme de montants

Me.ZoneDeTexte = Dlookup("Somme","rq_de_somme")



Voir, aussi des trucs tr&#232;s utilie pour faire des op&#233;rations sur les tables.

Tels que:

Dlookup, DSum, Dcount, DFirst, Dlast...



Access g&#232;re les bases de donn&#233;es, et tout est fait pour pouvoir manipuler le plus simplement du monde des BD ,
contrairement &#224; VB, ou l'on doit faire des pieds et des mains avec des
recordsets, des adodc et des datagrid pour afficher un pauvre
malheureux select * ... 



Si tu commences &#224; faire des recordsets avec ACCESS, t'es pas sorti de l'auberge!
TBBUIM

shainaizz · Answer

ok merci beaucoup

Et pour que ma fonction retourne le r&#233;sultat de ma requete
c'est :

Code-->Nom de ma fonction

code=Docmd.RunSQL rq

???


Shainaizz

omsylv · Answer

Salut, 

contrairement &#224; ce qui pourrait sembler logique, vba n'est pas reli&#233; &#224;
la base access donc il faut lui sp&#233;cifier l'emplacement de la base et
le type de connection : 



                            'initialisation de la base de donn&#233;es

                        Set ct = New ADODB.Connection

                        With ct

           
           
    .Provider = "Microsoft.Jet.oledb.4.0"

           
           
    .ConnectionString = "tabase.mdb" 'chemin relatif de ta base

           
           
    .Open

                        End With



ensuite il ne te reste qu'&#224; effectuer tes requ&#234;tes sachant 2 choses :

       les requ&#234;tes d'update et d'insertion se font avec un objet Command



               
             'Mise &#224; jour ou insertion

            
              Set
sqlmaj = New ADODB.Command

          
           
    With sqlmaj

          
              
      .ActiveConnection = ct

           
           
        .CommandText = "Ta requ&#234;te ";"

         
           
          .Execute

           
           
    End With



    les requ&#234;tes de s&#233;lection se font avec un recordset

         

                           'exemple de r&#233;cup&#233;ration de la valeur souhait&#233;e

           
              
Set rc = New ADODB.Recordset

           
           
        rc.Open "Ta requ&#234;te';", ct,
adOpenDynamic

           
           
        val = rc(0) 'ici tu r&#233;cup&#232;res la premi&#232;re valeur uniquement

             
           
      rc.Close



Donc en d&#233;but de sub il faut que tu d&#233;clares 1 ADODC.Connection, 1
ADODC.recordset et 1 ADODC.Command, et surtout n'oublie pas de fermer
ta connection (ici, ct.Close) &#224; la fin de ta sub sinon tu auras des
probl&#232;mes d'ouverture.

shainaizz · Answer

Ok merci je vois que les avis divergent !

j'&#233;cris mon code et je vous le montre
encore merci


Shainaizz

tbbuim1 · Answer

hmm hmm...

Je bosse depuis 3 ans sous ACCESS, tous les jours, 7h par jour, et j'ai
jamais fait de recordset sauf pour acc&#233;l&#233;rer la vitesse d'affichage
dans certains formulaire, sinon &#231;a ne sert &#224; rien si tu utilise les
tables ACCESS. Tu en as besoin pour te connecter &#224; d'autre type de
tables du genre SQLServer, Oracle ou MySQL, d'accord, l&#224; tu fais ce que
t'as dit. Mais avec une table access c'est inutile!!! Je suis formel,
sinon, tous les programmes que j'ai fait depuis 3 ans marchent par
l'intervention du st esprit...



Shainaizz>



Ca d&#233;pend ce que tu as comme r&#233;sultat, ta fonction a pour but, d'afficher le r&#233;sultat de la requ&#234;te, ok, mais sous quelle forme.

Est-ce que c'est une valeur pr&#233;cise?

Est-ce que c'est un ensemble de valeur sous forme de table?

Ta requ&#234;te est-elle &#233;crite en code, ou est-elle cr&#233;&#233; sous ACCESS en tant que rq?



C'est important de le savoir!

De plus, tu ne peux pas dire fonction = r&#233;sultat rq...

Par contre tu peux dire

Public sub affiche()

    docmd.openQuery "rq_bidon"

End sub



Essayes les commandes que j'&#233;cris, tu verras laquelle te convient.

Docmd.opnequery affiche le r&#233;sultat de la requ&#234;te sous forme de tableau.

Si ya bcp de champ et beaucoup de ligne concern&#233;es par le r&#233;sultat.



En revanche, si ton r&#233;sultat est unique, comme la somme d'un tout,
comme je te l'ai dit plus haut, l&#224; tu peux &#233;videmment l'affecter &#224; une
fonction. qui prendra une seule valeur. dans l'autre cas, ce n'est pas
possible.

Mais dans ce cas, tu dois utiliser, soit la fonction DSum pour avoir
directement la somme, soit la fonction DCount, si tu veux compter le
nombre d'&#233;l&#233;ment, soit la fonciton Dlookup, si tu veux r&#233;cup&#233;rer une
valeur pr&#233;cise dans une fonction de ton cru. Et l&#224; tu pourras &#233;crire:

Fonction = dlookup("Somme","rq_somme")



Voil&#224;. et je ne vois pas ou Omsylv a &#233;t&#233; p&#233;cher l'info que ACCESS n'est
pas reli&#233; &#224; ACCESS lol... Sinon &#224; quoi servirait ACCESS, juste &#224; faire
des tables? je ne pense pas, tu peux toujours faire des recordset,
certes, mais ce n'est pas du tout, OBLIGATOIRE, pourquoi faire
compliqu&#233; quand ACCESS GERE TOUT POUR NOUS! Quand tu as compris le truc
et la FORMIDABLE liaison qu'ACCESS a avec les bases, du dit adieu &#224; ces
maudits recordset! 
TBBUIM

shainaizz · Answer

Merci beaucoup TBBUIM !!!
Je commenc&#233; vraiment a paniqu&#233; parce que le record set &#231;a me fait peur !!

pour revenir &#224; ma fonction 
j explique
elle doit ex&#233;cuter une requ&#234;te que je cr&#233;e en code dans une variable
et la valeur qu'elle doit retourner c'est le r&#233;sultat de ma requ&#234;te
 ce r&#233;sultat c'est un seul num&#233;ro 
ce num&#233;ro d&#233;pend de la valeur d'une de mon contr&#244;le (choisit par l'utilisateur)  j'ai donc mis cette variable en param&#232;tre

plus pr&#233;cis&#233;ment
je vais ensuite me servir de cette fonction pour enregistrer ce num&#233;ro dans le champ d'une table sur une ligne pr&#233;cise

je vais tenter d'&#233;crire le code

voila  encore merci


Shainaizz

shainaizz · Answer

ok je suis vraiment nulle  !!

Public Function Classeur(LettreCl As String) As Integer
voila ma requete :
Dim sql As String
sql = "SELECT CL.CodCl FROM CL WHERE (((CL.LibCl)='" & LettreCl & " '));"

je l'execute :
DoCmd.RUN SQL sql

et la normalemen je devrais entrer un code qui va retourner le resultat (un nombre) de ma requete mais je bloque

End Function


Shainaizz

tbbuim1 · Answer

C'est mieux de cr&#233;er ta requ&#234;te avec l'assitant. 

C'est plus facile &#224; g&#233;rer par la suite.

Pour mettre une zone de texte ou de liste choisi par l'utilisateur en
crit&#232;re; il faut tout simplement &#233;crire cela dans la zone crit&#232;re de ta
requ&#234;te:

[Forms]!NomDuForm.NomDuControl

C'est simple, tu cr&#233;es une requ&#234;te, tu choisis la table d'ou vont &#234;tre
tir&#233; les donn&#233;es, tu clic sur les champs que tu veux voir affich&#233;s, ou
qui vont te servir &#224; avoir un r&#233;sultat, par exemple, ton champ num&#233;ro
et le champ du crit&#232;re. Et ensuite, de mettre dans crit&#232;re, le nom du
control que tu veux comparer.

Tu sauves cette requ&#234;te (si tu veux voir le r&#233;sultat directement
pendant que tu l'as cr&#233;e, tu dois avoir le formulaire, d'o&#249; vient le
control pris en crit&#232;re, ouvert)

Une fois que ta requ&#234;te est sauv&#233; et que tu l'as appel&#233; disons rq_first

Et de l&#224; tu peux affecter &#224; ta fonction le r&#233;sultat de ta rq

en faisant fonction = dlookup("NomDuChamp","rq_first")



Tu peux &#233;galement mettre directement le crit&#232;re dans un dlookup

Dlookup("NomduChamp","NomTableOuRequ&#234;te","Num&#233;ro = [forms]!NomduForm.NomDuControl")

Bref, ya un tas de possibilit&#233;, tout d&#233;pend de ce que tu as et veux faire exactement.

Regarde l'aide sur ces fonctions, ya pas mal d'exemples et d'explications.
TBBUIM

tbbuim1 · Answer

Donc l&#224;, tu peux &#233;crire:



Public Function Classeur(LettreCl As String) As Integer

   Classeur Dlookup("CodCL","CL","LibCl '" & LettreCL & "'")
End Function



Attention, si ton libell&#233; peut contenir des apostrophes, tu dois &#233;crire

   Classeur Dlookup("CodCL","CL","LibCl """ & LettreCL & """)



Tu peux aussi &#233;crire, si ya pas d'apostrophes

   Classeur Dlookup("CodCL","CL","LibCl " & LettreCL)



Mais cette &#233;criture est plus adapt&#233; pour la comparaison entre nombre.

Si la r&#233;ponse te convient, n'oublies de cliquer sur "r&#233;ponse accept&#233;e"

TBBUIM

shainaizz · Answer

OK une derni&#232;re chose apr&#232;s j'accepte ta r&#233;ponse ! 
 tu peux jeter un coup d'oeuil stp !

Public Function Classeur()


Classeur = DLookup("CodClasseur", "CLASSEUR", "LibClasseur=" & Me.LibFamille)


End Function


Public Sub BOUTON_Click()


Dim A  As Integer
Dim SQS As String


j'ai une erreur a ce niveau l&#224;
A = Classeur()


SQS = "insert into ('" & A & "') Select MEDIA.CodClasseur From MEDIA where (((MEDIA.CodMedia)='" & Me.CodMedia & "'));"


DoCmd.RunSQL SQS


End Sub


Shainaizz

shainaizz · Answer

j'ai oublier quelque chose MERCI   


Shainaizz

shainaizz · Answer

Ok merci
j'ai modifi&#233;  ma requ&#234;te insert into
 mais toujours le m&#234;me message d'erreur 
"impossible de trouver le champ "forms" auquel il est fait r&#233;f&#233;rence dans votre fonction"
l'erreur est au niveau du A=
mon A est la variable qui stocke la valeur retourner par ma fonction 
insert to me permet d'ins&#233;rer la valeur contenue par A dans un champ d'une de mes tables

En faite mon formulaire est un formulaire de saisie et le cod classeur fait parti des champs &#224; saisir mes je l'ai cr&#233;e comme un champ ind&#233;pendant du coup je suis oblig&#233; moi-m&#234;me (avec du code) de l'enregistrer dans ma table
je me demande si l'erreur ne vient pas du fait que la table ou je veux enregistrer ma valeur contient d'autres champs qui sont obligatoire a la saisie (ce sont des cl&#233;s &#233;trang&#232;res)  
a vrai dire je suis un peu perdu et il me reste plus beaucoup de temps pour tout finir ! 

voila mon code

Public Function Classeur(LettreCl As String) As Integer


Classeur = DLookup("CodClasseur", "CLASSEUR", "LibClasseur='" & LettreCl & "'")
MsgBox = Classeur()

End Function



Public Sub BOUTON_Click()
Dim A As Integer
Dim SQS As String


A = Classeur([Me.CodClasseur.Value])


SQS = "Insert Into Table Media (CodClasseur) values (" & A & ");"


DoCmd.RunSQL SQS


End Sub


Shainaizz

shainaizz · Answer

J&#146;ai aussi essay&#233; d'ex&#233;cuter ma fonction dans la fen&#234;tre d'ex&#233;cution il me dit qu'il y a 
une erreur de compilation 
sub ou fonction non d&#233;finie

voila ce que j'ai tap&#233; dans la fen&#234;tre 
? Classeur(b)

Shainaizz

tbbuim1 · Answer

_Il faut &#233;crire Msgbox Classeur() et pas Msgbox = Classeur()



_Sous Access, le .value est inutile car par d&#233;faut.



_N'&#233;cris pas entre cochets Me.CodClasseur, les crochets ne sont utiles
que si tu as un nom qui contient des espaces genre Me.[Code Classeur]
ici c'est inutile et mal plac&#233; de surcro&#238;t. Car le Me. ne doit pas &#234;tre
entre crochets.



_Tu dois faire le Msgbox dans le bouton_click pour voir si tu as bien la bonne valeur au moment ou tu clic sur le bouton.



_A quoi &#231;a sert de faire un INSERT d'uniquement cette valeur?

Si en plus tu as des valeurs obligatoires, &#231;a ne marchera pas, tu auras un message d'erreur. c'est sur.



_Tu devrais rassembler toutes les valeurs n&#233;cessaires pour faire ton
insert et ensuite lancer la commande. Pour le moment v&#233;rifie si ton
Msgbox renvoi bien la valeur d&#233;sir&#233;e.


TBBUIM

shainaizz · Answer

Ok merci
j'ai bien fait tous ce que tu m'as dit et la valeur dans le message box est la bonne !!!!!!!!!!!!!!!!!
maintenant mon message d'erreur est le suivant
erreur de syntaxe dans l'instruction insert to

il bloque ici :
DoCmd.RunSQL SQS

je vais modifier ma syntaxe et voir ce que sa donne


Shainaizz

shainaizz · Answer

c'est bon j'ai rectifi&#233; mon erreur
j'ai cr&#233;e ma requ&#234;te avec access et je l'ex&#233;cute avec la commande DoCmd.OpenQuery "enregistrement"

j'ai &#233;galement modifi&#233; la requ&#234;te insert to pour quel enregistre tous les champs de mes tables
tous marche sauf au moment d'enregistrer il me dit qu&#146;access a attribu&#233; la valeur null a un champ a la suite de conversion type

j'ai &#233;galement stock&#233; la valeur retourn&#233;e par ma fonction dans un text box invisible pour faciliter ma requ&#234;te

voili voilou ! on dirait bien que je vais finir par y arriver


Shainaizz

tbbuim1 · Answer

Toujours pas de r&#233;ponse accept&#233;e... 
TBBUIM

Fonction vba pour executer requete sql

18 réponses

Discussions similaires