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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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:



Pourriez vous m'aidez !

Merci

Bon fin de weekend

SBensalah