Discussion :

[Tintou]

Bonjour,

A l'ouverture d'un formulaire (ResultsMainForm), je souhaiterais récupérer dans une textbox (QuestID), les valeurs de la colonne QuestID d'une table liée (dbo_QUESTIONS).
Le but étant de récupérer dans un premier temps la première valeur puis de les faire défiler dans cette même texbox à l'aide d'un bouton.
(L'étape suivante est de récupérer dans cette texbox uniquement les valeurs répondant à certains critères)

Voila ce que j'ai écrit mais je n'obtiens rien dans la texbox (l'évenement est OnLoad):

Code :

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

1
2
3
4
 
Dim list1 As String
list1 = "SELECT QuestID.Value FROM dbo_QUESTIONS ORDER BY dbo_QUESTIONS.QuestID"
Me.QuestID.ControlSource = list1

Merci d'avance.

[Gary_Stoupy]

Bonjour,

Une solution très utile est d'utiliser un recordset...

Code :

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

1
2
3
4
5
Dim rst as new ADODB.Recordset
 
rst.Open ""SELECT QuestID FROM dbo_QUESTIONS ORDER BY dbo_QUESTIONS.QuestID", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
 
me.questID = rst.Open("QuestID")

et le tour est joué...
Après, pour faire défiler, il te suffit d'utiliser une boucle while :

Code :

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

1
2
3
4
do while rst.EOF = false
    blablablablabla
    rst.MoveNext
loop

[titof90]

la meme erreur que j'avais commise il y a une semaine :-)

il n'est pas possible d'utiliser une requete sql comme tu le fais car la requete n'est pas executée et donc ta variable ne contient pas le resultat de ta requete mais ta requete elle meme.

Pour faire ce que tu veux je pense qu'il faut que tu fasses un recordset

edit: arf gary stoopy a été plus rapide que moi lol

[Tintou]

Je vais essayer avec le recordset mais j'avais déjà regarder cette solution et je ne comprends pas très bien à quoi correspondent tous les arguments (je suis novice).
Sinon j'avais aussi fait un essai avec avec la fonction Dlookup et j'arrivais à afficher le premier QuestID mais pas à les faire défiler.

[Tintou]

A l'exécution, j'ai l'erreur : User-defined type not defined sur la première ligne.
Je suis access 97, ça peut venir de ça ?

[titof90]

Il faut que tu rajoutes la librairie "Microsoft DAO" dans le menu "outils" puis "references" ( tout ca dans l'editeur visual basic)

[Tintou]

La librairie était déjà activée, on m'en propose aussi pleins d'aitres versions, mais il ne veut décidément pas reconnaitre cette ligne.
Par contre si j'écris :

Code :

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

1
2
3
4
 
Dim rst  As Recordset
    rst.Open ""SELECT QuestID FROM dbo_QUESTIONS ORDER BY dbo_QUESTIONS.QuestID", rst.Open "SELECT QuestID FROM dbo_QUESTIONS ORDER BY dbo_QUESTIONS.QuestID", TestSQL.Form_ResultsMainForm, adOpenKeyset, adLockOptimistic    
Me.QuestID = rst.Open("QuestID")

l'erreur porte sur adOpenKeyset. (Je ne comprends pas vraiment quels sont ces deux derniers arguments)

[Invité]

Bonjour

C'est une instruction ADO que tu as et non DAO.

De plus il ne faut pas mettre rst.open sur la textbox.

Il faut parcourir le recordset et alimenter la textbox au fur et à mesure par concaténation. Va jeter un coup d'oeil au tuto sur DAO.

Pour ma part j'alimenterais une combobox avec juste la chaine SQL en entrée.

Starec

[titof90]

fais peut etre plutot:

Code :

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

Dim rst  As DAO.Recordset

que

Code :

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

Dim rst  As Recordset

edit: oublie ce que je viens de dire starec a raison ton instruction est une instruction ado pas dao , dsl

[Tintou]

En ce qui concerne la combobox, le problème est que je veux qu'on ne puisse voir qu'une seule info à la fois. C'est un formulaire ou la question apparait et à coté on doit donner la réponse, quand on appuie le bouton next (par ex), une nouvelle question apparait (et à coté un champs vide pour la réponse.

[Tintou]

Ca ça marche (sans les conditions, mais ça devrait marcher avec) :

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
 
Dim db As Database
Dim rs As Recordset
 
Private Sub Command2_Click()  ' pour faire défiler
 
    rs.MoveNext
    Text0 = rs(0).Value
 
End Sub
 
Private Sub Form_Close()   
 
    rs.Close
    Set rs = Nothing
    Set db = Nothing
 
End Sub
 
Private Sub Form_Load()   'Pour récupérer les données
 
    Set db = CurrentDb
    Dim s As String
    s = "SELECT QuestID FROM dbo_Questions"
    Set rs = db.OpenRecordset(s)
 
    rs.MoveLast
    rs.MoveFirst
 
    Text0 = rs(0).Value
 
End Sub

Merci pour vos réponses.