Récupérer résultat d'une requête SQL ADO

Version imprimable

28/02/2018, 14h20
mattgui

Récupérer résultat d'une requête SQL ADO
Bonjour à tous,

Une petite question en cette journée quelque peu froide mais ensoleillée.

J'essaye de me familiariser avec les requêtes SQL exécutées via ADO.
J'ai une connexion à une base de données Access ouverte comme ceci et dans laquelle j'exécute une requête :
Code:

1 2 3 4 5 6 With CreateObject("Adodb.Connection") .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=monrepertoire;" .Execute ("Select max(Test_ID) from [Tests];") .Close End With
Je souhaite tout simplement récupérer le résultat de ma requête dans une variable mais je n'ai aucune idée de comment m'y prendre ...

Cdt,

Matt

Bonjour,

Code:

1
2
3
4
5
6
7
set Rs=.Execute ("Select max(Test_ID) from [Tests];")

ActiveCell.CopyFromRecordset Execute ("Select max(Test_ID) from [Tests];")

Mytableau=.Execute ("Select max(Test_ID) from [Tests];").getrows

MyString=.Execute ("Select max(Test_ID) from [Tests];").getstring

Salut

Code:

1
2
3
4
5
6
7
8
9
10
11
 
dim rs as object
dim Value
 
With CreateObject("Adodb.Connection")
 
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=monrepertoire;"
    set rs= .Execute("Select max(Test_ID) as Counter from [Tests];")
    value = rs.fields("Counter")
    .Close
End With

28/02/2018, 14h56
mattgui

Bonjour,

En l’occurrence, ce sera le .getstring qui m'intéressera ... Merci beaucoup pour vos réponses !

Cdt

Code:

1
2
3
4
5
6
7
8
9
10
11
With CreateObject("Adodb.Connection")
    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=monrepertoire;"
    With .Execute("Select max(Test_ID) as Counter from [Tests];")
        While Not .EOF
            Value = .Fields("Counter")
            .movenext
        Wend
        .Close
    End With
    .Close
End With

28/02/2018, 15h20
Pierre Fauconnier

Citation:

Envoyé par dysorthographie

[...]

While not rs.eof et .movenext avec select max(...) ... :? :weird:
28/02/2018, 16h44
Invité

Bonjour Pierre,
oui j'ai pas fais gaffe au contenu de la requête!

disons "Select * from [Tests];"
28/02/2018, 16h46
Pierre Fauconnier

Citation:

Envoyé par dysorthographie

[...]
oui j'ai pas fais gaffe au contenu de la requête![...]

Pô grâve... Ca arrive aux meilleurs ;)