VBA probléme données d'un select

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA probléme données d'un select

yazou

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?

Publicité

JihemAir

Je sais pas

1-Lorsqu'un recordset est vide, recordcount = -1
2-Si ton recordset est vide, rs.movelast plante l'appli.
Utilise plutôt:
'If rs.BOF And rs.EOF then' pour dire que le recordset est vide
3-Si tu ouvres ton recordset en adLockReadOnly, tu auras du mal à ajouter un enregistrement.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA probléme données d'un select

Sujets relatifs
Probleme lors de la creation de toolbar avec wxwidgets	[memcpy] L'importance de l'optimisation dans la copie des données
Problème de mise en page (Access2000)	Problème d'url rewriting
[Newbie] Problême d'iframe	pb avec un script de news qui à l'air d'avoir un problème
problème de CSS et arrière plan	[Java RSA] cryptage de données avec une clé publique
VBA SQL recuperer données d'un SELECT
Plus de sujets relatifs à : VBA probléme données d'un select

Page générée en 0.024 secondes