Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Shop Recherche
1656 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Savoir si la requête retourne un résultat ? (Résolu)

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Savoir si la requête retourne un résultat ? (Résolu)

n°1563249
PIGs_DarkS​ith
Force Orange
Posté le 22-05-2007 à 05:18:59  profilanswer
 

Voilà, je me galère depuis assez longtemps dessus. J'aimerais savoir comment on peut vérifier qu'une requête SQL retourne ou non un résultat.
Voici le code :
 
Private Sub Supprimer_le_client_Click()
   Dim id As Integer
   Dim sql As String
   id = Form_client_livre.id
   sql = "SELECT id WHERE id IN (SELECT [Numéro du client] FROM livre)"
   If ??????????? Then 'Si la requête SQL ne retourne pas de résultat
       MsgBox "Il n'a pas emprunté de bouquin"
   Else 'Si la requête SQL retourne un résultat
       MsgBox "Il a emprunté un bouquin"
   End If
End Sub


Message édité par PIGs_DarkSith le 22-05-2007 à 19:23:01

---------------
PIGs_DarkSith a parlé !
mood
Publicité
Posté le 22-05-2007 à 05:18:59  profilanswer
 

n°1563286
tegu
Posté le 22-05-2007 à 09:45:32  profilanswer
 

Recherche sur ce forum tout ce qui touche les requêtes SQL.
Tu me sembles assez loin de savoir comment les gérer pour l'instant et des messages sur le sujet ont été postés ces jours.

n°1563356
jpcheck
Pioupiou
Posté le 22-05-2007 à 11:28:17  profilanswer
 

il faut 2 étapes :
 - lance ta requete
 - demande lui le nb de recordset retourné
 
j'en dis pas plus, le forum a en effet deja les réponses :)

n°1563553
PIGs_DarkS​ith
Force Orange
Posté le 22-05-2007 à 15:53:54  profilanswer
 

Bon, j'ai fait quelques modifs après des lectures par ici et par là mais ça marche toujours pas  :(  
 
Private Sub Supprimer_le_client_Click()
Dim id As Integer
Dim sql As String
Dim rst As DAO.Recordset
Set rst = CurrentDb
id = Form_client_livre.id
sql = "SELECT id WHERE id IN (SELECT [Numéro du client] FROM livre)"
Set rst = Db.OpenRecordset(sql, dbOpenForwardOnly, dbReadOnly)
If (rst.EOF) Then
    MsgBox "Il n'a pas emprunté de petit bouquin"
Else
    MsgBox "Il a volé un livre"
End If
'sql = "DELETE FROM client WHERE id = " & id & " AND id NOT IN (SELECT [Numéro du client] FROM livre)"
'Me.client.RowSource = sql
'Me.client.Requery
End Sub
 
 
 
Je crois que le problème viens de cette ligne : Set rst = CurrentDb  :??:


---------------
PIGs_DarkSith a parlé !
n°1563564
Paul Hood
Posté le 22-05-2007 à 16:01:29  profilanswer
 

Je pense qu'avec ca ....
Set Db = CurrentDb et non pas Set rst = CurrentDb
et  
Dim db As DAO.Database


Message édité par Paul Hood le 22-05-2007 à 16:03:12
n°1563571
jpcheck
Pioupiou
Posté le 22-05-2007 à 16:11:32  profilanswer
 

oui,de plus tu peux avoir la fonction rst.recordcount qui doit t'aider :)

n°1563707
PIGs_DarkS​ith
Force Orange
Posté le 22-05-2007 à 19:22:16  profilanswer
 

Ok merci ça marche  :)


---------------
PIGs_DarkSith a parlé !

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Savoir si la requête retourne un résultat ? (Résolu)

 

Sujets relatifs
[Résolu] CSS : je voudrais une width (100%-largeur menu)tikiwiki (resolu)
requete SQL[RESOLU] <span> sur anime Flash ?? Div flotante sous IE ??
[Résolu] Executer un BACTH en VB (Visual Basic 2005 Express)[Resolu] VB 2005 Express -> demande code pour écrire ds le Registre
Savoir si un fichier est videtableau de chaines en mémoire partagé (Linux/POSIX) [RESOLU]
[Résolu] Problème polymorphisme et sous typage[Ocaml] lecture d'un fichier texte de > 50 Mo (resolu)
Plus de sujets relatifs à : Savoir si la requête retourne un résultat ? (Résolu)


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR