VBA et sql server

Version imprimable

VBA et sql server

Hello,

J'essaye de lancer une requête SQL depuis Excel via une macro dans SQL SERVER 2017, et rappatrier le résultat de la requête dans Excel.

Mais j'ai une erreur 3709 ...

Pouvez-vous m'aider svp ? Je suis sur office 365 + SQL SERVER 2017 (Ref ACTIVE X DATA OBJECT 6.1 cochée)

Erreur sur cette Ligne :

Code:

1
2
 
 rs.Open SQLStr, Cn, adOpenStatic

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
Dim Cn As ADODB.Connection
    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
 
    Server_Name = "MON_SERVEUR" ' Enter your server name here
    Database_Name = "ANA" ' Enter your database name here
    User_ID = "TOTO" ' enter your user ID here
    Password = "TITI" ' Enter your password here
 
    SQLStr = "SELECT * FROM MATABLE" ' Enter your SQL here
 
    Set Cn = New ADODB.Connection
    Cn.connectionstring = "Provider=SQLNCLI11;Server=" & Server_Name & ";Database=" & Database_Name & _
    ";Uid=" & User_ID & ";Pwd=" & Password & ";"
 
    rs.Open SQLStr, Cn, adOpenStatic
     ' Dump to spreadsheet
    With Worksheets("Feuil2").Range("a1:z5000") ' Enter your sheet name and range here
        .ClearContents
        .CopyFromRecordset rs
    End With
     '            Tidy up
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing

Merci par avance.

R@g

Bonjour,
Maintenant pour la qualité de la requête !??

Il ne faut pas oublier d'ouvrir la connexion !

Code:

1
2
3
4
5
6
7
8
9
 
     ' Dump to spreadsheet
Cn.connectionstring = "Provider=SQLNCLI11;Server=" & Server_Name & ";Database=" & Database_Name & _
    ";Uid=" & User_ID & ";Pwd=" & Password & ";"
 Cn.open
    With Worksheets("Feuil2").Range("a1:z5000") ' Enter your sheet name and range here
        .ClearContents
        .CopyFromRecordset cn.execute(SQLStr)
    End With

22/07/2020, 10h20
Rag02700

Hello,

Merci pour ta réponse.

La requête est + interessante que ça mais c'était pour l'exemple.

J'ai une erreur sur mon identifiant maintenant ... :(

Pourtant j'ai bien pris celui indiqué dans sql server ...

Auriez-vous une idée de ce qui coince ?

Merci à vous.

R@g

Bonjour,

Code:

1
2
3
4
Dim Cn As new ADODB.Connection
Cn.open "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server

Hello,

Nope toujours une erreur mais elle a changé.

"Invalid connection string atribute"

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
Dim Cn As ADODB.Connection
    Dim Server_Name As String
    Dim Database_Name As String
    Dim User_ID As String
    Dim Password As String
    Dim SQLStr As String
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
 
    Server_Name = "MON_SERVEUR" ' Enter your server name here
    Database_Name = "ANA" ' Enter your database name here
    User_ID = "TOTO" ' enter your user ID here
    Password = "TITI" ' Enter your password here
 
    SQLStr = "SELECT * FROM MATABLE" ' Enter your SQL here
 
    Set Cn = New ADODB.Connection
    Cn.open "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
 
 
 
         ' Dump to spreadsheet
 With Worksheets("Feuil2").Range("a1:z5000") ' Enter your sheet name and range here
        .ClearContents
        .CopyFromRecordset cn.execute(SQLStr)
    End With
     '            Tidy up
    rs.Close
    Set rs = Nothing
    Cn.Close
    Set Cn = Nothing

L'erreur est sur cette ligne :

Code:

  Cn.open "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server

23/07/2020, 09h57
Thumb down

Bonjour,
Je t'ai donné la méthode que j'utilise pour me connecter à une base de données SQL serveur, avec mes variable !

Il pourrait être judicieux de remplacer les variables par les tiennes. USER par user_id , serveur par serveu_name etc...
23/07/2020, 16h21
Rag02700

Hello,

Désolé j'ai voulu aller trop vite ...

Cependant j'ai le même résultat :(

Code:

Cn.Open "Provider=SQLOLEDB.1;Password=" & Password & ";Persist Security Info=True;User ID=" & User_ID & ";Initial Catalog=" & Database_Name & ";Data Source=" & Server_Name