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

[glooping]

Quel est le renseignement que je dois fournir dans provider?
Je suppose que la source est le fichier mais dois-je rajouter le chemin?
Merci

[gnain]

Quel est le renseignement que je dois fournir dans provider?

Provider=SQLOLEDB.1

Je suppose que la source est le fichier mais dois-je rajouter le chemin?

Data Source=Le chemin du server sql

[Invité]

Bonjour,
Tu travail avec un fichier ou un client sql serveur
Dans le lien que je t'ai donné tu as tout.
Si faut adapter pas de problème,ça me fera un autre connecteur ODBC, si non 2005 devrait fonctionner!

[glooping]

Il me met
"Erreur de compilation :
Type défini par l'utilisateur non défini"
Dès la première ligne!
Que faire?

[Invité]

bonjour,
ouvre mon fichier ADODBRD.xls, maintiens le click gauche de la sourie et fais glisser le module de classe ADODBRD vers ton projet!