[Vba] Lire BDD avec Excel

**Emcy** · 08/11/2005, 14h42

Bonjours,

pourquoi j'ai une erreur sur le execute ?

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Option Explicit
 
Public MaBDD As String
Public MaTable As String
 
Public MaConnexion As DAO.Database
 
Public MaRequete As String
 
Sub Main()
 
    MaBDD = "c:\echange\bd1.mdb"
    MaTable = "Essai"
 
    On Error Resume Next
    MaConnexion.Close
 
    Call OuvrirConnection
 
    '-------- recherche element ------------
    Call RequeteRecherche("Val1", "Valeur")
    Call ExecuteRequete
 
End Sub
 
Sub OuvrirConnection(Optional MonMotDePasse As String = "")
'Se connecte à la BDD
'MaBDD = Chemin d'acces à la BDD
 
    Dim MonMessageErreur As String
 
    On Error GoTo ErreurOuvrirConnection
 
    ' Ouverture de la base de données
    Set MaConnexion = DBEngine.OpenDatabase(MaBDD)
 
    Exit Sub
 
ErreurOuvrirConnection:
    MonMessageErreur = "BDD : " & MaBDD & vbCr & Err.Description
    MsgBox MonMessageErreur
    End
End Sub
 
Sub ExecuteRequete(Optional a As Boolean = False)
 
    Dim MonMessageErreur As String
 
    On Error GoTo ErreurExecuteRequete
    MaConnexion.Execute MaRequete
 
    Exit Sub
 
ErreurExecuteRequete:
    MonMessageErreur = "BDD : " & MaBDD & vbCr & _
                       "Table : " & MaTable & vbCr & _
                       "Requete : " & MaRequete & vbCr _
 
    MonMessageErreur = MonMessageErreur & vbCr & Err.Description
 
    MsgBox MonMessageErreur
    End
End Sub
 
Sub RequeteRecherche(MonElement As String, Optional MaColonne As String, Optional NbreElement As Integer = 0, Optional NomTable As String = "")
'recherche d'un ou plusieurs elements
 
    'active la table par defaut
    If NomTable = "" Then
        NomTable = MaTable
    End If
 
    If NbreElement > 0 Then 'renvoie n elements
        MaRequete = "SELECT TOP " & NbreElement & " * FROM " & NomTable
    Else 'renvoie tous les elements
        MaRequete = "SELECT * FROM " & NomTable
    End If
 
    If MonElement <> "*" Then ' n'affiche pas tous les elements
        MaRequete = MaRequete & " WHERE " & MaColonne & "='" & MonElement & "'"
    End If
 
End Sub

**pgz** · 08/11/2005, 15h22

Bonjour,

Tu pourrais dire sur quelle ligne se produit la première erreur, ça aiderait...

Je suppose que tu as bien un champ "Valeur" dans une table "Essai" dans une base bd1 dans le répertoire "echange" du volume C...

j'imagine que l'erreur se produit sur

Code :

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

MaConnexion.Execute MaRequete

Je doute un peu que la commande soit valide, MaRequête n'étant pas une requête action. Tu pourrais essayer une ouverture, pour voir.

Par ailleurs, mais cela n'a rien à voir, il me semble que le message d'erreur d'exécution de la requête utilise la variable MaTable, ce qui n'est pas approprié si une autre table a été utilisée pour construire la requête.

En espérant que cela t'aide,

pgz

**Emcy** · 08/11/2005, 15h36

merci tu viens de mettre le doigt sur mon erreur :

j'executais toutes mes requetes de la même façon que ça soit pour lire ou pour écrire.

**Emcy** · 08/11/2005, 16h02

Par contre j'ai un autre problème :
lorsque j'ecris dans ma base alors que l'element existe déja (clef primaire), l'écriture n'est pas prise en compte (normale) mais je n'ai pas de message d'erreur (pas normale).

d'où vient le problème ?
j'utilise le même principe que precedcemment.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub RequeteAjout(TableauValeur As Collection)
    Dim Valeur As String
    Dim i As Integer
 
    Valeur = "'" & TableauValeur(1) & "'"
    For i = 2 To TableauValeur.Count
        Valeur = Valeur & ", '" & TableauValeur(i) & "'"
    Next i
 
    MaRequete = "INSERT INTO " & MaTable & " VALUES (" & Valeur & ")"
End Sub

**pgz** · 08/11/2005, 16h37

Re,

Si j'ai bien compris, dans l'instruction tu passes aussi la valeur de la clé primaire. Si l'enregistrement existe déjà, de 2 choses l'une( mais je ne sais pas laquelle)
- soit il doit y avoir une erreur,
- soit le INSERT fonctionne comme un UPDATE.

Cela devrait être facile à vérifier en passant la même clé avec des valeurs modifiées... Non?

A+

pgz

**Emcy** · 08/11/2005, 16h56

Dans ma fonction j'ajoute une série d'element qui sont dans ma collection TableauValeur (le premier element étant la clef primaire)
=> INSERT INTO MaTable VALUES ('valeur1','valeur2',...)

si le premier element (clef primaire) existe déja dans la BDD, normlement je devrais avoir un message d'erreur : mais ce n'est pas le cas, pourquoi (rien ne se passe : aucuns elements n'est ajoutés/modifié) ?
par contre si l'element de la clef primaire n'existe pas, alors tout fonctionne normalement mes elements sont ajoutés.

**pgz** · 08/11/2005, 17h07

j'avais bien compris, et je renouvelle ma suggestion de message précédent.

A+

pgz

**Emcy** · 08/11/2005, 17h37

???? ... pardon mais c'est quoi ta suggestion (je dois être stupide mais je ne vois pas de suggestion dans ton message

) ?

**pgz** · 08/11/2005, 17h55

La suggestion c'est d'eesayer de fair un Insert Into dans un enregistrement existant ( Valeur clé déjà existante) mais avec des valeurs de champ différentes de celles déjà enregistrées.

C'est pour voir si le INSERT INTO se comporte ou pas dans ce cas là comme un UPDATE.

C'est plus clair?

A+
pgz

**Tofalu** · 08/11/2005, 20h59

Hello

Ton code est illisible, les arguments des procédures ne veulent rien dire et l'utilisation de variables publiques semble innapropriée.

Essaye de réordonner tout ça, ça sera plus simple pour nous t'aider

et pour toi aussi

**Emcy** · 09/11/2005, 08h39

La suggestion c'est d'eesayer de fair un Insert Into dans un enregistrement existant ( Valeur clé déjà existante) mais avec des valeurs de champ différentes de celles déjà enregistrées.

=> j'ai deja repondu à cette question :

si le premier element (clef primaire) existe déja dans la BDD, normalement je devrais avoir un message d'erreur : mais ce n'est pas le cas, pourquoi (rien ne se passe : aucuns elements n'est ajoutés/modifié) ?

=> le INSERT ne se comporte pas comme un UPDATE

Ton code est illisible, les arguments des procédures ne veulent rien dire et l'utilisation de variables publiques semble innapropriée.

=> pourtant mon code me semble visible

. c'est quoi pour toi un code visible ?

**Tofalu** · 09/11/2005, 10h51

Un code lisible est un code compréhensible, avec des noms de variables choisis, correctement indenté, avec un minimum de Goto, etc

Un code respectant en outre les conventions VB

http://argyronet.developpez.com/office/vba/convention/

**Emcy** · 09/11/2005, 11h09

bon je vais essayer de m'y mettre

=> maintenenat peut-on me reponde a ma question ?

[Vba] Lire BDD avec Excel

Access

Discussions similaires

Partager

Partager