Discussion :

[Milyshyn76]

Bonjour as tous, j'ai un soucis au niveau d'une requête qui n'insere pas les données que je veux.

La syntaxe est bonne, quand je l'execute pas a pas, il n'y a aucun problème, mais quand je consulte la table, les enregistrements n'ont pas été inserés....

Je récupere les données inserées dans un fichier texte. Aussi est ce le fait fait que certain champs sont des clés étrangères d'autre table vide...

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
Private Sub Charger_Click() 'Chargement du fichier referentiel

    Dim toto
    Dim objet As Object, fichier As Object
    Dim chemin As String
    Dim ean, designation, Rayon, magasin, txtva
    
    Dim pa, pv As Double
    
    
    If Me.FichierReferentiel.Value <> "" Then
        toto = MsgBox("Voulez vous charger le fichier " & Me.FichierReferentiel & " ?", vbYesNo)
            Select Case toto
                Case vbYes ' je désire charger le fichier
                    If Me.AcceptRefActuel.Value = -1 Then ' supprimer tout de la table Treferentiel
                        'CurrentDb.Execute "delete from TReferenciel" 'je supprimer tout de la table TReferenciel
                        
                            
                            Set objet = CreateObject("Scripting.FilesystemObject")
                            chemin = Me.FichierReferentiel.Value ' je repere le chemin
                            Set fichier = objet.opentextfile(chemin)
                            
                            'insere dans la table TReferenciel les valeurs du fichier texte
                            Do While fichier.atendofstream <> True ' si je ne suis pas a la fin du fichier
                                ligne = fichier.readline ' lit ligne par ligne readaline = lit toute les ligne
                                ean = Mid(ligne, 1, 13)
                                designation = Mid(ligne, 15, 58)
                                Rayon = Mid(ligne, 74, 3)
                                magasin = Mid(ligne, 78, 3)
                                pa = Mid(ligne, 83, 10)
                                pa = Format(pa, "##,##0.00")
                                pv = Mid(ligne, 93, 12)
                                pv = Format(pv, "##,##0.00")
                                txtva = Mid(106, 2)
                                
                                ' insersion dans la table
                                
                                 CurrentDb.Execute "insert into TReferenciel " & _
                                      "(Ean,Designation,Rayon,Magasin,PA,PV,id_txtva) " & _
                                      "values ('" & ean & "','" & designation & "','" & Rayon & "','" & magasin & "','" & pa & "','" & pv & "', " & txtva & " )"        
                                
                            Loop
                            fichier.Close ' je ferme le fichier
                            
                     ElseIf Me.AcceptRefActuel.Value = 0 Then
                            '*****MAJ*****
                          
                            Set objet = CreateObject("Scripting.FilesystemObject")
                            Set fichier = objet.opentextfile(chemin)
                            
                            
                            Do While fichier.atendofstream <> True
                            ligne = fichier.readline
                                    ean = Mid(ligne, 1, 13)
                                      Set rst = db.OpenRecordset("select * from TReferenciel where rst!ean =" & ean & " ")
                                If rst.BOF Then ' si mon enregistrement n'existe pas alors
                                
                                      designation = Mid(ligne, 15, 58)
                                      Rayon = Mid(ligne, 74, 3)
                                      magasin = Mid(ligne, 78, 3)
                                      pa = Mid(ligne, 83, 10)
                                      pv = Mid(ligne, 93, 10)
                                      txtva = Mid(106, 2)
                                      
                                      bd.Execute "insert into TReferenciel " & _
                                      "(Ean,Designation,Rayon,Magasin,PA,PV,id_txtva) " & _
                                      "values ('" & ean & "','" & designation & "','" & Rayon & "','" & magasin & "'," & pa & "," & pv & ", " & txtva & " )"
        
                                End If
                            Loop
                            fichier.Close
                     End If
            End Select
                            
                    
    Else
        MsgBox "Aucun Fichier selectionner", vbExclamation
    End If
End Sub

[=JBO=]

Bonsoir,

Apparemment ta requête fonctionne avec DAO.

j'ai un soucis au niveau d'une requête qui n'insere pas les données que je veux.

La syntaxe est bonne, quand je l'execute pas a pas, il n'y a aucun problème, mais quand je consulte la table, les enregistrements n'ont pas été inserés....

Je récupere les données inserées dans un fichier texte. Aussi est ce le fait fait que certain champs sont des clés étrangères d'autre table vide...

Dans l'aide en ligne la méthode Execute, on apprend ceci:

Méthode Execute

[...]

Dans un espace de travail Microsoft Jet, si vous fournissez une instruction SQL dont la syntaxe est correcte et si vous disposez des autorisations appropriées, la méthode Execute n'échoue jamais, même si aucune ligne ne peut être modifiée ou supprimée. Utilisez donc toujours l'option dbFailOnError avec la méthode Execute pour exécuter une requête de mise à jour ou de suppression. Cette option engendre une erreur d'exécution et révoque toutes les modifications réussies si l'un des enregistrements concerné est verrouillé et ne peut être mis à jour ou supprimé.

Si tu modifies ton code avec l'option dbFailOnError cela provoquera une erreur et tu pourras alors lire Err.Description pour en savoir plus.

Code :

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

1
2
3
4
5
6
Dim SQL As String
 
SQL = "insert into TReferenciel " & _
    "(Ean,Designation,Rayon,Magasin,PA,PV,id_txtva) " & _
    "values ('" & ean & "','" & designation & "','" & Rayon & "','" & magasin & "','" & pa & "','" & pv & "', " & txtva & " )"        
CurrentDb.Execute SQL, dbFailOnError

On peut aussi consulter la liste des erreurs directement dans le moteur de base de données: Application.DBengine.Errors
_

[helas]

des oublis ?

Code :

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

1
2
3
4
   CurrentDb.Execute "insert into TReferenciel " & _
                                      "(Ean,Designation,Rayon,Magasin,PA,PV,id_txtva) " & _
                                      "values ('" & ean & "','" & designation & "','" & Rayon & "','" & magasin & "','" & pa & "','" & pv & "', ' " & txtva & " ' )"

tout est du texte apparemment

[Milyshyn76]

Euh oui, enfin il y a des champs prix, cela change t-il quelque chose??

[Pierre Fauconnier]

Bonjour

Les champs numériques ne sont pas encadrés par des apostrophes. Attention au séparateur décimal qui doit être en point en SQL.

Une bonne aide consiste à créer la requête avec l'assistant puis à examiner (voire copier/coller) le code sql

[=JBO=]

Bonjour,

Les champs numériques ne sont pas encadrés par des apostrophes. Attention au séparateur décimal qui doit être en point en SQL.

Une bonne aide consiste à créer la requête avec l'assistant puis à examiner (voire copier/coller) le code sql

+1

On voit bien que ton format numérique n'est pas conforme à ce que le SQL attend:

Code :

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

pa = Format(pa, "##,##0.00")

A la place, voici une suggestion:

Code :

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

pa = Replace( (Format(pa, "#0.00")), ",", ".")

_

[Pierre Fauconnier]

pa = Replace( (Format(pa, "#0.00")), ",", ".")[/CODE]
_

Pourquoi transformer le pa en chaine de caractères... Si le champ qui reçoit la valeur est en numérique, cela me semble plus logique de passer une valeur numérique

[=JBO=]

Salut Pierre,

Pourquoi transformer le pa en chaine de caractères... Si le champ qui reçoit la valeur est en numérique, cela me semble plus logique de passer une valeur numérique

Ma suggestion s'inscrit dans le choix initial de Milyshyn76 qui veut faire un Execute sur une commande SQL et une commande SQL c'est d'abord une chaîne de caractères.

Aussi, le texte de la commande SQL doit être conforme à la syntaxe attendue, et mon petit bout de code est une des adaptations nécessaires pour que cela fonctionne.

Sinon, on peut directement ouvrir un Recordset sur la table cible, faire un AddNew, etc.
Comme ça on insère les données en respectant les types attendus dans les champs de la table.

C'est à Milyshyn76 de voir.
_

[Pierre Fauconnier]

...

Ma suggestion s'inscrit dans le choix initial de Milyshyn76 qui veut faire un Execute sur une commande SQL et une commande SQL c'est d'abord une chaîne de caractères.

Aussi, le texte de la commande SQL doit être conforme à la syntaxe attendue, et mon petit bout de code est une des adaptations nécessaires pour que cela fonctionne....

Oui, tu as raison... j'étais resté sur les apostrophes qui encadrent la valeur de PA à l'intérieur de la chaine SQL...

@ Milyshyn76
Une idée pour faciliter le débogage des chaines sql, c'est d'utiliser une variable de type string pour créer la chaine. Ainsi, tu peux mettre un point d'arrêt et vérifier que la chaine est conforme à ce que SQL attend.

Code :

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

1
2
dim sql as string
sql = "insert into..."

Si pb lors de l'Execute, tu peux analyser ce qui a été réellement passé...

[Milyshyn76]

Code :

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

1
2
3
4
5
6
Dim SQL As String
 
SQL = "insert into TReferenciel " & _
    "(Ean,Designation,Rayon,Magasin,PA,PV,id_txtva) " & _
    "values ('" & ean & "','" & designation & "','" & Rayon & "','" & magasin & "','" & pa & "','" & pv & "', " & txtva & " )"        
CurrentDb.Execute SQL, dbFailOnError

c'est Comme meme Bizard que la cela marche..Enfin Bon Merciiiiiii

[Pierre Fauconnier]

En comparant ta dernière chaine et la première que tu avais donnée, je constate que dans la première, tu ne fermais pas le TxtTVA avec une apostrophe.