Boa noite !
Estou com um problema para fazer upload no meu programa...quero inserir videos na minha base de dados...quando clico no botão salvar, o caminho do diretorio some e nd acontece....quando vo para a proxima pagina n aparece nem um video postado e nem
no sql server.
Imports
System.IO
Imports
WebRole1.VideosTableAdapters
Partial
Public Class Videos1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub btn_publicarvideo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_publicarvideo.Click
Dim mensagem As String = ""
Dim mimeType As String = ""
If txt_titulo.Text <> String.Empty Then
If txt_descricao.Text <> String.Empty Then
If FileUpload1.HasFile Then
Dim extensaoArquivo As String = Path.GetExtension(FileUpload1.FileName.ToUpper)
Select Case extensaoArquivo
Case ".AVI"
mimeType =
"video/avi"
Case ".WMV"
mimeType =
"video/x-ms-wmv"
Case Else
mensagem =
"Tipo de vdeo invalido. (Somente .avi e .wmv so aceitos !)"
End Select
If mensagem = String.Empty Then
gravaVideo(txt_titulo.Text, _
FileUpload1.FileName, _
txt_descricao.Text, _
User.Identity.Name, _
mimeType, _
FileUpload1.FileBytes, _
DateTime.Now, _
True, _
False)
End If
Else
mensagem =
"Nenhum arquivo foi selecionado !"
End If
Else
mensagem =
"Informe a descrio do vdeo"
End If
Else
mensagem =
"Informe o ttulo do vdeo"
End If
lblmensagem.Text = mensagem
End Sub
Private Sub gravaVideo(ByVal tit As String, _
ByVal arq As String, _
ByVal desc As String, _
ByVal user As String, _
ByVal mime As String, _
ByVal bytes As Byte(), _
ByVal dat As DateTime, _
ByVal at As Boolean, _
ByVal pub As Boolean)
Dim mensagem As String = ""
Dim videoAdapter As VideosTableAdapters.VideosTableAdapter = New VideosTableAdapters.VideosTableAdapter()
Try
videoAdapter.Insert(tit, arq, desc, user, mime, bytes, dat, at, pub)
txt_titulo.Text =
""
txt_descricao.Text =
""
lblmensagem.Text =
"Video " & tit & " Includo na base de vdeos com sucesso !"
Catch ex As Exception
lblmensagem.Text =
"Erro ao incluir o vdeo " & tit & " na base de vdeos " & ex.Message.ToString
End Try
End Sub
End
Class
