Discussion :

[khlifi hsen]

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 :

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
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

[Thumb down]

Bonjour,
Il faut parcourir ta plage de cellules Excel pour écrire ta requête SQL {insert} !

Code :

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

1
2
3
4
5
6
SQL="INSERT INTO client (prenom, nom, ville, age)  " & _
 "VALUES  " & _
 "('Rébecca', 'Armand', 'Saint-Didier-des-Bois', 24),  " & _
 "('Aimée', 'Hebert', 'Marigny-le-Châtel', 36),  " & _
 "('Marielle', 'Ribeiro', 'Maillères', 27)"
Cn.execute SQL

https://sql.sh/cours/insert-into

[Pierre Fauconnier]

Salut.

J'ai écrit 4 billets de blog sur le sujet. Voici le lien vers le premier.

Au passage, je n'aime pas trop l'insertion à la volée car il faut prévoir les différents cas de figure, et notamment ici le risque de caractères à échapper lors de la création de la requête. Si tu dois insérer le nom, le prénom et la ville de Natacha ursule Marie Madeleine de l'Eau qui dort qui habite à Aigrefeuille d'Aunis, tu vas avoir des problèmes à cause des apostrophes. Perso, je préfère utiliser les paramètres de la requête pour laisse ADODB gérer ces cas problématiques.

[Thumb down]

Bonsoir pierre,
Oui tu as raison mais je n'aime pas gaver mes victimes au premier poste !

Mais j'aurais abordé le problème et offaire la solution.

[khlifi hsen]

Bonsoir,
merci pour vos réponses.
honnêtement je n'ai pas des idées à propos du codage VBA.
voici le tableau que j'ai commencer a créé, peut être vous comprenez un peu ce que je vise
en faite, je souhaite une fois que j'ai finis à faire ma saisie des données transférer et sur supprimer le contenue à l'aide du bouton "Transfert"
merci à vous

[Thumb down]

Bonjour,
Dans ton fichier il faut mettre du texte dans les champs texte, des nombres dans les champs numérique et des dates dans les champs date !