none
problema para fazer upload. RRS feed

  • Pergunta

  • 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

    • Editado jundiaí terça-feira, 26 de outubro de 2010 18:55
    sexta-feira, 22 de outubro de 2010 00:46

Respostas

Todas as Respostas