none
ACCESS 2007 VB 2008 Piece Jointe RRS feed

  • Question

  • Bonjour,

    Je veux utiliser ce code :
    http://access.developpez.com/faq/?page=PJVBA#PJEnregistrerVBA
    J'utilise VB2008 et Access 2007

    [code]

    Function EnregistrerFichier(strNomFichier As String, inteleve As Integer, strNomDestination) As Boolean
    On Error GoTo err
    Dim oRst As DAO.Recordset
        'Ouvre un recordset sur les fichiers de l'éleve passé en paramètre
    Set oRst = CurrentDb.OpenRecordset("SELECT Fichiers.FileData FROM tbl_eleve WHERE [N°]=" & _
                inteleve & " AND Fichiers.FileName=" & Chr(34) & strNomFichier & Chr(34))
        If Not oRst.EOF Then
       
            oRst.Fields(0).SaveToFile strNomDestination
            EnregistrerFichier = True
        End If   
    fin:
    Set oRst = Nothing
    Exit Function
       
    err:
        Select Case err.Number
        Case 3839:
            MsgBox "Impossible d'écraser le fichier", vbCritical
        Case Else
            MsgBox "Erreur inconnue", vbCritical
        End Select
        Resume fin
    End Function

    [/code]
    Le problème c'est que que currentDB n'est pas défini (d'ailleur j'ai pas compris à quoi ça sert), et que Set n'est plus valide en en VB 2008.

    Je vous remercie d'avance.
    mardi 13 juillet 2010 14:43

Réponses

  • Bonjour,

    Le current DB correspond a la base de donnée dans access vous ne l'aurez pas automatiquement dans visual studio, de plus dans vb2008 il est conseiller d'utilisé ADO.Net et non DAO. vous pouvez créé une instance de base de donnée ado et mapper tout les fonctions existantes.

    Est ce que vous essayer de migrer une application accesssous visual studio 2008 ?

    Cordialement

    Sébastien

    • Marqué comme réponse Alex Petrescu jeudi 15 juillet 2010 11:42
    mardi 13 juillet 2010 20:52