Discussion :

[FrancoisR69]

Bonjour,

J'essaye de traduire ce script PHP en VBA mais j'ai du mal.
Pourriez vous m'aider ?

Merci beaucouuuup !

François

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
function affiche_chemin_fer($idpage) {
$chemin_complet = "";
 
if ($idpage != 0) {
// on récupère les informations de la page en cours dans la DB
$strSQL = 'SELECT `Titre`, `Id_parent` FROM `pages` WHERE `Id_page` = '.$idpage;
$resultat = requete_SQL($strSQL);
$tabl_result = mysql_fetch_array($resultat);
 
$titrepage = $tabl_result['Titre'];
$idparent = $tabl_result['Id_parent'];
 
// création du lien vers la page en cours
$chemin_page_en_cours = ' -> <a href="index.php?id_page='.$idpage.'">'.$titrepage.'</a>';
 
// Concaténation du lien de la page N-1 et
// du lien de la page en cours
$chemin_complet = affiche_chemin_fer($idparent).$chemin_page_en_cours;
}
// renvoie le chemin complet
return $chemin_complet;
}

[Jean-Philippe André]

bonsoir,
sur quel aspect de la traduction rencontres-tu des soucis ?

qu'as-tu déjà "traduit" en VBA ici ?

Le mode de fonctionnement n'est pas "faites à ma place", mais "aidez moi svp à faire"

[FrancoisR69]

Merci vraiment de me répondre.
J'ai commencé par le début, à savoir "VBA Pour Les Nuls"...
:-)

J'ai commencé à écrire ça, je me penche d'abord sur la connexion à la base
Est-ce que c'est bon déjà ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Function cheminDeFer(ID As Integer)
Dim ChnSQL As String
Dim Req As QueryDef
 
Set ChnSQL = "SELECT * FROM TABLE WHERE ID=" & ID
 
Set Req = CurrentDb.CreateQueryDef("", ChnSQL)
Req.Execute dbFailOnError
 
End Function

(Ce qui est difficile pour moi c'est la syntaxe qui est nouvelle, mais côté programmation j'ai des bonnes connaissances en C/C++)

[Jean-Philippe André]

ok
pas nécessaire d'avoir un objet QueryDef, un simple recordset devrait faire l'affaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
Function cheminDeFer(ID As Integer)
Dim ChnSQL As String
Dim Req As QueryDef
 
ChnSQL = "SELECT * FROM TABLE WHERE ID=" & ID
 
Set Req = CurrentDb.OpenRecordset(chnsql)
 
 
End Function

[FrancoisR69]

Merci pour ta réponse.

Je pense être connecté à ma base et pouvoir récupérer le contenu de toute ma table.

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
Option Compare Database
 
Function cheminDeFer(ID As Integer)
Dim ChnSQL As String    ' variable contenant la requete SQL
Dim DB As Database      ' variable contenant un pointeur vers la base de données
Dim myRec As Recordset  ' variable contenant le retour de la requete
 
Set DB = CurrentDb
Set ChnSQL = "SELECT * FROM TABLE WHERE ID=" & ID
 
Set myRec = DB.OpenRecordset(ChnSQL)
 
With myRec
     If .AbsolutePosition = -1 Then
             MsgBox "Pas d'enregistrement"
     Else
             .MoveLast
             MsgBox .RecordCount & " Enregistrement(s) Trouvé(s)"
     End If
End With
 
 
 
 
End Function
 
 
Sub Macro1()
cheminDeFer (10)
 
End Sub

Cependant quand je lance ma macro, il me surligne

Code :

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

Function cheminDeFer(ID As Integer)

et me dit "Erreur de compilation : Objet Requis".

Tu as une idée de mon erreur ?

[FrancoisR69]

J'ai trouvé pour mon erreur Objet Requis.
C'est parce que je mettais Set variable = quelque chose alors que celle ci était déjà déclarée.

Maintenant il y a juste la récupération des données de la base qui échoue, car il me dit "Erreur de syntaxe dans la clause FROM".
Je vais essayer de trouver, n'hésitez pas si vous avez des suggestions ça m'aiderai bien.

[Jean-Philippe André]

salut,
il faut nommer les champs et les tables correctement maintenant

effectivement, pas besoin de set variable = valeur pour une chaine de caractères