[ADO] VBA recordset

Version imprimable

[ADO] VBA recordset

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:

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

bonjour,

Je commencerai par essayer ceci.

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

22/05/2008, 13h57
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:

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.:cry:
Merci d'avance

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:

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:

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:

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?

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:

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:

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

23/05/2008, 13h44
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:

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?
29/05/2008, 15h44
sissi00000

Bonjour pierre

Merci encore pour ta reponse mais malheureusement pour moi ce n'est pas du tout clair....es ce que tu peux me mettre la ligne de code stp car ca fait un moment que je galere a le faire...j y comprends pas trop...

Merci beacoup::D
29/05/2008, 15h53
Pierre Fauconnier
Bonjour

Il faut enlever
Code:

1 2 3 4 With oRs .Fields("Ticker") = "AAB" .Fields("Rating") = "AAA" End With
car cette ligne tente de modifier le recordset. Dès lors, tu ne peux pas obtenir les lignes lors de la la méthode copyfromrecordset

Ok?
29/05/2008, 19h07
sissi00000

J'ai enlevé ces lignes de code et il m'a tout recuperer et c'est pas ce que je veux....je veux recuperer juste les données de cerataines valeurs des champs ticker,rating et secteur par exxemple...donc il faut une requette pour qu'il me recupere genre tous les champs si le champs ticker="ABB" et le champ rating = "AAA",c'est comme faire un filtre pour les données...

es ce que tu me comprends?
es ce que tu peux me dire comment faire stp?

Merci pierre
29/05/2008, 19h29
Pierre Fauconnier
Code:

1 2 select * from ukoo where ticker = 'AAB' and rating = 'AAA'
Je te conseille la visite de
http://sql.developpez.com
http://www.developpez.net/forums/forumdisplay.php?f=655

Tu y trouveras une mine d'infos intéressantes pour créer tes requêtes

Bonjour pierre

Merci encore pour to aide precieuse...

En fait ca marche mais c pas ce que je veux vraiment...
En fait a la place de lui mettre ticker = 'AAB' AND rating = 'AAA', je veux qu'il les recupere dans une cellule sur mon interface excel, ce qui permet de changer juste la valeur de cette cellule et non pas le code pour faire une autre recherche et j'ai fais ca mais ca marche pas :
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 Sub Lecture() Dim oCon As New ADODB.connection Dim oRs As New ADODB.Recordset Dim Tick As String Dim rat As String Dim sect As String Tick = Cells(9, 15).Value rat = Cells(9, 17).Value sect = Cells(9, 11).Value With oCon .ConnectionString = "DSN=MS Access Database;DBQ=J:\Sissi\DataBase\UK.mdb" .Open End With oRs.Open "SELECT * FROM UK00 WHERE Ticker = 'tick' AND Rating = 'rat' ", oCon, adOpenDynamic, adLockBatchOptimistic Worksheets("Sheet2").Activate Worksheets("Sheet2").Range("a2").CopyFromRecordset oRs oRs.Close oCon.Close Set oRs = Nothing Set oCon = Nothing End Sub
ensuite j'ai essayé comme suite:

Code:

oRs.Open "SELECT * FROM UK00 WHERE Ticker = 'Cells(9, 15).Value' AND Rating = 'Cells(9, 11).Value' ", oCon, adOpenDynamic, adLockBatchOptimistic

Pas de message d'erreur mais il les affiche pas...alors que j'ai bien verifié qu'il exciste des données selon ces criters dans ma base....
et ca marche tjs pas:cry:
Es ce que peux voir ce qui va pas stp pierre.

Merci beacoup, tu es trop sympa:lol:

30/05/2008, 18h05
Pierre Fauconnier

Tu dois recomposer la chaine avec les valeurs se trouvant dans les cellules

Code:

...open "SELECT * FROM UK00 WHERE Ticker = '" & Cells(9, 15).Value & "' AND Rating = '" & Cells(9, 11).Value & "'"
06/06/2008, 16h40
sissi00000

Bonjour pierre

Merci beacoup pour ton aide, c super sympa :). C genial ca marche et c'est ce que je voulais afficher :yaisse2:
Cependant j'ai encore deux questions a te poser vu que tu maitrise bien le sujet:
Les resultats que m'affiche cette macro sont sous forme de 18 colones longues,donc je veux (pour faciliter leur lecture et ne pas surcharger mon interface) faire un ascenseur sur ces colones et ensuite dés que je double clique sur une cellule, la valeur de cette cellule est copiée dans une autre cellue pour faire d'autres calculs dessus.
Peux tu stp me dire comment faire?

Many many thanks pierre:king:
06/06/2008, 18h06
Pierre Fauconnier

Pas certain d'avoir compris...

Normalement, tu disposes de la barre de défilement vertical pour te déplacer...

Pour récupérer les données d'une ligne particulière dans une autre feuille, tu peux utiliser RechercheV ou Index(...,Equiv(...))