VBA SQL Replace fonction non définie

Version imprimable

18/04/2018, 13h46
jojo86

VBA SQL Replace fonction non définie

Bonjour,
Dans beaucoup de code j'utilise le SQL pour lire des bases de données access.
Je me connecte avec Microsoft.ACE.OLEDB.12.0 sur des bases access ou sur des fichiers XLS.

Depuis quelques temps, je constate des régressions sur la fonction replace lorsqu'elle est dans une requete.

Je n'ai jamais eu de problème, j'ai des fichiers qui tournent depuis 5 ans et depuis quelques temps, les utilisateurs me remonte ce problème sur les fichier.

Savez-vous quelle est la référence qui peut poser problème? j'ai trouver pas mal de choses sur internet, mais beaucoup disent que ADODB ne permet pas d'interpréter les fonction VBA dans une requete SQL. Or les fichiers fonctionnaient bien jusqu'à maintenant.

Avez-vous une idée de la cause?

Merci d'avance,
18/04/2018, 16h20
Jean-Philippe André

Salut,

sans code exemple, je dirais 42...

:cristal:

Merci de nous donner un peu plus d'informations afin que nous puissions te venir en aide :)

Bonjour,
Voici le code (simplifié):

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
26
 
Public CnAccess As New ADODB.Connection
Public rstAccess As New ADODB.RecordSet
 
Sub connexionbaseAccess(Fichier As String)
LastTable = vbNullString
Set CnAccess = New ADODB.Connection
    With CnAccess
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & Fichier
        .Open
    End With
    Set RstAccess = New ADODB.RecordSet
End Sub
 
 
Sub Lancer()
Dim requete as string
Call connexionbaseaccess("Chemin \ vers \ Mon \ Fichier \ Access.accdb")
 
requete = "Insert Into TStock(`PN`, `Designation`, `Quantité`, `Prix`, `Planif`) Select * from (Select Distinct IIf(IsNull(Replace(Trim(`Article`), ''+chr(39)+'', '')) Or Len(Replace(Trim(`Article`), ''+chr(39)+'', '')) = 0, Null, Replace(Trim(`Article`), ''+chr(39)+'', '')) as [PN], [Description] as [Designation], [Stock] as [Quantité], [Prix revient] as [Prix], [_Code] as [CodePlanifi] from [Feuil1$A3:L300000] In 'Chemin\vers\Mon\Fichier\A\Importer.xlsx'[Excel 12.0;HDR=YES;] Where `Magasin` = '11110' AND `Emplacement` = 'Disponible')"
 
CnAccess.Execute requete
 
Call deconnexionbaseaccess
End Sub

19/04/2018, 16h06
Jean-Philippe André

Salut,

les champs doivent être encadrés par des crochets ou sinon rester directement, mais pas de ` qui se balladent :)

Enlève tous les ` qui te polluent ta requete et poste nous le nouveau code stp :)
20/04/2018, 08h19
jojo86

Citation:

Envoyé par Jean-Philippe André

Salut,

les champs doivent être encadrés par des crochets ou sinon rester directement, mais pas de ` qui se balladent :)

Enlève tous les ` qui te polluent ta requete et poste nous le nouveau code stp :)

Bonjour,
Ça revient sensiblement au même les crochets ou les `.
C'est pas ça qui va faire avancer le schmilblick. Je pense qu'il y a des configurations de Windows qui diffèrent car sur la majorité des postes le code fonctionne et sur 2 postes, le code plante sur le replace...