Transfert des données vers une base SQL à l'aide d'un codage VBA
Bonjour à tous,
j'espère que vous allez bien.
Pour la validation de mon stage de fin d'étude je souhaite créer un fichier Excel qui permet de transférer des données d'Excel vers une base qui existe sur SQL server puis les supprimer à l'aide d'un code VBA ( Bouton "Transfert").
Objectif:
-Transférer les données vers la base SQL server
-Supprimer les données qui existe sur Excel.
je serais très reconnaissant si quelqu'un peut m'aider à propos ce sujet.
j'ai trouver un code sur internet pour la connexion entre Excel/SQL server mais comme je n'ai pas d'idée à propos le codage VBA du coup je n'ai pas compris comment le réajuster pour faire le transfert vers ma base SQL.
Le code
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
| Sub Connexion_SQL()
Dim conn As ADODB.Connection
Dim RsSelect As New ADODB.Recordset
Dim sConnString, sSQL As String
On Error GoTo ErreurSQL ' si erreur alors on va dans la section ErreurSQL:
' chaine de connexion vers la base de données
sConnString = "Provider=SQLOLEDB;Data Source=DESKTOP-0ELQ5BU\TEW_SQLEXPRESS; Initial Catalog=produits;User ID=SIG;Password=MDP_ICI;"
' Ouverture de la connexion
Set conn = New ADODB.Connection
conn.Open sConnString
RsSelect.CursorLocation = adUseClient
'Encapsulation dans une transaction (très important pour garantir l’intégrité des données en base)
conn.BeginTrans
' definition de l’ordre SQL
sSQL = " SELECT * FROM table "
'Execution de l'ordre SQL
RsSelect.Open sSQL, conn, adOpenStatic, adLockOptimistic, adCmdText
' Pas d’erreur, on valide la transaction
conn.CommitTrans
GoTo Suite
ErreurSQL:
conn.RollbackTrans 'la transaction s’est mal passée : on annule tout
Suite:
conn.Close 'fermeture de la connexion à la base de données
End Sub |
