[VB6] split particolare

[beppenet]

Ciao raga...questa volta sono io davvero...allora...
riempio i campi di un form con i recordset risultanti dalla query e vorrei avvenisse uno split della colonna "data_emis"
tipo così:

Set txtGgDataEmis.DataSource = rs
txtGgDataEmis.DataField = Split(data_emis, "/")

:master:

nella TB del DB il campo data_emiss è in questo formato: 12/12/1981 eio dovrei avere 3 campi del form txtGgDataEmistxt - MmDataEmistxt - AaDataEmis

[beppenet]

non so...cmq. ho risolto in un modo poco fine...ho caricato l'intera data in un capo del form invisibile e al suo Change esso viene splittato e riempie i 3 altri campi dello stesso form!

ecco il codice...magari è un idea per qualcuno

Private Sub txtDataEmis_Change()
Dim DataEmissione As String
Dim data01() As String
data01 = Split(txtDataEmis, "/")
    MsgBox data01(0)
txtGgDataEmis = data01(0)
txtMmDataEmis = data01(1)
txtAaDataEmis = data01(2)
End Sub

fatemi sapere se potevo farlo in modo meno grezzo!

ciao!

[xegallo]

esistono le funzioni year() month() e Day() per estrapolare parti di una data

[beppenet]

ok ma come faccio a farlo qui:

Day()

Set txtGgDataEmis.DataSource = rs
txtGgDataEmis.DataField = Split(data_emis, "/")

[xegallo]

Private Sub txtDataEmis_Change()
   txtGgDataEmis = day(txtDataEmis)
   txtMmDataEmis = month(txtDataEmis)
   txtAaDataEmis = year(txtDataEmis)
End Sub

[beppenet]

ok...anche se speravo di poterlo fare quando leggevo il recordset...perchè in questo modo è ok ma mi da problemi con un ciclo per riempire una combo!

grazie cmq.

[xegallo]

non capisco cosa vuoi dire quelle 3 istruzioni mettile dove vuoi io ho solo preso il codice del tuo primo esempio

[beppenet]

ok solo che ho dei problemi dovuti credo al tipo di campo della data...mi da errore su

txtGgDataEmis = Day(txtDataEmis) mi dice "tipo non corrispondente", potrebbe essere dovuto alla data del DB che è di tipo numerico???

[GudFella]

cosa contiene la variabile txtDataEmis?

[Sypher]

Originariamente inviato da beppenet
ok solo che ho dei problemi dovuti credo al tipo di campo della data...mi da errore su

txtGgDataEmis = Day(txtDataEmis) mi dice "tipo non corrispondente", potrebbe essere dovuto alla data del DB che è di tipo numerico???

non ho capito una data come fa ad essere di tipo numerico...cmq prova a convetire txtDataEmis in data col CDate