Bonjour,
J'ai un probléme avec ma requéte select, voici mon code
Code :
- 'Ouvre la connexion
- Set cnn = New ADODB.Connection
- cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=O:.\Laboratoire\AccessBDD\.\.\.\.\BonDeCommande.mdb;"
- sSQL1 = "SELECT count (*) FROM TFournisseur where NomFournisseur like '" & nom & "'"
-
- Dim Rs As New ADODB.Recordset
- Dim Cmd As New ADODB.Command
-
- Rs.Open sSQL1, cnn, adOpenStatic, adLockReadOnly, adLockReadOnly
- Rs.MoveLast
- If (Rs.RecordCount=0) Then
- DoCmd.SetWarnings False
- DoCmd.RunSQL "INSERT INTO TFournisseur(NomFournisseur) values ('" & nom & "');"
- DoCmd.SetWarnings True
- Else
- NumF = Rs.Fields(0).Value
- End If
- Rs.Close
|
Je fais un select puis si le select est nul je veux inserer. Ici avec mon code je ne passe jamais dans la boucle je n'insere jamais, le RecordCount ne me renvoie jamais zéro. Je ne comprend pas où est mon erreur peut être que ce n'est pas recordcount que je dois utiliser. Pouvez vous m'aider?