Discussion :

[batseb]

Bonjour,

J'ai une macro Excel qui interagit avec une base Access.
J'essaie d'executer une requête action.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Sub Executer_Requete()
    Dim oCmd As ADODB.Command
 
     ' Create the Command object.
    Set oCmd = New ADODB.Command
    oCmd.ActiveConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Params.CheminBaseAccess & ";Jet OLEDB:Database Password=xxxxx;"
    oCmd.CommandText = "DELETE MaTable.* FROM MaTable WHERE (MaTable.Des_Veh Like '*TX*') OR (MaTable.Des_Veh Like '*TY*')"
    oCmd.CommandType = adCmdText
 
    oCmd.Execute
 
    Set oCmd = Nothing
End Sub

Pas de message d'erreur mais aucune ligne effacée.
Si j'execute la requete identique directement dans Access, ca supprime bien 176 lignes.

Si j'enlève la condition WHERE, le contenu de la table s'efface bien.

Avez vous des pistes de réflexion?

Merci,
batseb45

EDIT : A priori, c'est le Like qu'il n'aime pas, j'ai utilisé INSTR et là ca marche...

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
WHERE INSTR(1,ucase(MaTable.Des_Veh),'TX')>0

Comment faire fonctionner le Like?

[Malick]

Peut-être une réponse à ta question dans ce tutoriel de loufab

L'opérateur LIKE

Cordialement,
Malick

[tatiak]

Bonjour à tous

En VBA, il y a des variantes par rapport au Sql "classique".
Le Sql-VBA n'accepte pas le caractère joker *, il faut le remplacer par %

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

WHERE (MaTable.Des_Veh Like '%TX%')

Pierre