Discussion :

[sissi00000]

Bonjour a tous


j'ai cree une base de donnée Access et la je suis entrain de creer une interface et j'ai besoin de récuperer des données de cette base avec VBA excel car l'interface est sous excel.
J'arrive a me connecter a la base mais j'arrive pas a afficher le resultat que je veux,c a dire que je fais une requette sql sous vba pour recuperer les données qui m'interesse.
J'ai une erreur sur cette ligne ( erreur 424, object required), je ne comprend pas car il me semble que la syntaxe est bonne :Set rst = table.OpenRecordset(request, dbOpenDynaset)

Voila le code :

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
38
39
40
41
42
43
44
45
46
47
48
Dim objConn, objRS
Dim source, table, chemin, BD, fichier, m As String
Dim k, j, lig As Integer
Dim champ, nb_champ, adOpenKeyset
Dim n As Integer
Dim Rs1 As Recordset
 
 
 
'chemin d'acces BD
chemin = "J:\siss\DataBase\"
'nom de la base access
fichier = Range("b1").Value
 BD = fichier & ".mdb"
 source = chemin & BD
 'connection avec la BD
Set objConn = CreateObject("adodb.connection")
 
'pointer sur l'enregistrementcomplet d'une table
Set objRS = CreateObject("adodb.recordset")
 
'ouvrir connection avec access
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & source
 
'table à traiter
table = Range("b2").Value
'ouvrir la table sur l'enr n°1:
 
objRS.Open UCase(table), objConn
 
 
Dim tick As String
tick = Cells(9, 15)
Dim request As String
Dim ret As DAO.Recordset
'Sinon, on recherche la date dans la table
 
        'Construction de la requête
        request = "SELECT table.Isin " & _
                  "FROM table " & _
                  "WHERE table.Ticker= tick"
        Set rst = table.OpenRecordset(request, dbOpenDynaset)
        'Affichage du résultat
        Worksheets(Sheet2).Range("A2").CopyFromRecordset rst
 
 
End Sub

merci pour votre aide

[mayekeul]

bonjour,

Je commencerai par essayer ceci.

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
Dim source As String, table As String, chemin As String, BD As String
Dim fichier As String, tick As String, request As String, m As String
Dim k, j, lig As Integer
Dim champ, nb_champ
Dim n As Integer
Dim rs As DAO.Recordset
Dim db As DAO.Database
 
 
 
'chemin d'acces BD
chemin = "J:\siss\DataBase\"
'nom de la base access
fichier = Range("b1").Value
BD = fichier & ".mdb"
source = chemin & BD
'connection avec la BD
Set db = DBEngine.OpenDatabase(source)
 
'table à traiter
table = Range("b2").Value
'ouvrir la table sur l'enr n°1:
Set rs = db.OpenRecordset("table")
 
tick = Cells(9, 15)
Dim ret As DAO.Recordset
'Sinon, on recherche la date dans la table
'Construction de la requête
request = "SELECT table.Isin " & _
          "FROM table " & _
          "WHERE table.Ticker= tick"
Set rs = rs.OpenRecordset(request, dbOpenDynaset)
'Affichage du résultat
Worksheets(Sheet2).Range("A2").CopyFromRecordset rst

[sissi00000]

bonjour

Merci pour ta réponse mais çà me fait une autre erreur , il ne veut plus se connecter à la base de données avec ce nouveau code.
Voila l'erreur:

ActiveX component can't create object
à la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Set db = DBEngine.OpenDatabase(source)

Es ce que tu peux m'aider s'il te plait, j'ai cherché partout mais je n'arrive toujours pas à comprendre pourquoi mon code ne marche pas.
Merci d'avance

[Pierre Fauconnier]

Bonsoir

Tu dois choisir entre ADODB et DAO, mais tu ne peux pas utiliser les deux.

Personnellement, je choisis ADODB, plus récent technologiquement. Il faut cocher la référence à Microsoft Activex Data Object 2.7

Voici un code qui se connecte à une base Access pour lire la base

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
Sub Lecture()
    Dim oCon As New ADODB.Connection
    Dim oRs As New ADODB.Recordset
 
    With oCon
        .ConnectionString = "DSN=MS Access Database;DBQ=D:\Données\bd6.mdb"
        .Open
    End With
 
    oRs.Open "select * from contacts", oCon, adOpenDynamic, adLockBatchOptimistic
    Feuil2.Range("a1").CopyFromRecordset oRs
 
    oRs.Close
    oCon.Close
    Set oRs = Nothing
    Set oCon = Nothing
End Sub

Voici un code qui écrit dans la base en utilisant l'objet Recordset

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
Sub Ecriture()
    Dim oCon As New ADODB.Connection
    Dim oRs As New ADODB.Recordset
 
    With oCon
        .ConnectionString = "DSN=MS Access Database;DBQ=D:\Données\bd6.mdb"
        .Open
    End With
 
    oRs.Open "select * from contacts", oCon, adOpenDynamic, adLockBatchOptimistic
    oRs.AddNew
    With oRs
        .Fields("nom") = "Tartempion"
        .Fields("prenom") = "José"
    End With
    oRs.UpdateBatch
 
    oRs.Close
    oCon.Close
    Set oRs = Nothing
    Set oCon = Nothing
End Sub

Et voilà une écriture dans la base en sql

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
Sub EcritureSQL()
    Dim oCon As New ADODB.Connection
    Dim oRs As New ADODB.Recordset
    Dim sql As String
 
    With oCon
        .ConnectionString = "DSN=MS Access Database;DBQ=D:\Données\bd6.mdb"
        .Open
    End With
 
    sql = "insert into contacts (nom,prenom) values('Tartempion','René')"
    oCon.Execute sql
 
    oCon.Close
    Set oCon = Nothing
End Sub

A toi d'adapter avec tes données...

Ok?

[sissi00000]

Bonjour


Merci pierre pour ta reponse.
J'ai essayé de l'adapter a mon code pour obtenir les données qui m'interesse mais ca marche tjs pas!!!!

Voila ce que j'ai fait:

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
Sub Lecture()
    Dim oCon As New ADODB.connection
    Dim oRs As New ADODB.Recordset
 
    With oCon
        .ConnectionString = "DSN=MS Access Database;DBQ=J:\sissi\DataBase\BD.mdb"
        .Open
    End With
 
    oRs.Open "select * from UK00 ", oCon, adOpenDynamic, adLockBatchOptimistic
 
 With oRs
        .Fields("Ticker") = "AAB"
        .Fields("Rating") = "AAA"
    End With
    Worksheets("Sheet2").Activate
 
Worksheets("Sheet2").Range("a1").CopyFromRecordset oRs
 
    oRs.Close
    oCon.Close
    Set oRs = Nothing
    Set oCon = Nothing
 
 
 
End Sub

Il me fait une erreur : "Row handles must all be released before new ones can be obtained" a cette ligne de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Sheet2").Range("a1").CopyFromRecordset oRs

je pense qu'il aime pas la zone que je lui ai donné pour coller les données!
Sachant que dans ma table UK00, j'ai 18 champs, moi je veux donc recupéré tous les champs pour le filtre que j'ai definie a savoir le champ Ticker = "AAB" et le champs Rating = "AAA" par exemple...


Es ce que tu peux m'aider stp

[Pierre Fauconnier]

C'est normal.

Tu utilises mon code pour lire les lignes et les intégrer dans ta feuille XL, et en même temps tu modifies le recordset avec le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 With oRs
        .Fields("Ticker") = "AAB"
        .Fields("Rating") = "AAA"
    End With

sans utiliser update. C'est pourquoi tu as un message d'erreur car ton recordset est en attente de mise à jour et ne peut donc pas être lu...

Est-ce clair?