Discussion :

[Sbenslah]

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

[SfJ5Rpw8]

B'jr,

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

[OhMonBato]

+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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sbenslah]

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 :

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

Merci pour votre aide

sbensalah

[Sbenslah]

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 :

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

Merci à vous

Bonne journée et bon fin de weekend