Discussion :

[jojo86]

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,

[Jean-Philippe André]

Salut,

sans code exemple, je dirais 42...



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

[jojo86]

Bonjour,
Voici le code (simplifié):

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
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

[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

[jojo86]

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...