A voir également:
- Lire une table d'une base access
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Table ascii - Guide
- Comment faire une table des matières sur word - Guide
- Lire epub - Guide
- Formules excel de base - Guide
4 réponses
Dim db as database
dim rst as recordset
Set db= currentdb
Set rst = db.openrecordset("Le Nom de ma table", db_open_snapshot)
rst.movefirst
Do until rst.eof
debug.print rst(0)
loop
set rst= nothing
set db = nothing
Voilà, à toi d'arranger dans une procédure pour que cela réponde à tes désidératas!
dim rst as recordset
Set db= currentdb
Set rst = db.openrecordset("Le Nom de ma table", db_open_snapshot)
rst.movefirst
Do until rst.eof
debug.print rst(0)
loop
set rst= nothing
set db = nothing
Voilà, à toi d'arranger dans une procédure pour que cela réponde à tes désidératas!
En plus propre...
Function Lire () as boolean
On Error goto LireErr
Dim db as database
Dim rst as recorset
Dim tbl as tabledef
Dim i as integer, j as integer
set db= currentdb ' ouvre une occurence de ton application
set tbl = db.opentabledef("listing") ' ouvre la définition de ta table
i= tbl.fields.count ' retiens le nombre de champs dans la table
set tbl = nothing 'referme la définition de la table
set rst = db.openrecordset("Listing", db_open_snashot) ' ouvre la table en lecture seule
if not rst.eof ' vérifie si la table n'est pas vide
rst.movefirst ' se pose sur le 1er enregistrement de la table
do until rst.eof ' permet de lire enregistrement par enregistrement jusqu'à la fin de la table
for j = 0 to i-1 ' la liste des objets en access commence toujours à 0 donc le 1er champ est en fait le champ n°0
debug.print rst(j).name & " : " & rst(j) ' affiche dans l'immediate window le nom et la valeur du champs sélectionné
next j ' permet de passer au champs suivant de l'enregistrement
loop ' passe à l'enregistrement suivant
lire = true ' si la function a vien tournée renverra "true"
ResumeErr:
On error resume next ' Empeche de générer une erreur si une des 2 conditions suivantes n'est pas remplie
set rst = nothing ' referme la table
set db = nothing ' referme l'occurence de la db
LireErr:
msgbox err.number & " : " & err.description ' Si la procédure se plante t'indique la raison
lire = false ' Puisque la procédure n'est pas bonne autant l'indiquer ;-)
Resume ResumeErr 'Permet de quitter la procédure
End Function
Function Lire () as boolean
On Error goto LireErr
Dim db as database
Dim rst as recorset
Dim tbl as tabledef
Dim i as integer, j as integer
set db= currentdb ' ouvre une occurence de ton application
set tbl = db.opentabledef("listing") ' ouvre la définition de ta table
i= tbl.fields.count ' retiens le nombre de champs dans la table
set tbl = nothing 'referme la définition de la table
set rst = db.openrecordset("Listing", db_open_snashot) ' ouvre la table en lecture seule
if not rst.eof ' vérifie si la table n'est pas vide
rst.movefirst ' se pose sur le 1er enregistrement de la table
do until rst.eof ' permet de lire enregistrement par enregistrement jusqu'à la fin de la table
for j = 0 to i-1 ' la liste des objets en access commence toujours à 0 donc le 1er champ est en fait le champ n°0
debug.print rst(j).name & " : " & rst(j) ' affiche dans l'immediate window le nom et la valeur du champs sélectionné
next j ' permet de passer au champs suivant de l'enregistrement
loop ' passe à l'enregistrement suivant
lire = true ' si la function a vien tournée renverra "true"
ResumeErr:
On error resume next ' Empeche de générer une erreur si une des 2 conditions suivantes n'est pas remplie
set rst = nothing ' referme la table
set db = nothing ' referme l'occurence de la db
LireErr:
msgbox err.number & " : " & err.description ' Si la procédure se plante t'indique la raison
lire = false ' Puisque la procédure n'est pas bonne autant l'indiquer ;-)
Resume ResumeErr 'Permet de quitter la procédure
End Function
