Pb VB requete select count()

Question

Je voudrais effectuer une recherche dans ma base de données oracle qui me compterai le nombre d'exemplaire de livre emprunter.
Ensuite, si ce nombre est égal à 3 il fait quelque chose, sinon il fait autre chose.
Mais le code que j'ai mi ne marche pas. Le code est le suivant :

Public Sub InsererEmprunt(ByVal CdeAb As Variant, ByVal CdeEx As Variant, ByRef DatDeb As Date, ByRef DatRetEff As Date)
Dim req As New ADODB.Recordset
Dim ReqSql As New ADODB.Command
Dim DatRet As Date

Call Etablir_connexion
ReqSql.ActiveConnection = BDBiblioReqSql.CommandText "select count(CodeEx) from Emprunter where CodeAb '" & CdeAb & "'"
Set req = ReqSql.Execute
If req![CodeEx] = 3 Then
MsgBox ("Il y a déja trois emprunts en cours")
ElseReqSql.CommandText "insert into emprunter values CdeAb, CdeEx, DatDeb, DatRetEff where CodeAB '" & CdeAb & "'"
MsgBox ("emprunt effectué")
End If
End Sub

Si vous voyez l'erreur n'hésitez pas

Merci

cs_labout · Answer

labout
Il s'agit d'un insert  donc
ReqSql.CommandText = "insert into emprunter values (CdeAb, CdeEx, DatDeb, DatRetEff & ")"
Mais à vérifier que le nombre de champs d'emprunter est
de 4 champs

à oter
where CodeAB = '" & CdeAb & "'"

@+

Pb VB requete select count()

1 réponse

Discussions similaires