Discussion :

[mattgui]

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 :

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

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

[Invité]

Bonjour,

Code :

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

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

[mattgui]

Bonjour,

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

Cdt

[Pierre Fauconnier]

Salut

Code :

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

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

[Invité]

Code :

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

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

[Pierre Fauconnier]

[...]

While not rs.eof et .movenext avec select max(...) ...

[Invité]

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

disons "Select * from [Tests];"

[Pierre Fauconnier]

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

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