connexion a une base de données à partir d'un fichier rtf

[sanach]

bonjour
SVP qui peut me résoudre ce problème.
quelle macro je dois écrire pour me connecter à une base de données sql server à partir d'un fichier rtf.
et est ce que les macro sont la seule solution?
Merci beaucoup

[Heureux-oli]

Ce n'est pas le fichier que se connecte à une base SQL, mais l'application.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub connexionSQL()
Dim rs As ADODB.Recordset
Dim stCon As ADODB.Connection
Dim Utili As String
Dim mdp As String
Utili = ""
mdp = ""
 
 
Set stCon = New ADODB.Connection
With stCon
    .ConnectionString = "UID=" & Utili & ";PWD=" & mdp & ";" & "DRIVER={SQL Server};Server=" & "OLIVIERPC\SQLEXPRESS" & ";Database=" & "DBSQL" & ";"
    .Open
End With
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM Table1", stCon
Debug.Print rs.Fields(2).Value
stCon.Close
Set rs = Nothing
 
End Sub

Voilà un exemple de macro utilisée dans un document Word !