Erreur syntaxe SQL

P

poulpor78

Guest

• 23 Décembre 2013

• #2

Re : Erreur syntaxe SQL

Bonjour,

APS.value est sous quel format ? Date, texte, numérique ?

Poulpor

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 23 Décembre 2013

• #3

Re : Erreur syntaxe SQL

Bonjour,
peut-être comme cela :

Code:

Cible = "SELECT DISTINCT APS1,Sexe ,APS2 FROM [BaseEleve$] WHERE APS1 = '" & APS.Value & "' OR APS2 = '" & APS.Value & "';"

A+

 

Vote positif 0 Vote négatif

P

poulpor78

Guest

• 23 Décembre 2013

• #4

Re : Erreur syntaxe SQL

Re,

Le mieux est de déboguer soit-même. Je crois bien que c'est du SQL sous Access (le ";" de la fin m'y fait penser).

Dans ton vba, juste après l'instruction "Cible= ...", place :

Debug.Print Cible
Stop

Tu vas :
- exécuter la procédure qui va s'arrêter sur 'stop'
- stopper le code (réinitialiser la macro), copier-coller le rendu de la fenêtre d'exécution dans Excel
- ouvrir Access, créer un requête vide qu'on passe en mode sql, coller puis exécuter la requête

Le message d'erreur d'Access sera certainement plus explicite et on pourra essayer de corriger directement.


Poulpor

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 23 Décembre 2013

• #5

Re : Erreur syntaxe SQL

Bonjour Poulpor,David84

la proposition de David84 marche très bien pour :
APS1 est du string
APS2 est du string

Par contre pour cette syntaxe j'ai un souci :

Dpt est parfois en texte parfois en byte ( poulpor)
CentreAPS1 est en texte
Cible = "SELECT DISTINCT Dpt, CentreAPS1 FROM [BaseEleve$] WHERE Dpt = '" & Dpt.Value & "' and CentreAPS1 = '" & CentreAPS1.Value & "';"
Merci à vous deux de votre aide
Carlos

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 23 Décembre 2013

• #6

Re : Erreur syntaxe SQL

Bonjour à tous

Dpt est parfois en texte parfois en byte ( poulpor)

Cliquez pour agrandir...

Faudrait peut-être transformer le Dpt dans le même type.

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 23 Décembre 2013

• #7

Re : Erreur syntaxe SQL

Bonjour MJ13
Je peux effectivement fixer le type sur byte.
Comment faire marcher alors le byte et le string sous la syntaxe suivante ?
Dpt en byte
CentreAPS1 en string
Cible = "SELECT DISTINCT Dpt, CentreAPS1 FROM [BaseEleve$] WHERE Dpt = '" & Dpt.Value & "' and CentreAPS1 = '" & CentreAPS1.Value & "';"
Merci Carlos

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 23 Décembre 2013

• #8

Re : Erreur syntaxe SQL

carlos à dit:

Bonjour Poulpor,David84

la proposition de David84 marche très bien pour :
APS1 est du string
APS2 est du string

Par contre pour cette syntaxe j'ai un souci :

Dpt est parfois en texte parfois en byte ( poulpor)
CentreAPS1 est en texte
Cible = "SELECT DISTINCT Dpt, CentreAPS1 FROM [BaseEleve$] WHERE Dpt = '" & Dpt.Value & "' and CentreAPS1 = '" & CentreAPS1.Value & "';"
Merci à vous deux de votre aide
Carlos

Cliquez pour agrandir...

Pourquoi ne pas convertir Dpt en texte ?

Code:

Cible = "SELECT DISTINCT Dpt, CentreAPS1 FROM [BaseEleve$] WHERE Dpt = '" & CStr(Dpt.Value) & "' and CentreAPS1 = '" & CentreAPS1.Value & "';"

Tester également en utilisant la propriété Text à la place de Value

Code:

Dpt.Text ou CStr(Dpt.Text)

A+

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 23 Décembre 2013

• #9

Re : Erreur syntaxe SQL

Re

Merci pour ta proposition
J'ai testé les 3 formule s de type pour le DPt.Rien à faire .
Je vais retravaillé dessus pour comprendre un peu mieux comment fonctionnent les SQL.
Merci Davis 84, je te recontacte des que j'ai mieux compris .

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 23 Décembre 2013

• #10

Re : Erreur syntaxe SQL

Bonsoir,

POur connaître les noms et les types des champs:

Code:

Sub LectureAccess()
  'Microsoft ActivexDataObject 2.8 Library dans outils/référence
  repertoire = ThisWorkbook.Path & "\"
  Dim rs As ADODB.Recordset
  Set cnn = New ADODB.Connection
  cnn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & repertoire & "Access2000.mdb"
  Set rs = cnn.Execute("SELECT * FROM Client")
  For i = 0 To rs.Fields.Count - 1
    Cells(i + 2, 1) = rs(i).Name
    Cells(i + 2, 2) = rs(i).Type
  Next i
  rs.Close
  cnn.Close
  Set rs = Nothing
  Set cnn = Nothing
End Sub

JB

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 24 Décembre 2013

• #11

Re : Erreur syntaxe SQL

Bonjour à tous
Merci Poulpor78 pour ta réponse.

J'ai fait le choix de mettre tout mes champs de ma base de donnée excel en type string.
Ce sera plus facile à gérer je pense.

Je suis face à une nouvelle difficulté .
Une première combobox qui s'appelle Dpt récupère tous les départements du champs DPt(string).

Cible = "SELECT DISTINCT Dpt,CentreAPS1,CentreAPS2 FROM [BaseEleve$] WHERE Dpt = '" & Dpt.Value & "';"

En même temps il distribue dans une second combobox ( Centre) tous les noms des centres qui sont dans le champs CentreAPS1.

Centre.AddItem Rs.Fields(1).Value 'Ca marche bien

J'aimerais qu'il rajoute aussi dans le combobox Centre ,les centres qui sont aussi en CentreAPS2

Comment faire ?
Merci et bonne journée
Carlos.

 

Vote positif 0 Vote négatif