stocker resultat requete access dans cellule excelRésolu

Question

Bonjour,

Je souhaiterai afficher ou stocker dans une cellule excel le resultat d'une requete sur une base access effectuée dans un code vba. 

La structure de la table est la suivante :



Table : Histovol
Champs:
ISIN de type Text
VI_ASK de type Text
DAT de type Date\Time



Voici le code de ma procedure de test :

Sub test()



Static sql2 As String
Dim db As Database
Dim isin_oc As String



isin_oc = "FR0000492076"



'OUVERTURE DE LA BASE
Set db = OpenDatabase("C:\Documents and Settings\kelhah\Desktop\TEST.mdb")



sql2 = "select (cdbl(vi_ask)+cdbl(vi_bid))/2 from histovol where dat=(date()-8) and ISIN='" & isin_oc & "'"



'db.OpenRecordset



Set rs = db.OpenRecordset(sql2)



rs.OpenRecordset



'MsgBox (rs)



db.Close



End Sub


Merci pour votre aide

cs_Exploreur · Accepted Answer

Salut,

Je pense un truc du genre.... : 

rs.OpenRecordset

While Not Rs.Eof

          MsgBox Rs.Fields("vi_ask")
          MsgBox Rs.Fields("vi_bid")
          MsgBox Rs.Fields("Dat")

          Rs.MoveNext

 Wend

db.CloseEnd Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

khalton · Answer

Merci !

sourire45 · Answer

bonjour,

Voila j'ai un petit soucis avec un appli réaliser sous excel 97 avec une connection a une base access 97.

On me demande faire faire fonctionner cette appli sous excel 2003 et en utilisant toujours access 97.

dans cette appli j'ai des procédures qui font appel a la base de données forcément le code n 'est pas le meme.

Sous Vba 97 j ai le code suivant  : 

   'Requete pour le CO
        a = "select sum(" & Range("Parametre!E11") & ") from " & Range("Parametre!D7") & " where " & Range("Parametre!D11") & " like '" & Worksheets("COdispatcher").Cells(7, colCOd) & "';"
        Sheets("COdispatcher").Select
        With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
            "ODBC;DSN=MS Access 97 Database;DBQ=" & Range("Parametre!D6") & ";DefaultDir=N:\METHODES\_TRAVAIL;DriverId=281;FIL" _
            ), Array("=MS Access;MaxBufferSize=2048;PageTimeout=5;")), Destination:=Worksheets("COdispatcher").Cells(7, colCOd + 2)) 'emplacement du resultat
            .Sql = a
            .FieldNames = False 'Nom des champs de la BD
            .RefreshStyle = xldeleteEntireRows ' Pour l insertion des nouvelles données
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .RefreshOnFileOpen = False
            .HasAutoFormat = False 'surement a laisser
            .BackgroundQuery = True
            .TablesOnlyFromHTML = True
            .Refresh BackgroundQuery:=False
            .SavePassword = True
            .SaveData = True
        End With

J ai essayé de modifier ce code pour le rendre fonctionnel sous VB 6.3, ca donne ca : 

  'Déclaration des variables
    Dim cnx As ADODB.connection
    Dim rst As ADODB.Recordset


    'Instanciation des variables
    Set cnx = New ADODB.connection
    Set rst = New ADODB.Recordset
     'Requete pour le CO
        
     'Connexion à la base de données
        cnx.ConnectionString = "Provider=" & "Microsoft.Jet.Oledb.3.51" & ";DSN=" & "Ms Access 97 Database" & ";"


        cnx.Open


        'Exécution de la requête et récupération des données.


        rst.Open "SELECT sum(" & Range("Parametre!E11") & ") from " & Range("Parametre!D7") & " where " & Range("Parametre!D11") & " like " & Worksheets("COdispatcher").Cells(7, colCOd).cnx
        'rst.Fields ("") "et la je sais pas comment je fais pr recupérer les données!!!!! 

ce que je voulais savoir c comment faire pour que mon resultat de la requete sql soit affecter a la feuille et a la cellulue correspondante (je sais pas si c compris ;))c'est a dire en faite ca en 97 : [Destination:=Worksheets("COdispatcher").Cells(7, colCOd + 2)) 'emplacement du resultat
]

merci pour votre aide je suis debutante en vba donc j ai essayé de faire ce que je peux mais bon je sais pas si c le bon chemin....

PS : j utilise ADO alors qu en 97 c etait du DAO.

Merci

cs_Exploreur · Answer

Salut,


Je ne sais pas si j'ai bien compri, mais utilise ton RecordSet( rst ) pour cela...


A+
Exploreur

 Linux a un noyau, Windows un pépin

sourire45 · Answer

re,

je me doutes bien qu il faut que j utilise mon Recordset mais je vois pas du tout comment faire, par ou commencer???

help me, please

Stocker resultat requete access dans cellule excel

5 réponses

Votre réponse