[VB6] Data specifica nel mese

[Magicolotto]

Ciao ragazzi...

come potrei far ad individuare una determinata data nel mese?
esempio
io ho una texbox che visualizza ladata in questo formato
02/11/2005

nell'archivio access nel mese ho da 10 a 14 date memorizzate

02/11/2005
03/11/2005
04/11/2005
05/11/2005
06/11/2005 ect. ect.

con un totale di tredici o 14

io dovrei far in modo di trovare di visualizzareo evidenziare la texbox con un colore diverso quando ad esempio viene a visualizzarsi la 2° data di quel mese nel'esempio
03/11/2005

grazie

[MdE2005]

Cerca di essere più chiaro.. Non si capisce come visualizzi i dati del database, cosa significa "la seconda data di quel mese", ecc..

ciao

(Hai risolto con la precedente questione?!)

[Magicolotto]

visualizzo i dati tramite dei recordSet in delle textbox
facendo scrol dei dati

Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Programmi\magicolotto.net\magicolotto.mdb;"


  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "select Data,BA1,BA2,BA3,BA4,BA5,CA1,CA2,CA3,CA4,CA5,FI1,FI2,FI3,FI4,FI5,GE1,GE2,GE3,GE4,GE5,MI1,MI2,MI3,MI4,MI5,NA1,NA2,NA3,NA4,NA5,PA1,PA2,PA3,PA4,PA5,RO1,RO2,RO3,RO4,RO5,TO1,TO2,TO3,TO4,TO5,VE1,VE2,VE3,VE4,VE5,ID from archivio", db, adOpenStatic, adLockOptimistic

  Dim oText As TextBox
  'Associa le caselle di testo al fornitore di dati
  adoPrimaryRS.MoveLast
  For Each oText In Me.txtFields
    Set oText.DataSource = adoPrimaryRS
  Next

la data viene visualizzata nella txtfield(0)

[MdE2005]

Ma ti interessa evidenziare la seconda data del mese INDIPENDENTEMENTE dall'anno oppure vuoi considerarlo?

[Magicolotto]

indipendemente dall'anno

grazie

[MdE2005]

Io ti consiglierei di fare così:
-visto che i mesi dell'anno sono solo(questo è soggettivo) 12 (questo invece oggettivo)
-visto che hai creato una matrice di controlli
Imposta 12 contatori, ognuno per ogni mese dell'anno e nell'evento load del form interessato ponili tutti uguali a zero.
Nell'evento txtfield_change estrai i caratteri corrispondenti al mese
(mese = mid(txtfield(index),4,2) ' cioè estrai 2 caratteri dalla posizione 4 (la data è formattata gg/mm/aaaa, vero?)
Poi inserisci un Select Case per ognuno dei case:
es.
Case is = "01"
if gennaio = "2" then
txtfield(index).backcolor = &hh& ' inserisci il colore che vuoi
else
gennaio = gennaio + 1
case is = "10" ecc.

chiaramente gennaio è una variabile descritta nella prima parte del messaggio

Se non sono stato molto chiaro scrivi pure..ciao

[Magicolotto]

mi posteresti tu il codice..cosi se lo vedo capisco molto di piu

[MdE2005]

dichiara tutte le variabili as Byte fuori dall'evento
form_load ()
g = 0
f = 0
m = 0
a = 0
mag = 0
giu = 0
l = 0
a = 0
s = 0
o = 0
n = 0
d = 0
end sub


Private Sub txtfields_Change(Index As Integer)
mese = Mid(txtfield(Index), 4, 2)
Select Case mese
Case Is = "01"
If g = 2 Then
txtfield(Index).BackColor = &HFF&
Else
g = g + 1
End If
Case Is = "02"
If f = 2 Then
txtfield(Index).BackColor = &HFF&
Else
f = f + 1
End If

continua te gli altri mesi..cmq sto scrivendo senza incollare da visual basic quindi è probabile che ci siano errori di scrittura..non lo posso verificare questo codice!! ora capisci meglio? ciao

[MdE2005]

Mi sono accorto ora di 3 errori (causati dalla stanchezza e dal fatto che non ho qui il programma):
- ho scritto txtfield senza la "s" finale in 2 parole nel codice
- ho omesso di specificare la proprietà Text di txtfields(index).text
- ho omesso la chiusura della selezione, End Select..
............
ciao

[Magicolotto]

error