Lire une table sous access

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Lire une table sous access

kyosu

Encore besoin d'aide, j'aimerais créer une boucle pour lire toutes les lignes d'une table jusuq'à atteindre le dernier enregistrement.
Je veux lire la valeur à la ligne 0, puis celle ligne 1..... jusqu'à ligne n.

En vous remerciant d'avance

Publicité

prog1001

Lit toutes les valeurs de chaques enregistrements et les mets dans une MSFLEXGRID.

Code :

Sub LitEnregistrement()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open Adresse_de_la_bdd
End With
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = conn
.Open "SELECT * FROM table", conn, adOpenDynamic, adLockBatchOptimistic
End With
If rst.Fields.Count <> 0 Then
Dim i%
Dim t%
MSFlexGrid1.Rows = 2
Do While Not rst.EOF = True
For t = 0 To rst.Fields.Count - 1
If Not IsNull(rst.Fields(t).Value) Then
MSFlexGrid1.TextMatrix(i + 1, t) = rst.Fields(t).Value
End If
Next t
i = i + 1
rst.MoveNext
MSFlexGrid1.AddItem ""
Loop
End If
Set rst = Nothing
conn.Close
End Sub

Message édité par prog1001 le 27-07-2004 à 09:04:36

kyosu

Je te remercie je vais essayer cela en esperant avoir bien compris

prog1001

il faut référencé Microsoft ActiveX Data Objects (version la plus récente, c'est mieux).

kyosu

bien compliqué je ne suis qu'un novice...
En fait ca ne fonctionne pas

J'ai une table qui référence mes mails par type d'affaire
genre:
Aff001 - Mail Entrant - Date - Ref
Aff002 - Mail Sortant - Date - Ref
Aff001 - Mail Entrant - Date - Ref
Aff001 - Mail Entrant - Date - Ref

J'ai un sélecteur ou je choisis mon affaire et j'aimerais que dans une case il me donne le nombre de mail déja enregistré sur cette affaire, J'ai besoin de cette valeur pour numeroter mes mails par affaire.
genre si je choisis l'affaire Aff001, il doit me renvoyer 3, le mail que j'enregistrerait en suivant aura comme réf. 4.
Le problème que j'essaie de passer est que si je choisis Aff003, n'ayant aucun mail il doit me renvoyer 0

je ne sais pas si j'ai ete clair.

Merci d'avance

prog1001

heu tu fait bien ça sur VB6 au moins parceque si c'est sur access la je ne sais pas faire.

si j'ai bien compris il faut faire une requete pour compter le nombre d'affaire pour l'utiliser comme nouvelle ref pour le prochain mail.

mais avant tous est tu sûre d'avoir référencé 'Microsoft data obj....'
-Menu projet
-Référence...
-Microsoft ActiveX Data Objects 2.7 library (dans la liste)

kyosu

VB6 je suppose !!!

pour référencé ca je ne sais pas...

prog1001

Pour référencé :
-Menu projet
-Références...
-Microsoft ActiveX Data Objects 2.7 library (a coché dans la liste dans la liste)

il faut que tu place une MSflexgrid (dans projet/composants/Microsoft FlexGrid...)

que tu mettes le code vu plus haut. et que tu appelle la procédure
Ex :

Private sub Form_Load()
call LitEnregistrement
End sub

il faut changer dans le code Adresse_de_la_bdd et table

si ça ne marche toujour pas dit-moi ou ça bug

Message édité par prog1001 le 27-07-2004 à 10:31:01

energiez

Tine, une autre méthode, moins performante, mais beaucoup plus simple celon moi:
http://www.supinfo-projects.com/fr [...] donnees_vb

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Lire une table sous access

Sujets relatifs
[ACCESS] Impossible de mettre un combo box.	[Access]Problème date pour faire une recherche genre "mois dernier"
Mise à jour des champs d'une table	Pb SQL SERVEUR / ACCESS : éxecuter une procedure stockée
[Access] Installer les pilotes ODBC	Retourner le dernier element d'une table
[ C# ] problème "access denied"	Tables liées sous access
[MYSQL] Suppression d'enregistrements avec une jointure de table	[ACCESS/VB] MSFlexgrid
Plus de sujets relatifs à : Lire une table sous access

Page générée en 0.045 secondes