bonjour
je suis debutant en vb et je cherche a acceder a une table sous access pour aller sélectionner certains enregistrements et les sortir dans un fichier texte.
merci de vos reponses

Voir liens sur
http://forum.hardware.fr/hardwaref [...] 1125-1.htm

c'est pas ce que je veux !!!!!! en fait je fait saisir une date dans un caption et je veux selectionner dans la table access externe les enregistrements concernant cette date et les sortir dans un fichier texte!!!!
merci

Pas de bras pas de chocolat
ce qui se conçoit bien s'énonce clairement

Je pense que tu dois te pencher sur une requète SQL du style:
" SELECT * FROM maTable Where DateMémorisée= '25/12/2005' " par exemple, où maTable est le nom de la table à explorer, et 'DateMémorisée' est le champ présent dans 'maTable', contenant les dates .
Cette requète veux dire: Selectionne tous les champs de la table 'maTable' pour lesquels, le champ 'DateMémorisée' est içi égal à '25/12/2005'.
regarde dans l'aide de VB (c'est assez explicite), à la rubrique: 'SELECT'
 
Ton code doit donner à peu près ça:
 
Option Explicit
' variables communes à toutes les commandes
Dim DB As Database
Dim ra As Recordset
 
Private Sub Form_Load()
Set DB = OpenDatabase("C:\........\BDD.mdb" )
Set ra = DB.OpenRecordset("SELECT * FROM maTable Where DateMémorisée= '25/12/2005'", dbOpenDynaset)
End Sub
 
Ce qui veut dire que 'ra' ne contient que les enregistrements dont le champ 'DateMémorisée' est au '25/12/2005".
(Attention aux espaces qui peuvent 'pourrir' la vie !!)
 
Voilà !!  essaie ça !!
 
Fred....  

http://www.vb-helper.com/AdoTalk/AdoTalk.zip tu as un programme nommé QueryFld.vbp qui te permet de créer des requêtes dont le
résultat est affiché dans une MSFlexgrid
sur le même site http://www.vb-helper.com tu as des exemples de manipulation de MSFlexgrid
 
Pour les dates il me semble que la syntaxe dans une requête doit ressembler à #25/12/2005#
 
pour le Programme QueryFld.vbp
dans la Function WhereClause() as string
tu places un
 
ElseIf IsDate(txtValue(i)) Then
                    where_clause = where_clause & _
                        "([" & cboField(i).Text & "] " & _
                        cboOperator(i).Text & " #" & _
                        Format$(txtValue(i).Text, "mm/dd/yyyy" ) & _
                        "#)  AND "
 
à l'endroit correct
Les crochets permettent d'avoir des champs contenant des espaces
il serait souhaitable d'en ajouter ailleurs
tu as ajouté un champ Date avec qqs valeurs à la base VBUG.mdb
 
Dans Public Sub OpenDatabase(ByVal db_name As String)
 
 m_DBConnection.Open _
  "Provider=Microsoft.Jet.OLEDB.3.51;" & _
  "Persist Security Info=False;" & _
  "Data Source=" & db_name
 
si l'on change de version d'Access pour la base exemple VBUG.mdb
"Provider=Microsoft.Jet.OLEDB.3.51;" sera à changer par exemple en 4.0