Discussion :

[afifaNancy]

Bonjour Tous le monde,

s'il vous plait , comment on peux lire une table access ligne par ligne qui contient une seule colonne ?

Merci

[lelensois16]

Bonjour,

Un peu de DAO ? :

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
Dim oRst as DAO.Recordset
Dim oDb as DAO.Database
Set oDb=CurrentDb
 
Set oRst=oDb.OpenRecordset("SELECT NumClient FROM Client")
 
If oRst.EOF = true then oRst.MoveFirst
While oRst.EOF = false 
    Msgbox oRst.Fields(0).Value 
    oRst.MoveNext
Loop
 
'Libération des objets
oRst.Close
oDb.Close
Set oRst=Nothing
Set oDb=Nothing

Pour plus d'info regardes ici.

[afifaNancy]

bonjour ,

à l'intérieur de la boucle comment je peut stoker un champ dans une chaine de caractére ?

[titi95]

Bonjour

stoker un champ dans une chaine de caractére

C'est-à-dire ? Tu peux préciser ?

titi95

[afifaNancy]

voilà mon programme , il lit une table access et stoke le champ LINE dans une chaine de caractére, qu'il va la traiter par plusieurs fonction aprés , le probléme qui me génére des erreurs Argument ou appel de procedure incorrect

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
 
Dim oRst As Recordset
Dim SATZ As String
 
Set oRst = DB.OpenRecordset("SELECT LINE FROM MAQ_TEST_TAB")
 
If oRst.EOF = True Then oRst.MoveFirst
While oRst.EOF = False
 
   SATZ= oRst.Fields(0).Value
 
'traitement de SATZ par plusieurs procedures
 
    oRst.MoveNext
Wend
 
'Libération des objets
oRst.Close

[VincentNguon]

Juste à chaud comme ça :
- tu n'as pas initialisé DB
- tu n'as pas de End If
- Il me semble que ta boucle If est fausse, oRst.EOF = False plutot que True
- Enfin si SATZ est un string alors j'enlèverais le .Value

[afifaNancy]

Db est declaré
le if ne necessaite pas de end if dans ce cas