probléme de requete

Question

Voila mon programme.  J'ai un probléme a la ligne : Rsql.Open "SELECT NomSTA FROM Stagiaires WHERE Num_STA=Numero", Db
Que faire?

Dim oFSO,oTS

Set Db = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
Set Rsql = CreateObject("ADODB.Recordset")

MaBase = "C:echerche	est.mdb"
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaBase
Rs.Open "SELECT * FROM Formations", Db
Do While Not Rs.EOF
'On affiche le numéro
'MsgBox Rs.Fields(0)

Numero = Rs("Num_STA")
Datepar = Rs("DateFin")
'MsgBox Rs.Fields(1) ou 
datejour=Date()
msgbox Numero
if (datejour=Datepar) then
msgbox Numero
Rsql.Open "SELECT NomSTA FROM Stagiaires WHERE Num_STA=Numero", Db
msgbox NomSTA
supprimer_compte(NomSTA)

End If
Rs.MoveNext
Loop
msgbox "fin"
Rsql.Close
Rs.Close
Db.Close

 

Set Rs = Nothing
Set Db = Nothing

cs_wape · Answer

Essaye avec :

Rsql.Open "SELECT NomSTA FROM Stagiaires WHERE Num_STA=" & Numero, Db
MsgBox Rsql("NomSTA")

@+

wape

gasparot · Answer

Merci beaucoup ca marche

Probléme de requete

2 réponses

Discussions similaires