Discussion :

[kizou]

Bonjour

Je cherche à récupérer des données d'une base de données access. Malgré mon bon vouloir et mes nombreuses recherches, je n'y arrive toujours pas.

Voici le code que j'ai écrit

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 GetInfo(U As String, T As String, S As String)

Dim sql As String
Dim acApp As Access.Application
Dim chemin As String
Dim nmt As String

xml = Value1
'nom de la table
nmt = Value2
' Démarrer Access
Set acApp = New Access.Application
 
' Ouvrir la base de données concernée
acApp.OpenCurrentDatabase (chemin & "nom.mdb")


    
    sql = "SELECT C FROM  [" & nmt & " ] WHERE S = " & Chr(34) & U & Chr(34) & " and Sc=" & Chr(34) & S & Chr(34)
        
        Get Info=currentDb.execute(sql)
End Function

Par contre vba n'a pas trop l'air d'accord avec la ligne rouge. sauriez vous pourquoi? en plus, lorsqu'il exécute la requête sql, il ne trouve pas la table. l'aurais je mal désignée?

Merci pour votre aide

[casefayere]

Bonjour,

Je ne sais pas si ça t'aidera, mais regardes toujours :
http://www.info-3000.com/vbvba/vbainteractionaccess.php

[kizou]

J'ai réussi à cibler le problème
le code plante à cause de la requête

Code sql :

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

sql = "SELECT C FROM  [" & nmt & "] WHERE S= '" & Sc & "' AND (Un = '" & U& "')"

ce qui est bizarre c'est que la code plante lorsque j'ajoute la 2ème condition. Avec seulement la première ça marche très bien.
l'erreur qui s'affiche est "No Value given for one or more required parameters"
Es ce dû à la requête ou à la base de données elle même?
Merci pour votre aide

[casefayere]

d'après les exemples que j'ai consulté, sans garantie je te propose d'essayer

Code :

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

1
2
sql = "SELECT C FROM  [" & nmt & "]" 
sql = sql & WHERE S= "Sc" & " AND (Un = " & U & ")"

La syntaxe sera surement à revoir

[kizou]

Bonjour
Merci pour ta réponse.
Le code ne fonctionne toujours pas. Ca bloque niveau requête. Lorsque je supprime la 2e condition, tout marche bien et le recordset récupère une valeur. Je ne comprends pas pourquoi la 2e condition fait planter le tout...
Pourtant, après de nombreuses recherches j'ai cru trouver la bonne syntaxe.
Je ne sais pas si c'est lié à la strucuture du champ en question dans access.