[VB6 - Access] Salvare orario ingresso e uscita programma

[j7-na]

Salve ragazzi,
come da titolo sto cercando di salvare l'orario quando apro il programma e quando chiudo il programma in un database Access, ovviamente nello stesso record e in differenti colonne.


In pratica se apro il programma alle 12.30 e lo chiudo alle 12.50 oppure entro alle 15.30 ed esco alle 16.15, devo visualizzare nel database così:


ID OrarioIngresso OrarioUscita Data

1 12.30 12.50 26/01/2012
2 15.30 16.15 26/01/2012




Il codice ke ho inserito è:

Private Sub Form_Load()

On Error Resume Next
data = Date
Label1.Caption = Time$

End Sub


Private Sub Form_Unload(Cancel As Integer)
Set Conn5 = New ADODB.Connection
Set RS5 = New ADODB.Recordset


Conn5.Open str5
RS5.Open "Table1", Conn5, 3, 3



RS5.AddNew
RS5("Orariouscita") = Label1.Caption
RS5("Data") = data
RS5.Update

Set Conn5 = Nothing
Set RS5 = Nothing
Unload Me
End Sub

Come posso risolvere?
Qualke consiglio?


Grz a tutti!

[oregon]

Originariamente inviato da j7-na
Come posso risolvere?

Ma come puoi risolvere cosa ?

[j7-na]

Come salvare l'orario in ingresso e in uscita in vb6!

Nella tabella che ho inserito si capisce(anke se non è precisa la visualizzazione)...invece il codice che ho inserito, non fà la distinzione, cioè non ci sono riuscito!

[oregon]

Originariamente inviato da j7-na
il codice che ho inserito, non fà la distinzione, cioè non ci sono riuscito!

Ma parlane un minimo del codice che hai inserito !

Funziona? Non funziona? Cosa fa?

Hai presentato del codice e non hai detto quali sono i suoi problemi ! Scusa, ma dobbiamo immaginarli ?

[j7-na]

Allora il codice che ho inserito salva nel database l'orario che vede nella Label e la data giornaliera. Ora vorrei sapere come posso salvare appena apro il programma l'orario(tipo le ore 12.30) e l'orario di quando chiudo il programma(tipo alle ore 12.55) nel database nello stesso linea(record). In pratica nel databse dovrei trovarmi questi campi:


ID Orarioingresso Orariouscita Data
1 | 12.30 | 12. 55 | 26/01/2012


Al momeno come ho inserito io il codice visualizzo nel database solo questo:



ID Orarioingresso Orariouscita Data
1 | .... | 12. 55 | 26/01/2012



Non so in che modo devo salvare all'inizio l'orario d'ingresso e quindi ricodarlo fin quando il programma è in esecuzione...per poi salvarlo quando l'utente chiude i programma.


Capito?

[oregon]

Originariamente inviato da j7-na
Non so in che modo devo salvare all'inizio l'orario d'ingresso e quindi ricodarlo fin quando il programma è in esecuzione...per poi salvarlo quando l'utente chiude i programma.

Capito?

In genere capisco, quando si spiega bene ...

Ti faccio notare che nel codice hai scritto nel Form_Load (e quindi all'avvio)

Label1.Caption = Time$

Ne deduco che ottieni in Label1.Caption l'orario di avvio (anche se potevi usare una variabile stringa piuttosto che una Label, ma non è questo il punto).

Poi, sempre nel codice mostrato, quando fai la Form_Unload (quindi alla fine) scrivi

RS5("Orariouscita") = Label1.Caption

come se quello che c'è nella Label1 fosse l'orario di uscita (semmai è quello di entrata, se non è mai stato modificato ...)

Quindi, presumo che dovresti scrivere

RS5("Orarioingresso") = Label1.Caption
RS5("Orariouscita") = Time$

e non come hai scritto.

[j7-na]

Si in questo modo funziona! Era proprio banale la soluzione...non ci avevo pensato!

Grazie mille "oregon"!