Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal
Estou gravando imagens no BD access, não posso gravar o caminho.
Mas esta acontecendo um erro quando o site esta online, quando executo no localhost a imagem é gravada normalmente, mas online aparece que não encontrou o arquivo e mostra outro diretório diferente do diretorio do arquivo.
Exemplo vou colocar no banco a imagem que esta em c:\fotos\colegio.jpg
Quando executo localhost grava normal, mas quando executo online aparece a mensagem abaixo
"Could not find file "C:\WINDOWS\system32\colegio.JPG"."
Repare que o caminho é outro, e não estou conseguindo resolver isso.
Segue abaixo o codigo que estou usando para gravar a imagem no banco.
Private Function GravarImagem(ByVal codigoCliente As Integer) As Boolean
Dim nomeArquivo As String = ""
nomeArquivo = tbImagem.PostedFile.FileName
If Len(nomeArquivo) <> 0 Then
Dim fsFoto As FileStream
fsFoto = New FileStream(nomeArquivo, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim fiFoto As FileInfo = New FileInfo(nomeArquivo)
Dim Temp As Long = fiFoto.Length
Dim lung As Long = Convert.ToInt32(Temp)
Dim picture(lung) As Byte
'le a imagem
fsFoto.Read(picture, 0, lung)
fsFoto.Close()
'
'cria um novo objeto command usando a stored procedure ja criada na base de dados
Dim cmdFoto As New OleDbCommand("spCarregaFoto", cn)
cmdFoto.CommandType = CommandType.StoredProcedure
'recebe os parametros para a stored procedure spCarregaFoto
Dim sql_codigoCliente = New OleDbParameter("CODIGO", codigoCliente)
Dim sql_Foto As New OleDbParameter("IMAGEM", OleDbType.LongVarBinary)
sql_Foto.Value = picture
'adicona os parametros informados
cmdFoto.Parameters.Add(sql_codigoCliente)
cmdFoto.Parameters.Add(sql_Foto)
'executa a stored procedures usando os parâmetros informados
cn.Open()
cmdFoto.ExecuteNonQuery()
cmdFoto.Dispose()
cn.Close()
sql_Foto = Nothing
picture = Nothing
'Return True
Exit Function
End If
End Function
Carregando comentários...