Stocker nom dans variable et le reprendre dans requête

**snoopy69** · 08/12/2005, 14h04

Bonjour ...

J'ai creer une requête en VBA comme suit :

Code :

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

1
2
3
4
5
Dim requete As String
 
requete = ("SELECT TB_ORDINATEURS.pk_ordinateur, TB_ORDINATEURS.nom_ordinateur, TB_ORDINATEURS.code_ordinateur, TB_ORDINATEURS.fk_departement_ordinateur FROM TB_ORDINATEURS WHERE fk_departement_ordinateur = ;" )
 
DoCmd.RunSQL requete

En fait comme vous pouvez le voir ma requête n'est pas terminée après le WHERE ... en fait j'aimerais mettre le contenu d'une variable après le WHERE ... j'ai essayé comme suit :

Code :

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

requete = ("SELECT TB_ORDINATEURS.pk_ordinateur, TB_ORDINATEURS.nom_ordinateur, TB_ORDINATEURS.code_ordinateur, TB_ORDINATEURS.fk_departement_ordinateur FROM TB_ORDINATEURS WHERE fk_departement_ordinateur = " & nom_variable)

Mais cela ne fonctionne pas ... savez-vous comme faire ???

Merci de vos réponses ... a tout bientôt ...

**Dolphy35** · 08/12/2005, 14h10

Salut

Code :

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

requete = ("SELECT TB_ORDINATEURS.pk_ordinateur, TB_ORDINATEURS.nom_ordinateur, TB_ORDINATEURS.code_ordinateur, TB_ORDINATEURS.fk_departement_ordinateur FROM TB_ORDINATEURS WHERE TB_ORDINATEURS.fk_departement_ordinateur = " & nom_variable)

Tu as oublié de mettre le nom de la table sur le champs fk_departement_ordinateur. Esseye le code ci dessus.

@+

**zoom61** · 08/12/2005, 14h14

Salut,

Dans un module tu mets le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Dim g_test As String 
 
Public Function get_test() As String 
get_test = g_test 
End Function 
 
Public Function set_test(test As String) As Integer 
g_test = test 
End Function

Ensuite sur ton bouton tu mets le code suivant :

Code :

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

1
2
3
4
... 
Dim i As Integer 
i = set_test(1) 
...

Le 1 correspondant à la valeur que tu veux mettre.

Ensuite lorsque tu veux récupérer la donnée variable :

Code :

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

get_test()

**pc75** · 08/12/2005, 14h18

Bonjour,

Si ton champ est de type texte, il manque des quotes (guillemets simples)

Code :

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

1
2
 
WHERE TB_ORDINATEURS.fk_departement_ordinateur = '" & nom_variable & "'")

**snoopy69** · 08/12/2005, 14h18

En réponse à Dolphy 35 :

Eh non cela ne marche pas j'ai même essayé cela :

Code :

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

1
2
 
requete = ("SELECT TB_ORDINATEURS.pk_ordinateur, TB_ORDINATEURS.nom_ordinateur, TB_ORDINATEURS.code_ordinateur, TB_ORDINATEURS.fk_departement_ordinateur FROM TB_ORDINATEURS WHERE TB_ORDINATEURS.fk_departement_ordinateur = " & strComputerName & ";")

et cela ne marche pas ...

En réponse à zoom61 :

Je crois que l'on c'est mal compris ...

En fait j'aimerais récupérer le nom de l'ordinateur sur lequel la base est exécuté ... pour faire cela pas de soucis cela marche ... et le nom de mon ordinateur est stoqué dans la variable : strComputerName ....

Tu vois le truc ???

En réponse à pc75

Code :

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

requete = ("SELECT TB_ORDINATEURS.pk_ordinateur, TB_ORDINATEURS.nom_ordinateur, TB_ORDINATEURS.code_ordinateur, TB_ORDINATEURS.fk_departement_ordinateur FROM TB_ORDINATEURS WHERE TB_ORDINATEURS.fk_departement_ordinateur = '" & strComputerName & "';")

Voici ce que j'ai mis ... et toujours la même erreur ...

Merci de vos réponses ...

**Arkham46** · 08/12/2005, 14h29

Slt,

Envoyé par snoopy69

En réponse à zoom61 :

Je crois que l'on c'est mal compris ...

En fait vous vous êtes bien compris, il faut une fonction qui renvoie le nom de l'ordinateur. La variable n'est pas reconnue directement.

**snoopy69** · 08/12/2005, 14h33

Voici ce que j'ai fait en totalité :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Sub connection ()
'Déclaration des variables
Dim strComputerName As String
Dim str_requete As String
 
'""""""""""""" RECUPERATION DU NOM DE L'ORDINATEUR """"""""""""
 
'Stockage du nom de l'ordinateur dans une variable
strComputerName = Environ("COMPUTERNAME")
'Visualisation du nom de l'ordinateur
MsgBox strComputerName
 
'""""""""""" FIN RECUPERATION DU NOM DE L'ORDINATEUR """"""""""
 
'"""""""""""""""""""""""""""" Requête """"""""""""""""""""""""""""""
 
str_requete = ("SELECT TB_ORDINATEURS.pk_ordinateur, TB_ORDINATEURS.nom_ordinateur, TB_ORDINATEURS.code_ordinateur,TB_ORDINATEURS.fk_departement_ordinateur FROM TB_ORDINATEURS WHERE TB_ORDINATEURS.fk_departement_ordinateur like '" & strComputerName & "';")
 
'Exécution de la requête
DoCmd.RunSQL str_requete
 
'""""""""""""""""""""""""" FIN Requête """""""""""""""""""""""""""""
 
End sub

Donc je récupère bien le nom de mon pc car dans le MsgBox il s'affiche ...

PS : Dans l'éditeur VBA ma requête est sur une seule ligne ... je ne sais pas si cela change quelque chose ...

**Dolphy35** · 08/12/2005, 14h34

As-tu mis les Quotes comme précises pc75.

@+

**snoopy69** · 08/12/2005, 14h37

Oui regarde ...

Code :

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

str_requete = ("SELECT TB_ORDINATEURS.pk_ordinateur, TB_ORDINATEURS.nom_ordinateur, TB_ORDINATEURS.code_ordinateur,TB_ORDINATEURS.fk_departement_ordinateur FROM TB_ORDINATEURS WHERE TB_ORDINATEURS.fk_departement_ordinateur like '" & strComputerName & "'")

Voici l'erreur qui me vient :

Erreur d'exécution '2342'

Une action ExécuterSQL nécessite un argument consistant en une instruction SQL

J'ai même remplacer " par LIKE et rien ne change ...

je ne comprends vraiment pas pourquoi j'ai une erreur ...

**Dolphy35** · 08/12/2005, 14h44

Il y a un truc que je ne comprend pas que veux-tu faire avec cette requête.

Je pense que tu veux contrôler si le pc existe dans ta table si c'est le cas prend ce code il fonctionne sinon précise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub connection()
'Déclaration des variables
Dim strComputerName As String
Dim str_requete As String
 
'""""""""""""" RECUPERATION DU NOM DE L'ORDINATEUR """"""""""""
 
'Stockage du nom de l'ordinateur dans une variable
strComputerName = Environ("COMPUTERNAME")
'Visualisation du nom de l'ordinateur
MsgBox strComputerName
 
'""""""""""" FIN RECUPERATION DU NOM DE L'ORDINATEUR """"""""""
 
'"""""""""""""""""""""""""""" Requête """"""""""""""""""""""""""""""
 
str_requete = ("SELECT TB_ORDINATEURS.pk_ordinateur, TB_ORDINATEURS.nom_ordinateur, TB_ORDINATEURS.code_ordinateur,TB_ORDINATEURS.fk_departement_ordinateur FROM TB_ORDINATEURS WHERE TB_ORDINATEURS.fk_departement_ordinateur = '" & strComputerName & "';")
 
'Exécution de la requête
 
Set ctrl = CurrentDb.OpenRecordset(str_requete)
 
    If ctrl.RecordCount > 0 Then
        MsgBox "Vrai"
    Else
        MsgBox "Faux"
    End If
 
'""""""""""""""""""""""""" FIN Requête """""""""""""""""""""""""""""
 
End Sub

@+

**snoopy69** · 08/12/2005, 14h54

Oui je veux bien faire cela :

Je pense que tu veux contrôler si le pc existe dans ta table si c'est le cas prend ce code il fonctionne sinon précise

Merci pour ton code mais j'ai une erreur qui me dit :

Type de données incompatible dans l'expression du critère

voici sur quelle ligne me vient cette erreur :

Code :

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

Set ctrl = CurrentDb.OpenRecordset(str_requete)

Cela me vient de quoi ???

**Dolphy35** · 08/12/2005, 15h09

Et bien je sèche,

Ce code fonctionne bien sur un appuit Bouton (par exemple), tu consulté l'aide sur ce message lors de l'erreur il doit te mettre un bouton d'aide.

Sinon quelle version d'access tu utilise.

@+

**snoopy69** · 08/12/2005, 15h11

Alors j'utilise Access 2003

Et si je clique sur le bouton d'aide ben il ne vient rien ... Une petite fenêtre grise s'ouvre et il n'y a rien de marqué ...

Je ne comprends pas pourquoi cela ne marche pas .... c'est pas très logique ...

C'est encore une spécialisation d'Access ...

A tout bientôt et si vous avez une idée, elle est la bienvenue ...

Merci de votre aide ...

**snoopy69** · 08/12/2005, 16h04

J'ai essayer cela aussi :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
 
Dim SQL As String
 
SQL = "SELECT * FROM TB_ORDINATEURS"
 
'Exécution de la requête
DoCmd.RunSQL SQL
 
End Sub

et pas de résultat ...

Toujours la même erreur qui me dit :

Erreur d'exécution '2342'

Une action ExécuterSQL nécessite un argument consistant en une instruction SQL

**Faw** · 08/12/2005, 16h09

je peux me tromper mais DoCmd.RunSQL c'est pour les requêtes Action

**snoopy69** · 08/12/2005, 16h13

Par quoi il faut que je remplace alors ... car dans l'aide c'est vrai l'exemple sur lequel je me suis basé c'est pour une requête de mise à jour ...

**ChrOnOs83** · 08/12/2005, 16h56

Juste une petite modif qui devrai fonctionner:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Sub connection() 
'Déclaration des variables 
Dim strComputerName As String 
Dim str_requete As String 
 
'""""""""""""" RECUPERATION DU NOM DE L'ORDINATEUR """""""""""" 
 
'Stockage du nom de l'ordinateur dans une variable 
strComputerName = Environ("COMPUTERNAME") 
'Visualisation du nom de l'ordinateur 
MsgBox strComputerName 
 
'""""""""""" FIN RECUPERATION DU NOM DE L'ORDINATEUR """""""""" 
 
'Exécution de la requête 
 
Set ctrl = CurrentDb.OpenRecordset("SELECT pk_ordinateur, nom_ordinateur, code_ordinateur, fk_departement_ordinateur FROM TB_ORDINATEURS WHERE fk_departement_ordinateur= '" & strComputerName & "';") 
 
    If ctrl.RecordCount > 0 Then 
        MsgBox "Vrai" 
    Else 
        MsgBox "Faux" 
    End If 
 
'""""""""""""""""""""""""" FIN Requête """"""""""""""""""""""""""""" 
 
End Sub

**cafeine** · 08/12/2005, 17h17

et pourquoi ne pas utiliser DCount() ?
regarder l'aide au besoin ...

**argyronet** · 08/12/2005, 18h36

Bonjour,

Tu peux associer le comptage et l'obtention des infos souhaitées:
Voici un exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub TestRequete()
Dim strResult As String
Dim str_Requete As String
Dim lngNBResults As Long
 
  str_Requete = ("SELECT TB_ORDINATEURS.pk_ordinateur, TB_ORDINATEURS.nom_ordinateur, TB_ORDINATEURS.code_ordinateur,TB_ORDINATEURS.fk_departement_ordinateur FROM TB_ORDINATEURS WHERE TB_ORDINATEURS.fk_departement_ordinateur = '" & strComputerName & "';")
  strResult = GetQueryResult(str_Requete, "fk_departement_ordinateur", lngNBResults)
 
  If lngNBResults Then
    If lngNBResults = 1 Then
      MsgBox "La valeur cherchée est : " & strResult
    Else
       MsgBox "Il y a " & lngNBResults & " enregistrement pour cette requête et je ne peux pas les afficher dans ce message !"
    End If
  Else
      MsgBox "Y a rien qui ressemble à ce truc là dans la base à Snoopy69 !!!"
  End If
 
End Sub
 
Private Function GetQueryResult(ByVal QueryString As String, ByVal FieldName As String, ByRef NBRecords As Long) As String
Dim oRS As DAO.Recordset
Dim strResult As String
 
  On Error Resume Next
  Set oRS = CurrentDb.OpenRecordset(QueryString, 2)
    With oRS
      strResult = .Fields(FieldName).Value
      .MoveLast
      NBRecords = .RecordCount
      .Close
    End With
  Set oRS = Nothing
  GetQueryResult = strResult
End Function

Argy

**snoopy69** · 09/12/2005, 07h04

Merci de vos réponse ... J'ai pris la solution de ChrOnOs83 et cela marche parfaitement ...

Merci à tout le monde pour vos réponses ...

A tout bientôt ...

Stocker nom dans variable et le reprendre dans requête

Access

Discussions similaires

Partager

Partager