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 lintégrité des données en base)
conn.BeginTrans
' definition de lordre SQL
sSQL = " SELECT * FROM table "
'Execution de l'ordre SQL
RsSelect.Open sSQL, conn, adOpenStatic, adLockOptimistic, adCmdText
' Pas derreur, on valide la transaction
conn.CommitTrans
GoTo Suite
ErreurSQL:
conn.RollbackTrans 'la transaction sest mal passée : on annule tout
Suite:
conn.Close 'fermeture de la connexion à la base de données
End Sub |
Partager