Stockage des données sur server Sql 2005 a travers classeur excel.
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:
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.
