Bonjour,

j'aimerais faire une requete SQL sur une base de données afin de savoir si la référence que je souhaite implémenter dans la base existe déjà ou non. 

Ma requête fonctionne bien sur SQL-Server mais je n'arrive pas a la faire fonctionner dans l'éditeur VBA.. 

Merci d'avance de votre aide. 

Private Sub CommandButton1_Click()

    Dim ref As String

    Dim derniereligne As String, adressetrouvee As String, famille As String, client As String, code_affaire As String, chantier As String, recap As String

    Dim trouve As Range, plage As Range, strexiste As String, rst As ADODB.Recordset, wChaineConnection As String, Cn2SAGE As ADODB.Connection

    ref = ref_box.Text

    If Len(ref) <> 12 Then

        MsgBox (" le nombre de caractere est incorrect")

        ref_box.SetFocus

        Exit Sub

    End If

    Set plage = Sheets("Demande de dev").Columns(1)

    Set trouve = plage.Cells.Find(what:=ref, lookat:=xlWhole, LookIn:=xlValues)

    If trouve Is Nothing Then

        adressetrouvee = ref & " n'existe pas"

    Else

        adressetrouvee = trouve.Row

    End If

    Set Cn2SAGE = New ADODB.Connection

   wChaineConnection = "Provider=SQLOLEDB.1;Password=XXXXXXX;Persist Security Info=True;User ID=sa;Initial Catalog=XXXXXXXX;Data Source=XXXXXX"

    Cn2SAGE.Open wChaineConnection

    strexiste = "IF EXISTS (SELECT * FROM [XXXXXXXX].[dbo].[F_ARTICLE] WHERE AR_REF = '" & ref & "') "

    Cn2SAGE.Execute strexiste

    'Récupération des informations

    designation = Cells(adressetrouvee, 3).value

    famille = Cells(adressetrouvee, 12).value

    client = Cells(adressetrouvee, 8).value

    code_affaire = Cells(adressetrouvee, 11).value

    chantier = Cells(adressetrouvee, 10).value

    'Fermeture de la connexion

    CnSAGE.Close

End Sub

Bonjour,

Le message qui suit est une réponse automatique activée par un membre de l'équipe. Les réponses automatiques leur permettent d'éviter d'avoir à répéter de nombreuses fois la même chose, ce qui leur fait gagner du temps et leur permet de s'occuper des sujets qui méritent plus d'attention.
Nous sommes néanmoins ouverts et si vous avez une question ou une remarque, n'hésitez pas à contacter la personne en question par Message Privé.
Pour plus d'informations, nous vous invitons à lire les règles générales du forum

Merci de colorer votre code à l'aide du bouton Code

Les forums d'Openclassrooms disposent d'une fonctionnalité permettant de colorer et mettre en forme les codes source afin de les rendre plus lisibles et faciles à manipuler par les intervenants. Pour cela, il faut utiliser le bouton de l'éditeur, choisir un des langages proposés et coller votre code dans la zone prévue. Si vous utilisez l'éditeur de messages en mode Markdown, il faut utiliser les balises <pre class="brush: vb;">Votre code ici</pre>.

Merci de modifier votre message d'origine en fonction.

Liens conseillés

• Charte de bonne conduite
• Règles générales du forum

Bonjour,

Il faudrait que tu sois plus précis sur ce que ta macro est censée faire, et sur ce qu'elle fait actuellement, pour qu'on puisse mieux t'aider.

En attendant, voici ce que je peux en dire :

    'Fermeture de la connexion

    CnSAGE.Close

Petite erreur d'étourderie, tu as déclaré cette variable sous le nom Cn2SAGE, donc cette ligne va sans doute lever une erreur.

Cn2SAGE.Execute strexiste

Cette ligne devrait lancer la requête, mais ensuite, rien n'est fait avec les résultats. Il manque sans doute quelque chose.

    'Récupération des informations

    designation = Cells(adressetrouvee, 3).value

    famille = Cells(adressetrouvee, 12).value

    client = Cells(adressetrouvee, 8).value

    code_affaire = Cells(adressetrouvee, 11).value

    chantier = Cells(adressetrouvee, 10).value

Ces lignes mettent les valeurs de certaines cellules dans des variables, mais ces variables ne sont pas utilisées par la suite. Là aussi, il doit manquer quelque chose.

-
Edité par Sarkas 22 juillet 2021 à 19:09:11

Bonjour, 

merci pour ta réponse, 

oui j'y vais pas à pas c'est pour ca que la fin du code n'est qu'une ébauche. 

Effectivement j'ai corrigé la fermeture de la connexion ( j'ai copié un autre code déjà fait et changé les connexions ) 

Mon code est censé vérifier que la variable ref est déjà présente ou non dans ma base de données qui est un ERP. 

Mais j'ai une erreur d'éxécution sur la ligne suivante : Cn2SAGE.Execute strexiste

Je n'arrive absolument pas a comprendre d'ou cela vient car la ligne fonctionne quand je l'execute sur la même base de données sur SQL server :(  

Message d'erreur : Erreur d'execution '-2147217900(80040e14)': Syntaxe incorrecte vers ')'

-
Edité par vincentbottier41 23 juillet 2021 à 7:53:15

Le message d'erreur indique une erreur de syntaxe dans strexiste. Assure-toi que c'est bien le contenu de cette variable que tu testes sur SQL server. Sinon, essaie de lancer une requête plus simple (sans ref, sans IF EXISTS), le résultat pourra donner une piste sur l'origine du problème.

"if exists" doit attendre une action à faire si la condition est vraie (et éventuellement une autre si la condition est fausse)

quand tu dit que ta requête fonctionne sur sql server, c'est la requête entière ou juste le select ?

tu n'as peut-être besoin que du EXIST. mais si tu veux avoir le résultat de la requête, il faut que tu le récupères dans un recordset.

Mais j'ai du mal à comprendre ce que tu veux faire dans ton code:

Après avoir vérifier que ref a 12 caractères, tu cherches si une cellule de la colonne 1 contient déjà cette valeur. Si non, tu mets dans ta variable que la référence n'est pas trouvée; et si oui, tu mets le numéro de ligne dans ta variable adressetrouve.

Tu exécutes une requête dont tu te moques du résultat.

Ensuite, tu initialises tes variables à partir des cellules dont la ligne est adressetrouve (qui peut valoir "xxxxxxxxxxxx n'existe pas"; donc une bonne source d'erreur).

Le plus simple pour tester si ta valeur est dans la base est de faire un simple select, et de voir si ça te retourne au moins un résultat.

strexiste = "SELECT * FROM [XXXXXXXX].[dbo].[F_ARTICLE] WHERE AR_REF = '" & ref & "' "

Set rst = Cn2SAGE.Execute(strexiste)
if rst.count >0 then
    ' ref existe dans la base
else
    ' ref n'existe pas dans la base
end if

En fait, 

je prend une référence tapée par un utilisateur, si j'ai le bon nombre de caractere je continue. 

Ensuite, je veux vérifier si elle existe dans la base de données, si oui je ne fais rien en dehors peut etre d'un messagebox, si elle n'existe pas je l'insère dedans.

Le select fonctionne sur la même référence.

J'essaierais lundi avec uniquement un exists mais j'avoue qu'en SQL, j'étais pas premier de ma classe :D 

Merci en tout cas de vos retours, et je vous tiens au courant lundi. Vous souhaitant un bon week end :)  

mais là, ton code tel que tu nous l'as mis, ne sort que si le nombre de caractères n'est pas bon, sinon tu fais tout le reste.

Oui car je me suis arrété a la ligne de commande if exists qui ne fonctionne pas. Sinon j'aurais continué en fonction du retour de celle ci mais je n'arrive pas a la faire fonctionner :( 

Y'a t il un probleme de compatibilité avec cette commande et le VBA ?

la question a te poser c'est que fait IF EXISTS(..) : c'est une opération de test (SQL) sur l'existence de quelquechose

IF {quelque chose} THEN {je fais ça} [ELSE {je fais autre chose}]

Toi, tu veux savoir (dans VBA) si on a {quelque chose}, il faut donc tester le retour de la requête {quelque chose}

Donc ta requête doit être ici soit EXISTS(...) et tu testes si vrai ou faux ou la requête est celle incluse dans EXISTS, et tu testes si elle renvoie quelque chose.