[VBA] Requete sql en vba
Résolu
BibopLeFou
-
BibopLeFou -
BibopLeFou -
Bonjour,
J'ai un petit problème avec le code suivant qui me renvoie faux a chaque fois que soit les données envoyées :
Public Function estservco(ByVal user As String, serveur As String) As Boolean
Dim rst As DAO.Recordset
strSQL = "SELECT t_conserv.id FROM t_conserv WHERE (((t_conserv.datefin) Is Null) AND ((t_conserv.utilisateur) Like 'user') AND ((t_conserv.poste) Like 'serveur'))"
Set rst = CurrentDb.OpenRecordset(strSQL)
If rst.RecordCount = 1 Then
estservco = True
Else
estservco = False
End If
End Function
En fait je suis un peu nul en VBA et j'ai besoin de savoir si il y a une ou zero ligne dans ma table sans date de fin pour un utilisateur et un poste donné.
Merci d'avance :)
J'ai un petit problème avec le code suivant qui me renvoie faux a chaque fois que soit les données envoyées :
Public Function estservco(ByVal user As String, serveur As String) As Boolean
Dim rst As DAO.Recordset
strSQL = "SELECT t_conserv.id FROM t_conserv WHERE (((t_conserv.datefin) Is Null) AND ((t_conserv.utilisateur) Like 'user') AND ((t_conserv.poste) Like 'serveur'))"
Set rst = CurrentDb.OpenRecordset(strSQL)
If rst.RecordCount = 1 Then
estservco = True
Else
estservco = False
End If
End Function
En fait je suis un peu nul en VBA et j'ai besoin de savoir si il y a une ou zero ligne dans ma table sans date de fin pour un utilisateur et un poste donné.
Merci d'avance :)
A voir également:
- [VBA] Requete sql en vba
- Excel compter cellule couleur sans vba - Guide
- Dépassement de capacité vba ✓ - Forum Excel
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
1 réponse
bonjour,
J'ai finalement réussit comme sa :
Public Function estservco(ByVal user As String, serveur As String) As Boolean
'HB20081105 création dune fonction qui pour un nom et un serveur donné renvoi un bool si il y a une connection en cours
Dim rst As DAO.Recordset
strSQL = "SELECT t_conserv.id FROM t_conserv WHERE (((t_conserv.datefin) Is Null) AND ((t_conserv.utilisateur) Like '" & user & "') AND ((t_conserv.poste) Like '" & serveur & "'))"
Set rst = CurrentDb.OpenRecordset(strSQL)
If rst.RecordCount = 1 Then
estservco = True
Else
estservco = False
End If
End Function
Désolé pour le dérangement :p
J'ai finalement réussit comme sa :
Public Function estservco(ByVal user As String, serveur As String) As Boolean
'HB20081105 création dune fonction qui pour un nom et un serveur donné renvoi un bool si il y a une connection en cours
Dim rst As DAO.Recordset
strSQL = "SELECT t_conserv.id FROM t_conserv WHERE (((t_conserv.datefin) Is Null) AND ((t_conserv.utilisateur) Like '" & user & "') AND ((t_conserv.poste) Like '" & serveur & "'))"
Set rst = CurrentDb.OpenRecordset(strSQL)
If rst.RecordCount = 1 Then
estservco = True
Else
estservco = False
End If
End Function
Désolé pour le dérangement :p
