Discussion :

[glooping]

Je souhaite importer des données d'une base de données sélectivement en utilisant une macro VBA, comment faire?
Merci

[gnain]

Quel est votre SGBD?

[glooping]

Sql server 2005

[Invité]

Bonjour,
Regardes ce lien: http://www.developpez.net/forums/d14...a/#post7767068

[glooping]

Finalement, c'est du 2008...

De plus, il ne reconnaît pas ADODBRD

PS: où rentrer le nom de la base dans le premier encart ?
Merci

[gnain]

Bonjour,
essayé comme cela

il faut ajouter la référence: Microsoft ActiveX Data Objects 2.8 Library

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
Sub connect()
 
Dim DB_DATA As ADODB.Connection
Dim RS_DATA As New ADODB.Recordset
Dim sql As String
Dim ConnectionString As String
 
    Set DB_DATA = New ADODB.Connection
    Set RS_DATA = New ADODB.Recordset
 
    ConnectionString = "Provider=SQLOLEDB.1;Data Source=LA SOURCE;Initial Catalog=VOTRE BASE DE DONNEE;User Id=VOTRE ID;Password=VOTRE MOT DE PASSE"
 
    DB_DATA.Open ConnectionString
 
 
    i = 5
 
    sql = "SELECT * FROM [NOM_BASE_DONNE].[dbo].[VOTRE TABLE] where VOTRE_COLONNE ='TOTO' and VOTRE_COLONNE_2 = 'TATA'" & _
        " order by VOTRE_COLONNE,VOTRE_COLONNE_2"
 
    Set RS_DATA = DB_DATA.Execute(sql)
 
    While RS_DATA.EOF = False
        With Sheets("Complet_Individuel")
            .Cells(i, 1).Value = RS_DATA("Votre colonne").Value
        End With
 
        i = i + 1
        RS_DATA.MoveNext
 
    Wend
 
 
    DB_DATA.Close
    Set DB_DATA = Nothing
    Set RS_DATA = Nothing
End Sub