Imports System.Data
Imports System.Data.OleDb

Partial Class AdministracaoVozProvincial
    Inherits System.Web.UI.Page

    Protected Sub btnVoltar01_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnVoltar01.Click, btnVoltar02.Click
        Response.Redirect("AdministracaoMenu.aspx")
    End Sub

    Protected Sub btnInserir_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnInserir.Click
        Try
            'Validações dos dados
            If edtTitulo.Text = "" Then
                lblStatus.Text = "<font color='#FF0000'>Informe o título da voz da provincial !!!</font>"
                Exit Sub
            End If
            If edtDescricao.Text = "" Then
                lblStatus.Text = "<font color='#FF0000'>Informe a descrição da voz da provincial !!!</font>"
                Exit Sub
            End If
            If edtFoto.FileName = "" Then
                lblStatus.Text = "<font color='#FF0000'>Informe uma foto para o texto da provincial !!!</font>"
                Exit Sub
            End If
            'Validacões do upload
            If InStr(LCase(edtFoto.FileName), ".jpg") = 0 Then
                lblStatus.Text = "<font color='#FF0000'>A foto selecionada não contém o formato .jpg!</font>"
                Exit Sub
            End If
            If (edtFoto.PostedFile.ContentLength > 1024000) Then
                lblStatus.Text = "<font color='#FF0000'>A foto selecionada não pode ter mais que 1Mb!</font>"
                Exit Sub
            End If
            'Realizando o upload
            Dim strCaminhoFoto As String = Server.MapPath("") & "\Fotos\"
            strCaminhoFoto += Server.HtmlEncode(edtFoto.FileName)
            edtFoto.SaveAs(strCaminhoFoto)
            'Caminho e Instrução SQL
            'Dim strCaminho As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
            '                            Server.MapPath("App_Data/bdIrmasSantaAna.mdb")
            Dim strCaminho As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                                       "F:\export\users\ftpirmasdesanta\database\bdIrmasSantaAna.mdb"
            Dim strSQL As String = "insert into tbVozProvincial (titulo, descricao, foto) values " & _
                                   "('" & edtTitulo.Text & "','" & edtDescricao.Text & "','" & edtFoto.FileName & "')"
            'Objeto de Conexão e Comando (SQL)
            Dim objConexao As New OleDbConnection(strCaminho)
            Dim objComando As New OleDbCommand(strSQL, objConexao)
            'Abrindo a Conexão e preenchendo a Query
            objConexao.Open()
            objComando.ExecuteNonQuery()
            objConexao.Close()
            'Informando, limpando os campos e habilitando o botão voltar...
            edtTitulo.Text = ""
            edtDescricao.Text = ""
            lblStatus.Text = "Os dados da voz da provincial foi inserido com sucesso."
            btnVoltar02.Visible = True
        Catch ex As Exception
            lblStatus.Text = "<font color='#FF0000'>Erro ao tentar inserir os dados da voz da provincial !!! <br> Erro Interno: " & ex.Message & "</font>"
        End Try
    End Sub
End Class