[VB6]gestion des dates

**luckelm** · 18/04/2006, 19h32

j'écris actuellement un petit logiciel pour gérer une association.Pour ce faire j'ai créer une table pour enregistrer les Exercices avec debutExo et finExo.car je voudrais qu'à la fin de chaque exercice connaitrela situation financière de chaque membre et faire un report pour l'exercice suivant.Bref,j'ai une table Exercice .J'ai aussi à coté un formulaire qui à partir de la date du jour doit m'afficher l'Exercice auquel elle appartient.Le problème est que Au niveau de ma base ACCESS j'ai défini toutes ces dates pour les exercice et mon autre formulaire comme text car j'ai des bug lorsque je les défini comme date.
Au niveau de vb6 je manipule les dataPicker .comment arriver à transformer les dates(type text de mes Exercices) pour permettre une commparaison de date au niveau de mon formulaire car pour la date du jour(qui est aussi text) j'arrive à le faire avec CDate
C'est long mais j'aime expliquer avant.

voici mon code

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
 
Private Sub DTPDateJ_Change()
 
  'prend la datedu jour qui est de type text et la transforme en type date
  dat = CDate(DTPDateJ.Value)
 
  'Insere la date dansun contrôle text ou je peux la passer à ma requête sql
  Txtdate.text=dat
 
  rsdate.CursorLocation = adUseClient
  sqldate = "select * from EXERCICE where debutExercice <= '" & Txtdate.Text & "'" and finExercice >='" Txtdate.Text &"'
 
  rsdate.Open sqldate, Cnx, adOpenDynamic, adLockPessimistic, adCmdText
  If rsdate.RecordCount <= 0 Then
    MsgBox "Exercice inexistant veuillez le créer", vbOKOnly, "Exercice"
    rsdate.Close
    Exit Sub
  End If
  Set TxtDebutExo.DataSource = rsdate
  Set TxtFinExo.DataSource = rsdate
  TxtDebutExo.DataField = "debutExercice"
  TxtFinExo.DataField = "finExercice"
  rsdate.Close