Requête Sql ADO

Bonjour ,

Depuis quelque jour , je développe un programme de gestion de stock et j'utilise le contrôle ADODB pour accéder à une base Access

Voici ma déclaration :

Code:

---

1 2 3 4 5 6 7

Public Sub connection() Set con = New ADODB.connection con.CursorLocation = adUseClient con.Provider = "microsoft.jet.oledb.4.0" con.ConnectionString = App.Path & "\BD\geststock.mdb" con.Open End Sub

---

Mon problelme :
J'essaie de verifier sur la base de données , l'existance d'un enregistrement avec plusieurs conditions définit sur des zone de texte .

Voilà mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Rsql As String Call connection Set rs = New ADODB.Recordset Set rs1 = New ADODB.Recordset   Rsql = "select N°BS,CP,DIAM from BondeSortie where N°BS='" & Val(nbs.Text) & "' And _ CP='" & code.Text & "' And _ DIAM='" & Val(diametre.Text) & "' ;" rs.Open Rsql, con, adOpenDynamic, adLockOptimistic   If rs.RecordCount = 0 Then MsgBox "aucun enregistrement" End If

---

Mais ceci me généré un problème d'exécution:

http://img525.imageshack.us/img525/9826/erreurjq7.jpg

Pourriez vous m'aidez !:oops:

Merci

Bon fin de weekend

SBensalah

B'jr,

c'est quoi les underscore : "_" , au milieu de ta requête?

+1 pour les undescores et je me demande aussi pour N°BS si les ' sont necessaires, je ne suis pas tres sur mais ne faudrait-il pas ecrire :

Code:

---

1 2	...where N°BS=" & Val(nbs.Text) & " And...

---

Bonjour,

Merci pour votre réponse si rapide .

C'est vrai j'ai _ , au debut voulais pas me passer le code seulement si j'ajoute sa. j'ai du peut etre fait des erreurs dans la syntaxe.
merci
! maintenant sa généré un autre problème.

"type de données incompatible dans l'expression du critère"

Sachant que les champ :
CP : texte.
N°BS: numerique
DIAM:numérique.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Rsql As String Call connection Set rs = New ADODB.Recordset Set rs1 = New ADODB.Recordset   Rsql = "select N°BS,CP,DIAM from BondeSortie where N°BS='" & Val(nbs.Text) & "' And CP='" & code.Text & "' And DIAM='" & Val(diametre.Text) & "' ;" rs.Open Rsql, con, adOpenDynamic, adLockOptimistic   If rs.RecordCount = 0 Then MsgBox "aucun enregistrement" End If

---

Merci pour votre aide

sbensalah

Merci pour vos réponses!

Pour ceux qui veulent avoir la solution de mon problème :

j'avais un probleme au niveau du code dans
_ Premièrement
et aussi sur les ' '

le bon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim Rsql As String Call connection Set rs = New ADODB.Recordset Set rs1 = New ADODB.Recordset   Rsql = "select N°BS,CP,DIAM from BondeSortie where N°BS=" & Val(nbs.Text) & " And CP=" & code.Text & " And DIAM=" & Val(diametre.Text) & ";" rs.Open Rsql, con, adOpenDynamic, adLockOptimistic   If rs.RecordCount = 0 Then MsgBox "aucun enregistrement" End If

---

Merci à vous

Bonne journée et bon fin de weekend