Bonsoir à tous et particulièrement à mes copains 'ADO'
Bon je sèche un peu car je cherche la syntax pour utiliser l'Operator LIKE en sens opposé, c'est à dire NE Contient PAS dans une requête ADO...
Voici un extrait du Code :
Si quelqu'un connaissait la Syntax, ça me ferait gagner un certain temps, car avec mon collègue on a cherché sans avoir trouvé encore...
Bonne Soirée et merci d'avance à tous
[ol]@+Thierry[/ol]
Bon je sèche un peu car je cherche la syntax pour utiliser l'Operator LIKE en sens opposé, c'est à dire NE Contient PAS dans une requête ADO...
Voici un extrait du Code :
Option Explicit
Option Compare Text
Sub ImportDataBaseTBConso()
Dim Source As ADODB.Connection
Dim ADOQuery As ADODB.Recordset
Dim SQLString As String, SQLString2 As String, SQLString3 As String
Dim SQLString4 As String, SQLString5 As String, SQLString6 As String
Dim Codof As String, NamOf As String
Dim Maplage As Range
Dim i As Integer
Set Source = New ADODB.Connection
With Source
.Provider = 'Microsoft.jet.OLEDB.4.0;'
.Properties('Jet OLEDBatabase Password') = Passworld
.Open PathDBase & 'Access_DB.mdb'
End With
SQLString = 'SELECT LILEDG,LICLOC,Sum(LIMLOC),Sum(LIMDOL),LENLED,LICTYP,Sum(LIMCUR) FROM Running_Exps'
SQLString3 = 'LILEDG BETWEEN ''23000'' AND ''23999'''
SQLString4 = 'LIOFFI='
SQLString5 = 'GROUP BY LILEDG,LICLOC,LENLED,LICTYP,LICODE,LICANS,LICURR'
'La question est de pouvoir demander NE CONTIENT PAS '*R'
SQLString6 = 'LILETR LIKE '%*R%''
'ne fonctionne pas !!!
'SQLString6 = 'LILETR LIKE ''[?R#-?R#]'''
'SQLString6 = 'LILETR NOT LIKE '*R#''
'REQUETE TEST...
Set ADOQuery = Source.Execute(SQLString & ' WHERE ' & SQLString6 & ' ' & SQLString5)
'...etc le rest avec le RecordSet...
Si quelqu'un connaissait la Syntax, ça me ferait gagner un certain temps, car avec mon collègue on a cherché sans avoir trouvé encore...
Bonne Soirée et merci d'avance à tous
[ol]@+Thierry[/ol]