Newsgroup: it.comp.appl.access
Titolo: Errore inserimento immagini

Ciao a tutti,
sto facendo le prove nel mio database con l'inserimento di immagini
(leggere) per vedere se non mi da problemi.
Normalmente me le inserisce tutte (ho messo il controllo immagine dove
verrà inserito il path e la cornice dove viene visualizzata l'immagine), ma
a volte mi da dei problemi con delle immagini ke se anche son piccole (max
30kb) mi  da questo errore:
Impossibile aggingere la quantita di dati  desiderata.
Inserire o Incollare meno dati.
(-2147352567
).
Ma con altre immagini e anche piu grosse (ad esempio una era di 200 kb non
mi da problemi).
Ho usato questo modulo che ho trovato in sitocomune (che mi sembra centri,
ma non ne sono sicuro visto ke in visual basic ancora ho moltissssimo da
imparare):
Option Compare Database
Option Explicit
Private Const MAX_PATH& = 260
Private Const INVALID_HANDLE_VALUE = -1
Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Type WIN32_FIND_DATA  '  318  Bytes
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved¯ As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
Private Declare Function apiFindFirstFile Lib "kernel32" _
    Alias "FindFirstFileA" _
    (ByVal lpFileName As String, _
    lpFindFileData As WIN32_FIND_DATA) _
    As Long
Private Declare Function apiFindClose Lib "kernel32" _
    Alias "FindClose" _
    (ByVal hFindFile As Long) _
    As Long
Private Declare Function apiGetShortPathName Lib "kernel32" _
    Alias "GetShortPathNameA" _
    (ByVal lpszLongPath As String, _
    ByVal lpszShortPath As String, _
    ByVal cchBuffer As Long) _
    As Long
Function fGetShortName(ByVal stLongPath As String) As String
    Dim stShortPath As String
    Dim lngBuffer As Long, lngRet As Long
    stShortPath = String$(MAX_PATH, 0)
    lngBuffer = Len(stShortPath)
    lngRet = apiGetShortPathName(stLongPath, stShortPath, lngBuffer)
    fGetShortName = Left(stShortPath, lngRet)
End Function
Function fGetLongName(ByVal strFileName As String) As String
    Dim lpFindFileData As WIN32_FIND_DATA
    Dim strPath As String, lngRet As Long
    Dim strFile As String, lngX As Long, lngY As Long
    Dim strTmp As String
    strTmp = ""
    Do While Not lngRet = INVALID_HANDLE_VALUE
        lngRet = apiFindFirstFile(strFileName, lpFindFileData)
        strFile = Left$(lpFindFileData.cFileName, _
                    InStr(lpFindFileData.cFileName, _
                    vbNullChar) - 1)
        If Len(strFileName) > 2 Then
            strTmp = strFile & "\" & strTmp
            strFileName = fParseDir(strFileName)
        Else
            strTmp = strFileName & "\" & strTmp
            Exit Do
        End If
    Loop
    fGetLongName = Left$(strTmp, Len(strTmp) - 1)
    lngY = apiFindClose(lngRet)
End Function
Private Function fParseDir(strInFile As String) As String
Dim intLen As Long, boolFound As Boolean
Dim i As Integer, f As String, strDir As String
    intLen = Len(strInFile)
    If intLen > 0 Then
        boolFound = False
        For i = intLen To 1 Step -1
            If Mid$(strInFile, i, 1) = "\" Then
                f = Mid$(strInFile, i + 1)
                strDir = Left$(strInFile, i - 1)
                boolFound = True
                Exit For
            End If
        Next i
        End If
    If boolFound Then
        fParseDir = strDir
    Else
        fParseDir = strInFile
    End If
End Function
Grazie mille x l'aiuto....

 ha scritto nel messaggio
news:Gkq8e.46341$Of5....@nntpserver.swip.net...

Nella Sezione General del  Sito Comune ti consiglio di leggere queste sette
FAQ:
1) 6.13 Come implementare correttamente un archivio di immagini di Stefano
Bettini
2) 6.75 Implementare un archivio di immagini di Silvio Savoldi
3) 6.96 Archiviazione immagini di Franco Cappellaro
4) 6.125 Applicativo per la gestione delle immagini di Alessandro Baraldi
5) 6.160 Selezionare il path di un file immagine visualizzando il suo
contenuto
6) 6.161 Visualizza le immagini contenute in una directory
7) 6.162 Browser per navigare tra i file immagine contenuti in una directory
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 ha scritto nel messaggio
news:b4r8e.69001$zZ1.1...@twister1.libero.it...

CIao ho letto le faq ma non ho capito molto..in effetti non capisco xke la
stessa foto ad esempio, se le lascio il suo nome originale mi da l'errore ke
ho scritto, se invece la rinomino e gli metto "bo", me la inserisce
tranquillamente..