UPLOAD IMG SU DATABASE MYSQL

[Baol74]

Ma che upload usi?

Tempo fa ho postato del codice per l'upload su db mysql.

[gppjuse]

Sono partito dallo script per Uplodare un file su server ed ho cercato di modifcare le righe finali, anzikè fare scrivere un file sul server, ho provato a farlo scrivere su un db MYSQL dove avevo creato un campo BLOB, ma di tutte le prove ke ho fatto non sono riuscito a scrivere un bel nulla...

[Baol74]

Fammi vedere il codice

[gppjuse]

SUB BuildUploadRequest(RequestBin)
 ...quello ke conosciamo tutti
END SUB


'String to byte string conversion
Function getByteString(StringStr)
            For i = 1 to Len(StringStr)
                        char = Mid(StringStr,i,1)
                        getByteString = getByteString & chrB(AscB(char))
            Next
End Function

'Byte string to string conversion
Function getString(StringBin)
            getString = ""
            For intCount = 1 to LenB(StringBin)
                        getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
            Next
End Function

Function StringToBinary(S)
            Dim i, ByteArray
            For i=1 To Len(S)
                        ByteArray = ByteArray & ChrB(Asc(Mid(S,i,1)))
            Next
            StringToBinary = ByteArray
End Function

Function Validate(String)
            if String = "" then
				Validate = " "
            else
				Validate = Replace(Replace(String,"'","''"),Chr(0),"")
            end if
End Function

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)
DIM UploadRequest
SET UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest  RequestBin

'## Salvataggio logo
str_sql = "UPDATE tb_daticostanti SET dc15 = '"& UploadRequest.Item("blob").Item("Value") &"' "
obj_conn.Execute(str_sql)
CALL close_all

dove il campo dc15 è di tipo BLOB.

Questa è l'ultima prova che ho fatto...

[Baol74]

Ma dov'è la where? Devi Aggiornare tutti i record della tabella o hai un solo record?

[gppjuse]

Ha solo un record

[Baol74]

E tu per un record fai tutto sto casino?

[gppjuse]

Ho la necessità che questa img non venga vista da tutti. Se la copio nella cartella protetta da scrittura, poi non posso riutilizzarla nelle pagine web, per cui questa era la seconda cosa ke mi è venuta in mente.
Cmq, se riuscissi a fare funzionare la cosa la procedura me la "riciclerei" anke per altre cose.

[Baol74]

Allora, a parte l'upload che stai usando che è una ciofeca (al massimo puoi carica 200k), devi usare adodb come ti dicevo

Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "tb_daticostanti",obj_conn,3,3
' Per l'inserimento aggingi Rs.AddNew
Rs("dc15") = UploadRequest.Item("blob").Item("Value")
Rs.Update()
Rs.Close()
Set Rs = Nothing
CALL close_all

Se non funziona prova con

Rs("dc15").AppendChunk UploadRequest.Item("blob").Item("Value")

[gppjuse]

Microsoft OLE DB Provider for ODBC Drivers error '80040e21' 

ODBC driver does not support the requested properties. 

/mydoc/admin/config/personalizz/upload_logo.asp, line 112

la linea 112 è : Rs.Open "tb_daticostanti",obj_conn,3,3

Io uso db MYSQL.