Caractère - dans une requête SQL

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J’exécute une requête SQL sur un classeur fermé avec la formule suivante:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
    Dim SheetName2 As String, texte_SQL2 As String
    Dim Cn2 As ADODB.Connection
    Dim Rst2 As ADODB.Recordset
    'MsgBox NoemieNumber
 
    '--- Nom de la feuille dans le classeur fermé ---
    SheetName2 = "Sorties stock et magasin"
    'MsgBox SheetName2
 
    '--- Connexion ---
    '--- Lorsque HDR=No, cela signifie que la première ligne du fichier Excel n'est pas le nom des champs ---
    '--- Il faut mettre [F1] par exemple pour la colonne A, [F2] pour la colonne B, etc... ---
    Set Cn2 = New ADODB.Connection
    With Cn2
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
        & InformationsFile & ";Extended Properties=""Excel 12.0;HDR=No;"""
        .Open
    End With
 
    '--- Définition la requête ---
    '--- /!\ Attention à ne pas oublier le symbole $ après le nom de la feuille. ---
    texte_SQL2 = "SELECT * FROM [" & SheetName2 & "$] WHERE [F1] = '" & NoemieNumber & "';"
    MsgBox texte_SQL2
    Set Rst2 = New ADODB.Recordset
    Set Rst2 = Cn2.Execute(texte_SQL2)

.

J'ai une erreur lors de l’exécution, je n'arrive pas à voir d'où vient l'erreur. Je pensais que cela provenait du nom qui contient un caractère spécial ("-"), mais j'ai renommé l'onglet en toto et j'ai le même problème...

Pièce jointe 550138

Merci par avance pour vos retours!!

28/03/2020, 10h09
Thumb down

Bonjour,
Je pense que l'expression du critaire ça veut dire dans la close where!
Si [F1] est numérique pas de ' pour encadrer le texte !
WHERE [F1] = '" & NoemieNumber & "';
30/03/2020, 11h59
Supernatural

Bonjour,

C'est bien ça, mais du coup si j'intègre chiffre et lettre j'ai une erreur... je souhaite la bonne méthode pour inclure chiffre et lettres si cela est possible.

Code:

texte_SQL = "SELECT [F3], [F11], [F12], [F13], [F14] FROM [" & SheetName & "$] WHERE [F1] = " & NoemieNumber & ";"

Merci par avance.
03/04/2020, 14h31
Thumb down

bonjour,
il faut oublier que tu travail sur l'onglet d'un fichier Excel mais sur une table d'une base de données!
c'est ADO qui fixe par apprentissage!

si dans les 8 premières ligne tu as majoritairement des dates alors c'est un champ date et toutes autre format passera à la valeur NULL!

si dans les 8 premières ligne tu as majoritairement du texte {moins de 255 caractères} alors c'est un champ texte et toutes autre format passera à la valeur NULL!

si dans les 8 premières ligne tu as majoritairement des du texte {255 caractères ou plus} alors c'est un champ Mémo et toutes autre format passera à la valeur NULL!

si dans les 8 premières ligne tu as majoritairement des integer alors c'est un champ numérique sen virgule et toutes autre format passera à la valeur NULL!

si dans les 8 premières ligne tu as majoritairement des double alors c'est un champ numérique avec virgule et toutes autre format passera à la valeur NULL!