Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs > maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs > maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs > maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Re-bonjour à tous,
J'ai posté trop vite,
Apparemment, pour les ADOCD, il faut un % et pour ADODB, il faut une étoile
pour les filtres.
@+
Guy FALESSE
"Guy FALESSE" a écrit dans le message de news:Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Re-bonjour à tous,
J'ai posté trop vite,
Apparemment, pour les ADOCD, il faut un % et pour ADODB, il faut une étoile
pour les filtres.
@+
Guy FALESSE
"Guy FALESSE" <guy.falesse@skynet.be> a écrit dans le message de news:
u0KsGZWWFHA.580@TK2MSFTNGP15.phx.gbl...
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Re-bonjour à tous,
J'ai posté trop vite,
Apparemment, pour les ADOCD, il faut un % et pour ADODB, il faut une étoile
pour les filtres.
@+
Guy FALESSE
"Guy FALESSE" a écrit dans le message de news:Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs > maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs > maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs > maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour Guy,
Voici la partie requete avec 'emplacement de l'*:
Dim Q As String
Q = "'" & Text3 & "*'"
SQL = " select * from client where" & champrecherche & "like " & Q &
"order
by nom1,ville"
a+
Jean-Pol DAVID
mailto:
www.peintures-david.com
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"Guy FALESSE" a écrit dans le message de news:Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs >> maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '"
&
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour Guy,
Voici la partie requete avec 'emplacement de l'*:
Dim Q As String
Q = "'" & Text3 & "*'"
SQL = " select * from client where" & champrecherche & "like " & Q &
"order
by nom1,ville"
a+
Jean-Pol DAVID
mailto:david.sa@skynet.be
www.peintures-david.com
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"Guy FALESSE" <guy.falesse@skynet.be> a écrit dans le message de news:
u0KsGZWWFHA.580@TK2MSFTNGP15.phx.gbl...
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs >> maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '"
&
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour Guy,
Voici la partie requete avec 'emplacement de l'*:
Dim Q As String
Q = "'" & Text3 & "*'"
SQL = " select * from client where" & champrecherche & "like " & Q &
"order
by nom1,ville"
a+
Jean-Pol DAVID
mailto:
www.peintures-david.com
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"Guy FALESSE" a écrit dans le message de news:Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs >> maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '"
&
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour Guy,
Voici 1 copier/coller de mon pgramme :
Set rs = db.OpenRecordset(SQL, dbOpenSnapshot)
Data1.RecordSource = SQL
Data1.Refresh
a+
Jean-Pol DAVID
mailto:
www.peintures-david.com
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"Guy FALESSE" a écrit dans le message de news:Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs >> maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '"
&
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour Guy,
Voici 1 copier/coller de mon pgramme :
Set rs = db.OpenRecordset(SQL, dbOpenSnapshot)
Data1.RecordSource = SQL
Data1.Refresh
a+
Jean-Pol DAVID
mailto:david.sa@skynet.be
www.peintures-david.com
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"Guy FALESSE" <guy.falesse@skynet.be> a écrit dans le message de news:
u0KsGZWWFHA.580@TK2MSFTNGP15.phx.gbl...
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs >> maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '"
&
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour Guy,
Voici 1 copier/coller de mon pgramme :
Set rs = db.OpenRecordset(SQL, dbOpenSnapshot)
Data1.RecordSource = SQL
Data1.Refresh
a+
Jean-Pol DAVID
mailto:
www.peintures-david.com
ICQ 28394733
--
Quis ? Quid ? Ubi ? Quibus auxiliis ? Cur ? Quomodo ? Quando ?
"Guy FALESSE" a écrit dans le message de news:Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs >> maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '"
&
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
re Guy,
Ce n'est pas uniquement une question % ou * mais tu extraies les 4
caractères à droite :
... WHERE right(tblCD.File_Name,4)
donc tu n'as pas besoin d'utiliser le caractère générique avec un Like
mais tu devrrais mettre :
... WHERE right(tblCD.File_Name,4)='" & critere & "'"
puisque critere =".zip"
A+
Eric
Guy FALESSE a écrit :Re-bonjour à tous,
J'ai posté trop vite,
Apparemment, pour les ADOCD, il faut un % et pour ADODB, il faut une
étoile pour les filtres.
@+
Guy FALESSE
"Guy FALESSE" a écrit dans le message de news:Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
re Guy,
Ce n'est pas uniquement une question % ou * mais tu extraies les 4
caractères à droite :
... WHERE right(tblCD.File_Name,4)
donc tu n'as pas besoin d'utiliser le caractère générique avec un Like
mais tu devrrais mettre :
... WHERE right(tblCD.File_Name,4)='" & critere & "'"
puisque critere =".zip"
A+
Eric
Guy FALESSE a écrit :
Re-bonjour à tous,
J'ai posté trop vite,
Apparemment, pour les ADOCD, il faut un % et pour ADODB, il faut une
étoile pour les filtres.
@+
Guy FALESSE
"Guy FALESSE" <guy.falesse@skynet.be> a écrit dans le message de news:
u0KsGZWWFHA.580@TK2MSFTNGP15.phx.gbl...
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
re Guy,
Ce n'est pas uniquement une question % ou * mais tu extraies les 4
caractères à droite :
... WHERE right(tblCD.File_Name,4)
donc tu n'as pas besoin d'utiliser le caractère générique avec un Like
mais tu devrrais mettre :
... WHERE right(tblCD.File_Name,4)='" & critere & "'"
puisque critere =".zip"
A+
Eric
Guy FALESSE a écrit :Re-bonjour à tous,
J'ai posté trop vite,
Apparemment, pour les ADOCD, il faut un % et pour ADODB, il faut une
étoile pour les filtres.
@+
Guy FALESSE
"Guy FALESSE" a écrit dans le message de news:Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Salut Eric,
Merci pour ta réponse.
'monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "*'"
Voilà pourtant, les 2 lignes:
La 1ère ne fonctionne pas contrairement à la seconde :-)
Comprenne qui pourra, il me semblait avoir lu quelque part que ADODC voulait
les % alors que l'autr (DAO) voulait les *, mais tu dis bien uniquement,
donc, il y aurait du vrai là-dedans :-)
@+
Guy FALESSE
"Eric" a écrit dans le message de news:
%re Guy,
Ce n'est pas uniquement une question % ou * mais tu extraies les 4
caractères à droite :
... WHERE right(tblCD.File_Name,4)
donc tu n'as pas besoin d'utiliser le caractère générique avec un Like
mais tu devrrais mettre :
... WHERE right(tblCD.File_Name,4)='" & critere & "'"
puisque critere =".zip"
A+
Eric
Guy FALESSE a écrit :Re-bonjour à tous,
J'ai posté trop vite,
Apparemment, pour les ADOCD, il faut un % et pour ADODB, il faut une
étoile pour les filtres.
@+
Guy FALESSE
"Guy FALESSE" a écrit dans le message de news:Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Salut Eric,
Merci pour ta réponse.
'monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "*'"
Voilà pourtant, les 2 lignes:
La 1ère ne fonctionne pas contrairement à la seconde :-)
Comprenne qui pourra, il me semblait avoir lu quelque part que ADODC voulait
les % alors que l'autr (DAO) voulait les *, mais tu dis bien uniquement,
donc, il y aurait du vrai là-dedans :-)
@+
Guy FALESSE
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
%238wObDXWFHA.3280@TK2MSFTNGP09.phx.gbl...
re Guy,
Ce n'est pas uniquement une question % ou * mais tu extraies les 4
caractères à droite :
... WHERE right(tblCD.File_Name,4)
donc tu n'as pas besoin d'utiliser le caractère générique avec un Like
mais tu devrrais mettre :
... WHERE right(tblCD.File_Name,4)='" & critere & "'"
puisque critere =".zip"
A+
Eric
Guy FALESSE a écrit :
Re-bonjour à tous,
J'ai posté trop vite,
Apparemment, pour les ADOCD, il faut un % et pour ADODB, il faut une
étoile pour les filtres.
@+
Guy FALESSE
"Guy FALESSE" <guy.falesse@skynet.be> a écrit dans le message de news:
u0KsGZWWFHA.580@TK2MSFTNGP15.phx.gbl...
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Salut Eric,
Merci pour ta réponse.
'monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "*'"
Voilà pourtant, les 2 lignes:
La 1ère ne fonctionne pas contrairement à la seconde :-)
Comprenne qui pourra, il me semblait avoir lu quelque part que ADODC voulait
les % alors que l'autr (DAO) voulait les *, mais tu dis bien uniquement,
donc, il y aurait du vrai là-dedans :-)
@+
Guy FALESSE
"Eric" a écrit dans le message de news:
%re Guy,
Ce n'est pas uniquement une question % ou * mais tu extraies les 4
caractères à droite :
... WHERE right(tblCD.File_Name,4)
donc tu n'as pas besoin d'utiliser le caractère générique avec un Like
mais tu devrrais mettre :
... WHERE right(tblCD.File_Name,4)='" & critere & "'"
puisque critere =".zip"
A+
Eric
Guy FALESSE a écrit :Re-bonjour à tous,
J'ai posté trop vite,
Apparemment, pour les ADOCD, il faut un % et pour ADODB, il faut une
étoile pour les filtres.
@+
Guy FALESSE
"Guy FALESSE" a écrit dans le message de news:Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par contre,
lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour Guy,
Je suis d'accord avec toi en ce qui concerne le % ou l'*.
En effet, le SQL en DAO, Moteur Jet impose le caractère générique * qui
n'est pas le caractère sandard générique normé (%).
Mais ma remarque portait, plus particulièrement, sur le fait que tu fais
WHERE right(tblCD.File_Name,4) Like '" & critere & "'"
avec critere = ".zip"
Right(tblCD.File_Name,4) ne peut que te retourner les 4 caractères
extraits par la droite de la chaine tblCD.File_Name
et tu compares ces caractères à une variable chaine de 4 caractères
donc le Like n'est pas utile.
Soit les 4 caractères extraits sont "égaux" aux 4 de critere soit non
D'où ma proposition.
Dans ton approche tu analyses les 4 caractères extraits comme devant être
égaux aux 4 de critere suivis éventuellement par n'importe quoi.
A+
Eric
Guy FALESSE a écrit :Salut Eric,
Merci pour ta réponse.
'monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '"
& critère & "*'"
Voilà pourtant, les 2 lignes:
La 1ère ne fonctionne pas contrairement à la seconde :-)
Comprenne qui pourra, il me semblait avoir lu quelque part que ADODC
voulait les % alors que l'autr (DAO) voulait les *, mais tu dis bien
uniquement, donc, il y aurait du vrai là-dedans :-)
@+
Guy FALESSE
"Eric" a écrit dans le message de news:
%re Guy,
Ce n'est pas uniquement une question % ou * mais tu extraies les 4
caractères à droite :
... WHERE right(tblCD.File_Name,4)
donc tu n'as pas besoin d'utiliser le caractère générique avec un Like
mais tu devrrais mettre :
... WHERE right(tblCD.File_Name,4)='" & critere & "'"
puisque critere =".zip"
A+
Eric
Guy FALESSE a écrit :Re-bonjour à tous,
J'ai posté trop vite,
Apparemment, pour les ADOCD, il faut un % et pour ADODB, il faut une
étoile pour les filtres.
@+
Guy FALESSE
"Guy FALESSE" a écrit dans le message de news:Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par
contre, lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne
comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '"
& critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour Guy,
Je suis d'accord avec toi en ce qui concerne le % ou l'*.
En effet, le SQL en DAO, Moteur Jet impose le caractère générique * qui
n'est pas le caractère sandard générique normé (%).
Mais ma remarque portait, plus particulièrement, sur le fait que tu fais
WHERE right(tblCD.File_Name,4) Like '" & critere & "'"
avec critere = ".zip"
Right(tblCD.File_Name,4) ne peut que te retourner les 4 caractères
extraits par la droite de la chaine tblCD.File_Name
et tu compares ces caractères à une variable chaine de 4 caractères
donc le Like n'est pas utile.
Soit les 4 caractères extraits sont "égaux" aux 4 de critere soit non
D'où ma proposition.
Dans ton approche tu analyses les 4 caractères extraits comme devant être
égaux aux 4 de critere suivis éventuellement par n'importe quoi.
A+
Eric
Guy FALESSE a écrit :
Salut Eric,
Merci pour ta réponse.
'monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '"
& critère & "*'"
Voilà pourtant, les 2 lignes:
La 1ère ne fonctionne pas contrairement à la seconde :-)
Comprenne qui pourra, il me semblait avoir lu quelque part que ADODC
voulait les % alors que l'autr (DAO) voulait les *, mais tu dis bien
uniquement, donc, il y aurait du vrai là-dedans :-)
@+
Guy FALESSE
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
%238wObDXWFHA.3280@TK2MSFTNGP09.phx.gbl...
re Guy,
Ce n'est pas uniquement une question % ou * mais tu extraies les 4
caractères à droite :
... WHERE right(tblCD.File_Name,4)
donc tu n'as pas besoin d'utiliser le caractère générique avec un Like
mais tu devrrais mettre :
... WHERE right(tblCD.File_Name,4)='" & critere & "'"
puisque critere =".zip"
A+
Eric
Guy FALESSE a écrit :
Re-bonjour à tous,
J'ai posté trop vite,
Apparemment, pour les ADOCD, il faut un % et pour ADODB, il faut une
étoile pour les filtres.
@+
Guy FALESSE
"Guy FALESSE" <guy.falesse@skynet.be> a écrit dans le message de news:
u0KsGZWWFHA.580@TK2MSFTNGP15.phx.gbl...
Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par
contre, lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne
comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '"
& critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
Bonjour Guy,
Je suis d'accord avec toi en ce qui concerne le % ou l'*.
En effet, le SQL en DAO, Moteur Jet impose le caractère générique * qui
n'est pas le caractère sandard générique normé (%).
Mais ma remarque portait, plus particulièrement, sur le fait que tu fais
WHERE right(tblCD.File_Name,4) Like '" & critere & "'"
avec critere = ".zip"
Right(tblCD.File_Name,4) ne peut que te retourner les 4 caractères
extraits par la droite de la chaine tblCD.File_Name
et tu compares ces caractères à une variable chaine de 4 caractères
donc le Like n'est pas utile.
Soit les 4 caractères extraits sont "égaux" aux 4 de critere soit non
D'où ma proposition.
Dans ton approche tu analyses les 4 caractères extraits comme devant être
égaux aux 4 de critere suivis éventuellement par n'importe quoi.
A+
Eric
Guy FALESSE a écrit :Salut Eric,
Merci pour ta réponse.
'monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '" &
critère & "%'"
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '"
& critère & "*'"
Voilà pourtant, les 2 lignes:
La 1ère ne fonctionne pas contrairement à la seconde :-)
Comprenne qui pourra, il me semblait avoir lu quelque part que ADODC
voulait les % alors que l'autr (DAO) voulait les *, mais tu dis bien
uniquement, donc, il y aurait du vrai là-dedans :-)
@+
Guy FALESSE
"Eric" a écrit dans le message de news:
%re Guy,
Ce n'est pas uniquement une question % ou * mais tu extraies les 4
caractères à droite :
... WHERE right(tblCD.File_Name,4)
donc tu n'as pas besoin d'utiliser le caractère générique avec un Like
mais tu devrrais mettre :
... WHERE right(tblCD.File_Name,4)='" & critere & "'"
puisque critere =".zip"
A+
Eric
Guy FALESSE a écrit :Re-bonjour à tous,
J'ai posté trop vite,
Apparemment, pour les ADOCD, il faut un % et pour ADODB, il faut une
étoile pour les filtres.
@+
Guy FALESSE
"Guy FALESSE" a écrit dans le message de news:Bonjour à tous,
Voici un code qui, lorsque le recordset est: Set rs =
maBD.OpenRecordset("tblCD")
J'ai toutes les données qui s'inscrivent dans le msFleshGrid, par
contre, lorsque je remplace tblCD par le SQL, rien ne s'affiche, je ne
comprends.
Il ya des zip(trois) dans la table.
Private Sub Form_Load()
Dim maBD As Database
Dim rs As Recordset
Dim sPath As String
Dim monSQL As String, critère As String
critère = ".zip"
sPath = App.Path & "EncodageCD.mdb"
Set maBD = DBEngine.OpenDatabase(sPath)
'Set rs = maBD.OpenRecordset("tblCD")
monSQL = "SELECT * FROM tblCD WHERE right(tblCD.File_Name,4) Like '"
& critère & "%'"
Set rs = maBD.OpenRecordset(monSQL)
Set Data1.Recordset = rs
Me.Text1.Text = rs.RecordCount & " " & "enr."
End Sub
Si quelqu'un pouvait m'aider, cela m'arrangerait fortement.
D'avance merci,
Guy FALESSE
