Discussion :

[lele79]

Bonjour le forum des developpeurs,

Je vous sollicite encore une fois afin de m'eclaircire sur ce que fait se code si-dessous.
C'est un collegue anglophone qui me l'a refilé et étant pas encore familier avec la langue de shakespear et encore moins avec les bases de données, en plus de VBA.
En fait, j'extrait des données de configurations provenant des Automates Programmables sur plusieurs feuilles excel se trouvant dans un classeur ensuite ce dernier sera consultable sur sharepoint.
Ce code se trouvant dans un module de mon classeur permet de parcourir toutes les feuilles de mon classeur et de les stocker ensuite dans le server SQL.

C'est ce que j'ai compris lorsque mon collègue me l'avait filé.
Par curiosité et pour moi même, j'aimerai comprendre ce code ligne par ligne.

En vous remerciant par avance.

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
Sub UpdateDataInBDMSheet(Obj As String, Source As String, Name As String, Value As String)
 
    Dim SqlString As String
    Dim ExecuteState As Object
    On Error GoTo ErrorHandler   
    Dim cst As String
    Dim conn As New ADODB.Connection
    cst = "Provider=sqloledb;Data Source=TestW2K8Srv07;Integrated Security=SSPI;Persist Security Info=False;"
    cst = cst + "Initial Catalog=PointManagement;"
    conn.ConnectionString = cst
    conn.Open
 
    SqlString = "execute ABB_800xA_Objects_InsertUpdate '" + Obj + "', '" + Source + "', '" + Name + "', '" + Value + "'"
    Set ExecuteState = conn.Execute(SqlString)
    'ParentId = ExecuteState("Code")
    conn.Close
    Exit Sub     
 
ErrorHandler:    
    Select Case Err.Number    
        Case Else
            ' Handle other situations here...
            MsgBox ("Source: '" + Err.Source + " Description: " + Err.Description + " SQL: " + SqlString)
            Resume Next
    End Select
 
End Sub

Et si par hasard je suis dans le mauvais forum, n'hésitez à me le dire!

Cordialement,

Lele79.

[jfontaine]

Bonjour,

J'ai ajouté quelques commentaires

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
Sub UpdateDataInBDMSheet(Obj As String, Source As String, Name As String, Value As String)
    'Gestion des erreurs : si ereur aller vers sous procedure ErrorHndler
    On Error GoTo ErrorHandler
 
    'Déclaration des vaiables
    Dim SqlString As String
    Dim ExecuteState As Object
    Dim cst As String
    Dim conn As New ADODB.Connection
 
    'Mettre dans la variable CST la chaine de connexion à la base de données
    cst = "Provider=sqloledb;Data Source=TestW2K8Srv07;Integrated Security=SSPI;Persist Security Info=False;"
    cst = cst + "Initial Catalog=PointManagement;"
 
    'Connexion a la base de donnée
    conn.ConnectionString = cst
    conn.Open
 
    'Lancer la procedure stockée "On Error GoTo ErrorHandler" en utlisant les parametres  de la procedure
    SqlString = "execute ABB_800xA_Objects_InsertUpdate '" + Obj + "', '" + Source + "', '" + Name + "', '" + Value + "'"
    Set ExecuteState = conn.Execute(SqlString)
 
    'ParentId = ExecuteState("Code")
 
    'Fermer la connexion
    conn.Close
    Exit Sub
 
ErrorHandler:
    'Gestion du message d'erreur
    Select Case Err.Number
        Case Else
            ' Handle other situations here...
            MsgBox ("Source: '" + Err.Source + " Description: " + Err.Description + " SQL: " + SqlString)
            Resume Next
    End Select
 
End Sub

[lele79]

Bonjour jfontaine, le forum,

Merci jfontaine, j'ai egalement oublie, egalement,de mentionner si ce code fait bien ce que je disais precedemment, c'est a dire qu'il scrute chaque feuille de mon classeur pour les stocker dans la base de donnees. Car, avec les commentaires que tu viens d'ajouter, je ne vois pas quelque chose du genre :
.....for each worksheet.....scrute les valeurs dans chaque colonne et stock les dans la base de donnees!. c'est ca qui me perturbe dans ce code.
Mais si ce code permets le stockage des valeurs alors tant mieux.

Cordialement,

lele79.

[jfontaine]

Ce code est appelé par une autre procedure que tu n'as pas mis en ligne.
C'est probablement la qu'il y a la boucle

[lele79]

bonjour jfontaine, le forum,

Ce code est appelé par une autre procedure

c'est exact!.
En fait, lorsque l'importation des données provenant de l'API est terminée, j'exétute les codes VB de chaques feuilles pour les exportées dans une autre application.
Je dois appeller ce code a chaque fois que j'identifie chaque colonne des différentes feuilles.

Merci jfontaine.

Bonne journée à tous.

lele79.