[vb6] inserimento nuovo record e istruzione sulle date

[junx]

per aggiungere un nuovo record ad un recordset devi usare addnew.

es. MioRecordset.Addnew

per la funzione della data, ho buttato giù due ricghe, provale e fammi sapere.

Private Function numero_mese(mese As String) As Integer
    Dim i As Integer
    
    For i = 1 To 12
        If LCase(mese) = Format(CDate("01/" & i & "/01"), "mmmm") Then
            numero_mese = Format(CDate("01/" & i & "/01"), "mm")
            Exit Function
        End If
    Next i
End Function

Ciao.