Inserire dati binari

[victor8872]

Ciao
allora si.

Io riesco a caricare il file nella cartella text
e contemporaneamente inserisco il nome del file nel campo name

ecco tutto il codice

Sub caricaFile(Sender as Object, e as EventArgs)

'Ricavo il nome del file con percorso
dim strFile
strFile = mioFile.PostedFile.FileName
'Ricavo il nome del file SENZA percorso
Dim strNomeFile as string
strNomeFile = System.IO.Path.GetFileName(strFile)
dim strPercorsoFileUpload as string
strPercorsoFileUpload = Server.mappath("~/public/test/")
dim strMessaggioFinale as string
'Effettuo UPLOAD con controllo errore
Try
mioFile.PostedFile.SaveAs( strPercorsoFileUpload & "" & strNomeFile)


dim sql as string=" insert into tblFiles (name) values ('"& strNomeFile &"' ) "
dim objcmd2 as new oledbcommand (sql, objconn)
objcmd2.connection.open()
objcmd2.executenonquery()
objcmd2.connection.close()


strMessaggioFinale = "Upload avvenuto correttamente."
strMessaggioFinale = strMessaggioFinale & "Dati del file copiato:<br />"
strMessaggioFinale = strMessaggioFinale & "Dimensione : " & mioFile.PostedFile.ContentLength & " bytes<br />"
strMessaggioFinale = strMessaggioFinale & "Tipologia File : " & mioFile.PostedFile.ContentType & "<br />"
strMessaggioFinale = strMessaggioFinale & "Percorso File : " & mioFile.PostedFile.FileName & "<br />"
catch strEccezzione As Exception
strMessaggioFinale = "Errore: UPLOAD FALLITO.<br />"
strMessaggioFinale = strMessaggioFinale & strEccezzione.ToString
End Try
'Mostro esito upload a video
lbEsito.text = strMessaggioFinale
End Sub

il mio campo varbinary MAX si chiama: data