Recupéré chaîne de caractere d'une requete SQL

Question

Bonjour,

j'execute une requete SQL pour savoir si un bus est équipé de la vidéosurveillance :


sql = "SELECT videosurveillance FROM vehicule WHERE num_vehicule='" & num_parc_vehicule.Value & "';"


Le champ videosurveillance est du type "text" soit 'oui' soit 'non'.


J'aimerai par le biais de manipulation récupérer le resultat de la
requete et ainsi le mettre dans une zone de texte caché dans un
formulaire.

Merci j'utilise VB d'access.


Merci @+

jrivet · Answer

Salut,


Il te faut utiliser un Objet Recordset.


Par quel moyen execute tu cette requete?






@+,   Ju£i?n

garscalva · Answer

Voilà tout la partie de code :
' Contient la base
    Dim db As Database
    ' Contient le jeu d'enregistrement
    Dim Rs As Recordset
    ' Contient la requete
    Dim sqlvideosurveillance As String
    ' Contient la présence ou non de videosurveillance.
    Dim rep As String
        ' Connection à la base
        Set db = DBEngine.Workspaces(0).OpenDatabase("C:\incident.mdb", True, False, ";pwd=tcl")
        ' Assignation de la requète
        sqlvideosurveillance = "SELECT videosurveillance FROM vehicule WHERE num_vehicule='" & num_parc_vehicule.Value & "';"
        ' Exécution de la requète
         Set Rs = db.OpenRecordset(sqlvideosurveillance)
        ' On se place au premier enregistrement concerné
         Rs.MoveFirst
        ' Récupération du résultat
         rep = Rs.Fields(0).Value
        ' Fermeture du jeu d'enregistrement
         Rs.Close
        ' Fermeture de la base
        db.Close
        
        ' Envoie de la réponse si Bus équipé de videosurveillance
        videosurveillance.Value = rep

jrivet · Answer

Re,


Et bien ceci m'a l'air aps mal... Que contient Rep unr fois que tu lui as affecté ...(0).Value?


Il devrait avoir soit Oui Soit Non?


En fait je ne vois pas ou est ton problème.






@+,   Ju£i?n

garscalva · Answer

Ben ça marche pas. c'est ça le probleme.
il doit contenir une chaine de caractere tout a fais

garscalva · Answer

Il me dit "erreur d'execution 3464" qui correspond une incompatibilté de type. Pourtant tout à l'air bon.

garscalva · Answer

En fait le recupération de la présence de la videosurveillance ou non dans un vehicule se fait aprés avoir saisie le numéros de vehicule sur le formulaire. J'ai donc mis mon bout de code dans la fonction de la zone de texte du numéros de vehicule  comme suit :

Private Sub num_parc_vehicule_BeforeUpdate(Cancel As Integer)
    ' Contient la base
    Dim db As Database
    ' Contient le jeu d'enregistrement
    Dim Rs As Recordset
    ' Contient la requete
    Dim sql As String
    ' Contient le nombre de réclamation déjà enregistré.
    Dim rep As String
        ' Connection à la base
        Set db = DBEngine.Workspaces(0).OpenDatabase("C:\incident.mdb", True, False, ";pwd=tcl")
        ' Assignation de la requète
        sql = "SELECT videosurveillance FROM vehicule WHERE num_vehicule='" & num_parc_vehicule.Value & "';"
        ' Exécution de la requète
         Set Rs = db.OpenRecordset(sql)
        ' On se place au premier enregistrement concerné
         Rs.MoveFirst
        ' Récupération du résultat
         rep = Rs.Fields(0).Value
        ' Fermeture du jeu d'enregistrement
         Rs.Close
        ' Fermeture de la base
        db.Close
        
        ' Envoie de la réponse si Bus équipé de videosurveillance
        videosurveillance.Value = rep
End Sub

jrivet · Answer

Salut,


VideoSurveillance est un objet de quel type? 






@+,   Ju£i?n

garscalva · Answer

Je n'arrive pas à trouver son type.
C'est une zone de texte dans un formulaire ou j'ai modifié que le nom, il n'y a rien de selectionné dans le format.

cs_MPi · Answer

As-tu essayé en enlevant les apostrophes ?

Si le champ num_vehicule est de type numérique, il ne faut pas y mettre d'apostrophes. Seulement pour les types texte.


sql = "SELECT videosurveillance FROM vehicule WHERE num_vehicule=" & num_parc_vehicule.Value

MPi

garscalva · Answer

Il ne manque pas un bout?

J'ai essayé avec ce que tu as dis :
 sql = "SELECT videosurveillance FROM vehicule WHERE num_vehicule=" & num_parc_vehicule.Value &";"
Et ça me met :
Erreur 13 Incompatibilité de type.

garscalva · Answer

Et lorsque je fais déboguage il me surligne en jaune cette partie :
Set Rs = db.OpenRecordset(sql)

cs_MPi · Answer

Je ne sais pas si c'est à moi que tu demandes, mais je n'ai pas mis de 

& ";"


Quelle est la base de données que tu utilises ?

Est-ce que num_vehicule est un champ numérique ou texte ?

MPi

garscalva · Answer

C'est un champ numerique.
C'est une BDD sous access

cs_MPi · Answer

Et comme ça ?


 sql = "SELECT videosurveillance FROM vehicule WHERE num_vehicule=" & Val(num_parc_vehicule)

MPi

garscalva · Answer

je vais essayé

garscalva · Answer

J'ai essayé et ça me surligne en jaune :
Set Rs = db.OpenRecordset(sql)

cs_MPi · Answer

Est-ce que ça te donne un numéro d'erreur ? si oui lequel ?


Si on récupère du début ...

tu as une table vehicule

tu veux afficher ou obtenir son champ videosurveillance

si l'autre champ num_vehicule égale la valeur d'un textbox ou label nommé num_parc_vehicule


Est-ce que c'est bien ça ?

MPi

garscalva · Answer

oui voila tout a fais c'ets uen erreur 13.
Oui dans une liste déroulante je choisi le numeros du vehicule et suivant le champ videosurveillance (qui renseigne la presence ou non de videosurveillance) je veux recupéré si la videosurveillance et presente ou pas et je met la reponse dans une textbox apellé videosurveillance.

cs_MPi · Answer

Si num_parc_vehicule est un Combobox, il faut alors spécifier .Text


  sql = "SELECT videosurveillance FROM vehicule WHERE num_vehicule=" & Val(num_parc_vehicule.text)

MPi

garscalva · Answer

J'ai toujours le meme probleme

Recupéré chaîne de caractere d'une requete SQL

20 réponses

Votre réponse

Discussions similaires