[vb6] inserimento nuovo record e istruzione sulle date

[Loue]

ciao a tutti,
ho bisogno di un aiuto molto urgente. Ho impostato con visual basic la connessione ad un database Access (2000) tramite microsoft jet e ho bisogno di sapere come fare per aggiungere nuovi record ad esso.

mi servirebbe anche sapere un'istruzione che dato il nome per intero di un mese, mi restituisca la sua posizione assoluta in intero all'interno dell'anno.

un grazie internazionale!

[MMarzia]

per VB c'è l'apposito subforum: ti sposto lì

però specifica di quale versione si tratta

[Loue]

ops, chiedo scusa.


uso la versione 6.0

[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.

[Loue]

purtroppo mi dava dei problemi sull'exit function e end function. Tolto quello, non me lo calcolava. Ma non so perchè, leggendo il tuo codice mi è venuta un'idea:

Dim i As Integer
    For i = 1 To 12
        If MonthName(i) = LCase(CStr(Text1(0).Text)) Then
                num = i
                Exit For
        End If
    Next i
End Sub

perfettamente funzionante. Grazie.

una cosa: cosa c'è di sbagliato qui?

Dim cn as New ADODB.Connection

perchè mi dà errore di "Type Mismatch".

[junx]

una cosa: cosa c'è di sbagliato qui? 

Dim cn as New ADODB.Connection 

perchè mi dà errore di "Type Mismatch".

perchè di sicuro non hai referenziato ADO.

da Progetto>Riferimenti>Microsoft Data Objects 2.X Library

[Loue]

avevi ragione, mancava l'active data object!! Di nuovo Grazie! :metallica