Importer des données en sql via macro

Version imprimable

20/04/2015, 18h22
glooping

Importer des données en sql via macro

Je souhaite importer des données d'une base de données sélectivement en utilisant une macro VBA, comment faire?
Merci
20/04/2015, 18h37
gnain

Quel est votre SGBD?
20/04/2015, 20h34
glooping

Sql server 2005
21/04/2015, 07h09
Invité

Bonjour,
Regardes ce lien: http://www.developpez.net/forums/d14...a/#post7767068
22/04/2015, 09h08
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

Bonjour,
essayé comme cela

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

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
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

22/04/2015, 14h10
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
22/04/2015, 16h04
gnain

Citation:

Envoyé par glooping

Quel est le renseignement que je dois fournir dans provider?

Provider=SQLOLEDB.1

Citation:

Envoyé par glooping

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

Data Source=Le chemin du server sql
22/04/2015, 16h59
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!
30/04/2015, 12h25
glooping

Il me met
"Erreur de compilation :
Type défini par l'utilisateur non défini"
Dès la première ligne!
Que faire?
30/04/2015, 12h59
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!