Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

pipasmeimoa

Programa de gestao de multimedia

Mensagens Recomendadas

pipasmeimoa

Private Sub Guardar_Click()
Dim Resp As Integer, Mens As String

Mens = "Deseja guardar os dados inseridos? "
Resp = MsgBox(Mens, vbYesNo + vbQuestion, "Question")

If Resp = vbYes Then

If aba.Tab = 0 Then

If musicartista.Text = Empty Then
MsgBox "Prencha o campo ARTISTA", vbCritical + vbOKOnly, "ERRO"
'musicartista.SetFocus

ElseIf musicanome.Text = Empty Then
MsgBox "Prencha o campo NOME", vbCritical + vbOKOnly, "ERRO"
'musicanome.SetFocus

ElseIf musicalbum.Text = Empty Then
MsgBox "Prencha o campo ALBUM", vbCritical + vbOKOnly, "ERRO"
'musicalbum.SetFocus

ElseIf Combo4.Text = Empty Then
MsgBox "Prencha o campo ANO", vbCritical + vbOKOnly, "ERRO"
'Combo4.SetFocus

ElseIf Combo5.Text = Empty Then
MsgBox "Prencha o campo GENERO", vbCritical + vbOKOnly, "ERRO"
'Combo5.SetFocus
Else

Data1.Recordset.Update

musicartista.Enabled = False
musicanome.Enabled = False
musicalbum.Enabled = False
Combo4.Enabled = False
Combo5.Enabled = False


adicionar.Enabled = True
visualizador.Enabled = False
Procurar.Enabled = True
Guardar.Enabled = False
Editar.Enabled = True
Cancelar.Enabled = False
Eliminar.Enabled = False
About.Enabled = True
Sair.Enabled = True

Data1.Refresh
Data2.Refresh
Data3.Refresh
Data4.Refresh

Data1.Recordset.Bookmark = Data1.Recordset.LastModified

MsgBox "Registo guardado!"

End If

ElseIf aba.Tab = 1 Then

If filmenome.Text = Empty Then
MsgBox "Prencha o campo NOME", vbCritical + vbOKOnly, "ERRO"
filmenome.SetFocus

ElseIf Combo1.Text = Empty Then
MsgBox "Prencha o campo GENERO", vbCritical + vbOKOnly, "ERRO"
Combo1.SetFocus

ElseIf Combo2.Text = Empty Then
MsgBox "Prencha o campo LEGENDAS", vbCritical + vbOKOnly, "ERRO"
Combo2.SetFocus

ElseIf Combo3.Text = Empty Then
MsgBox "Prencha o campo ANO", vbCritical + vbOKOnly, "ERRO"
Combo3.SetFocus
Else



Data2.Recordset.Update

filmenome.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False

adicionar.Enabled = True
visualizador.Enabled = False
Procurar.Enabled = True
Guardar.Enabled = False
Editar.Enabled = True
Cancelar.Enabled = False
Eliminar.Enabled = False
About.Enabled = True
Sair.Enabled = True

MsgBox "Registo guardado!"


Data1.Refresh
Data2.Refresh
Data3.Refresh
Data4.Refresh

Data2.Recordset.Bookmark = Data2.Recordset.LastModified

End If
End If
End If

End Sub

----------------------------------------------------------------------------------------------------------------

Boas, esse codigo é referente a um programa de gestao de multimedia, onde temos musicas e filmes para catalogar.

Eu já consegui introduzir dados do programa mas de momento esta-me a dar o erro 3020.

Será que alguém me pode dar uma ajuda??

Este programa é para apresentar amanha.

Agradecia a vossa compreenção.

Se for nessario eu posto o programa completo.

Obrigado


FILIPE_CORREIA

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
pipasmeimoa

Boa tarde, programadorvb6 obrigado por teres visto o meu post.

nao será melhor eu colocar o programa completo??

Nao sou um grande profissional em VB6.

Cumpz


FILIPE_CORREIA

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
programadorvb6

Eu também não.

Mas penso que seria melhor pores o zip ou parte do programa principal onde está o erro.

Só mostras a rotina para gravar e o resto ?

Até+

Programadorvb6

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
pipasmeimoa
Private Sub Arquivos_Click()
previsualizar.Enabled = True
carregar.Enabled = True
End Sub

Private Sub About_Click()
Aboutt.Show
End Sub

Private Sub Combo6_Click()
txtpesquisam.Enabled = True
End Sub
Private Sub Combo7_Click()
txtpesquisaf.Enabled = True
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path 'Vai buscar o ficheiro as directorias
End Sub

Private Sub Dir2_Change()
File2.Path = Dir2.Path
End Sub
Private Sub Dir3_Change()
File3.Path = Dir3.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive 'Vai buscar directorias as drives
End Sub

Private Sub Drive2_Change()
Dir2.Path = Drive2.Drive
End Sub
Private Sub Drive3_Change()
Dir3.Path = Drive3.Drive
End Sub

Private Sub adicionar_Click()

If aba.Tab = 0 Then
    MsgBox "Pode introduzir os dados", vbOKOnly + vbInformation, "Mensagem"
    
    musicartista.Enabled = True
    musicartista.SetFocus
    musicanome.Enabled = True
    musicalbum.Enabled = True
    Combo4.Enabled = True
    Combo5.Enabled = True
    Drive1.Enabled = True
    Dir1.Enabled = True
    File1.Enabled = True
    
    adicionar.Enabled = False
    visualizador.Enabled = False
    Procurar.Enabled = False
    Guardar.Enabled = True
    Editar.Enabled = False
    Cancelar.Enabled = True
    Eliminar.Enabled = False
    About.Enabled = False
    Sair.Enabled = False
    
    Data1.Recordset.AddNew
    

ElseIf aba.Tab = 1 Then
    MsgBox "Pode introduzir os dados", vbOKOnly + vbInformation, "Mensagem"
    
    filmenome.Enabled = True
    filmenome.SetFocus
    Combo1.Enabled = True
    Combo2.Enabled = True
    Combo3.Enabled = True
    Drive2.Enabled = True
    Dir2.Enabled = True
    File2.Enabled = True
    
    adicionar.Enabled = False
    visualizador.Enabled = False
    Procurar.Enabled = False
    Guardar.Enabled = True
    Editar.Enabled = False
    Cancelar.Enabled = True
    Eliminar.Enabled = False
    About.Enabled = False
    Sair.Enabled = False
    
    Data2.Recordset.AddNew
End If
Data1.Refresh ' Efectua uma actualização à base de dados
Data2.Refresh
Data3.Refresh
Data4.Refresh
Data5.Refresh
Data6.Refresh
End Sub

Private Sub Guardar_Click()
Dim Resp As Integer, Mens As String

Mens = "Deseja guardar os dados inseridos? "
Resp = MsgBox(Mens, vbYesNo + vbQuestion, "Question")

If Resp = vbYes Then
    
If aba.Tab = 0 Then
    
    If musicartista.Text = Empty Then
        MsgBox "Prencha o campo ARTISTA", vbCritical + vbOKOnly, "ERRO"
        'musicartista.SetFocus

    ElseIf musicanome.Text = Empty Then
        MsgBox "Prencha o campo NOME", vbCritical + vbOKOnly, "ERRO"
        'musicanome.SetFocus

    ElseIf musicalbum.Text = Empty Then
        MsgBox "Prencha o campo ALBUM", vbCritical + vbOKOnly, "ERRO"
        'musicalbum.SetFocus

    ElseIf Combo4.Text = Empty Then
        MsgBox "Prencha o campo ANO", vbCritical + vbOKOnly, "ERRO"
        'Combo4.SetFocus
    
    ElseIf Combo5.Text = Empty Then
        MsgBox "Prencha o campo GENERO", vbCritical + vbOKOnly, "ERRO"
        'Combo5.SetFocus
    Else

    Data1.Recordset.Update
    
    musicartista.Enabled = False
    musicanome.Enabled = False
    musicalbum.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
    

    adicionar.Enabled = True
    visualizador.Enabled = False
    Procurar.Enabled = True
    Guardar.Enabled = False
    Editar.Enabled = True
    Cancelar.Enabled = False
    Eliminar.Enabled = False
    About.Enabled = True
    Sair.Enabled = True
    
    Data1.Refresh
    Data2.Refresh
    Data3.Refresh
    Data4.Refresh
    
    Data1.Recordset.Bookmark = Data1.Recordset.LastModified
    
    MsgBox "Registo guardado!"
   
    End If

ElseIf aba.Tab = 1 Then

    If filmenome.Text = Empty Then
        MsgBox "Prencha o campo NOME", vbCritical + vbOKOnly, "ERRO"
        filmenome.SetFocus

    ElseIf Combo1.Text = Empty Then
        MsgBox "Prencha o campo GENERO", vbCritical + vbOKOnly, "ERRO"
        Combo1.SetFocus

    ElseIf Combo2.Text = Empty Then
        MsgBox "Prencha o campo LEGENDAS", vbCritical + vbOKOnly, "ERRO"
        Combo2.SetFocus

    ElseIf Combo3.Text = Empty Then
        MsgBox "Prencha o campo ANO", vbCritical + vbOKOnly, "ERRO"
        Combo3.SetFocus
    Else

    
    
    Data2.Recordset.Update
    
    filmenome.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    
    adicionar.Enabled = True
    visualizador.Enabled = False
    Procurar.Enabled = True
    Guardar.Enabled = False
    Editar.Enabled = True
    Cancelar.Enabled = False
    Eliminar.Enabled = False
    About.Enabled = True
    Sair.Enabled = True
    
    MsgBox "Registo guardado!"
    

    Data1.Refresh
    Data2.Refresh
    Data3.Refresh
    Data4.Refresh
    
    Data2.Recordset.Bookmark = Data2.Recordset.LastModified
    
    End If
End If
End If

End Sub


Private Sub anterior_Click()

If Data1.Recordset.BOF Then
    If Data1.Recordset.EOF Then
        MsgBox "Base de Dados vazia!", vbInformation + vbOKOnly, "Informação"
    End If
Else
    Data1.Recordset.MovePrevious
        If Data1.Recordset.BOF Then
            Data1.Recordset.MoveFirst
        End If
End If



End Sub

Private Sub back_Click()

If Data2.Recordset.BOF Then
    If Data2.Recordset.EOF Then
        MsgBox "Base de Dados vazia!", vbInformation + vbOKOnly, "Informação"
    End If
Else
    Data2.Recordset.MovePrevious
        If Data2.Recordset.BOF Then
            Data2.Recordset.MoveFirst
        End If
End If



End Sub

Private Sub backall_Click()
    If Data2.Recordset.BOF Then
        MsgBox " Base de dados vazia", vbInformation + vbOKOnly, "Informação"
    Else
        Data1.Recordset.MoveFirst
    End If
End Sub

Private Sub Cancelar_Click()
    
If aba.Tab = 0 Then
    musicartista.Enabled = False
    musicanome.Enabled = False
    musicalbum.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = True
    
    musicartista.Text = Empty
    musicanome.Text = Empty
    musicalbum.Text = Empty
    Combo4.Text = Empty
    Combo5.Text = Empty
    
    
    
    adicionar.Enabled = True
    visualizador.Enabled = False
    Procurar.Enabled = True
    Guardar.Enabled = False
    Editar.Enabled = True
    Cancelar.Enabled = False
    Eliminar.Enabled = False
    About.Enabled = True
    Sair.Enabled = True
    
    Me.aba.TabVisible(3) = False ' Torna a aba 3 invisivel
    
    
ElseIf aba.Tab = 1 Then
    
    filmenome.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    
    filmenome.Text = Empty
    Combo1.Text = Empty
    Combo2.Text = Empty
    Combo3.Text = Empty
    
    adicionar.Enabled = True
    visualizador.Enabled = False
    Procurar.Enabled = True
    Guardar.Enabled = False
    Editar.Enabled = True
    Cancelar.Enabled = False
    Eliminar.Enabled = False
    About.Enabled = True
    Sair.Enabled = True
    
    Me.aba.TabVisible(3) = False
    
ElseIf aba.Tab = 3 Then
   
    musicartista.Enabled = False
    musicanome.Enabled = False
    musicalbum.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = True
    musicartista.Text = Empty
    musicanome.Text = Empty
    musicalbum.Text = Empty
    Combo4.Text = Empty
    Combo5.Text = Empty
    
    filmenome.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False
    filmenome.Text = Empty
    Combo1.Text = Empty
    Combo2.Text = Empty
    Combo3.Text = Empty
    
    adicionar.Enabled = True
    visualizador.Enabled = False
    Procurar.Enabled = True
    Guardar.Enabled = False
    Editar.Enabled = True
    Cancelar.Enabled = False
    Eliminar.Enabled = False
    About.Enabled = True
    Sair.Enabled = True
    
    Me.aba.TabVisible(3) = False
    
    
End If
Data1.Refresh
Data2.Refresh
Data3.Refresh
Data4.Refresh
Data5.Refresh
Data6.Refresh
    
End Sub

Private Sub Editar_Click()
Dim n As String
If Data1.Recordset.EOF And Data1.Recordset.BOF And Data2.Recordset.EOF And Data2.Recordset.BOF Then  'Verifica se existem
    n = MsgBox("Não existem dados guardados", vbOKOnly + vbCritical, "Informação")                   'dados na BD
Else



If aba.Tab = 0 Then

            If MsgBox("Deseja editar este registo?", vbYesNo + vbQuestion, "Question") = vbNo Then
            MsgBox "Registo não editado!!"
            
            musicartista.Enabled = False
            musicanome.Enabled = False
            musicalbum.Enabled = False
            Combo4.Enabled = False
            Combo5.Enabled = False
            
            
            adicionar.Enabled = True
            visualizador.Enabled = True
            Procurar.Enabled = True
            Guardar.Enabled = False
            Editar.Enabled = True
            Cancelar.Enabled = False
            Eliminar.Enabled = True
            About.Enabled = True
            Sair.Enabled = True
            
        
        Else
            
            musicartista.Enabled = True
            musicanome.Enabled = True
            musicalbum.Enabled = True
            Combo4.Enabled = True
            Combo5.Enabled = True
            
            Data1.Recordset.Edit
            
            adicionar.Enabled = True
            visualizador.Enabled = True
            Procurar.Enabled = True
            Guardar.Enabled = False
            Editar.Enabled = True
            Cancelar.Enabled = False
            Eliminar.Enabled = True
            About.Enabled = True
            Sair.Enabled = True
         
         
            
              
       End If
ElseIf aba.Tab = 1 Then
        If MsgBox("Deseja editar este registo?", vbYesNo + vbQuestion, "Question") = vbNo Then
            
            MsgBox "Registo não editado!!"
            
            filmenome.Enabled = False
            Combo1.Enabled = False
            Combo2.Enabled = False
            Combo3.Enabled = False
            
            
            adicionar.Enabled = True
            visualizador.Enabled = True
            Procurar.Enabled = True
            Guardar.Enabled = False
            Editar.Enabled = True
            Cancelar.Enabled = False
            Eliminar.Enabled = True
            About.Enabled = True
            Sair.Enabled = True
            
        
        Else
            filmenome.Enabled = True
            Combo1.Enabled = True
            Combo2.Enabled = True
            Combo3.Enabled = True
            
            Data2.Recordset.Edit
            
            adicionar.Enabled = True
            visualizador.Enabled = True
            Procurar.Enabled = True
            Guardar.Enabled = False
            Editar.Enabled = True
            Cancelar.Enabled = False
            Eliminar.Enabled = True
            About.Enabled = True
            Sair.Enabled = True
        End If
End If
End If

Data1.Refresh
Data2.Refresh
Data3.Refresh
Data4.Refresh
Data5.Refresh
Data6.Refresh
End Sub

Private Sub Eliminar_Click()
Dim n As String
If Data1.Recordset.EOF And Data1.Recordset.BOF And Data2.Recordset.EOF And Data2.Recordset.BOF And Data3.Recordset.EOF And Data3.Recordset.BOF And Data4.Recordset.EOF And Data4.Recordset.BOF And Data5.Recordset.EOF And Data5.Recordset.BOF And Data6.Recordset.EOF And Data6.Recordset.BOF Then
    n = MsgBox("Não existem dados guardados", vbOKOnly + vbCritical, "Informação")
Else

    If aba.Tab = 0 Then
        If MsgBox("Deseja eliminar este registo?", vbYesNo + vbQuestion, "Question") = vbNo Then

            MsgBox "Registo não eliminado"
            
        Else
    Data1.Recordset.Delete
    Data1.Recordset.MoveNext
    
    adicionar.Enabled = False
    musicartista.Text = Empty
    musicanome.Text = Empty
    musicalbum.Text = Empty
    Combo4.Text = Empty
    Combo5.Text = Empty

    musicartista.Enabled = False
    musicanome.Enabled = False
    musicalbum.Enabled = False
    Combo4.Enabled = False
    Combo5.Enabled = False
   
    If Data1.Recordset.EOF Then
        Data1.Recordset.MovePrevious
        If Data1.Recordset.BOF Then
            MsgBox "Não há registos!!"
            MsgBox "Base de dados vazia!!"
            
            adicionar.Enabled = True
            visualizador.Enabled = True
            Procurar.Enabled = True
            Guardar.Enabled = False
            Editar.Enabled = True
            Cancelar.Enabled = False
            Eliminar.Enabled = True
            About.Enabled = True
            Sair.Enabled = True
            
            filmenome.Enabled = False
            Combo1.Enabled = False
            Combo2.Enabled = False
            Combo3.Enabled = False
        End If
    End If
    End If
    
    ElseIf aba.Tab = 1 Then
    If MsgBox("Deseja eliminar este registo?", vbYesNo + vbQuestion, "Question") = vbNo Then

        MsgBox "Registo não eliminado"
        
    Else
    Data2.Recordset.Delete
    Data2.Recordset.MoveNext
   
    adicionar.Enabled = False
    filmenome.Text = Empty
    Combo1.Text = Empty
    Combo2.Text = Empty
    Combo3.Text = Empty

    filmenome.Enabled = False
    Combo1.Enabled = False
    Combo2.Enabled = False
    Combo3.Enabled = False

    
    
    If Data2.Recordset.EOF Then
        Data2.Recordset.MovePrevious
        If Data2.Recordset.BOF Then
            MsgBox "Não há registos!!"
            MsgBox "Base de dados vazia!!"
            
            adicionar.Enabled = True
            visualizador.Enabled = True
            Procurar.Enabled = True
            Guardar.Enabled = False
            Editar.Enabled = True
            Cancelar.Enabled = False
            Eliminar.Enabled = True
            About.Enabled = True
            Sair.Enabled = True
            
            filmenome.Enabled = False
            Combo1.Enabled = False
            Combo2.Enabled = False
            Combo3.Enabled = False
        End If
    End If
    End If
    
    ElseIf abaconsulta.Tab = 0 Then
     If MsgBox("Deseja eliminar este registo?", vbYesNo + vbQuestion, "Question") = vbNo Then

        MsgBox "Registo não eliminado"
        
    Else
    Data3.Recordset.Delete
    Data3.Recordset.MoveNext
   
    If Data3.Recordset.EOF Then
        Data3.Recordset.MovePrevious
        If Data3.Recordset.BOF Then
            MsgBox "Não há registos!!"
            MsgBox "Base de dados vazia!!"
            
            adicionar.Enabled = True
            visualizador.Enabled = True
            Procurar.Enabled = True
            Guardar.Enabled = False
            Editar.Enabled = True
            Cancelar.Enabled = False
            Eliminar.Enabled = True
            About.Enabled = True
            Sair.Enabled = True
        
        End If
    End If
    End If
    
    ElseIf abaconsulta.Tab = 1 Then
     If MsgBox("Deseja eliminar este registo?", vbYesNo + vbQuestion, "Question") = vbNo Then

        MsgBox "Registo não eliminado"
        
    Else
    Data4.Recordset.Delete
    Data4.Recordset.MoveNext
   
    If Data4.Recordset.EOF Then
        Data4.Recordset.MovePrevious
        If Data4.Recordset.BOF Then
            MsgBox "Não há registos!!"
            MsgBox "Base de dados vazia!!"
            
            adicionar.Enabled = True
            visualizador.Enabled = True
            Procurar.Enabled = True
            Guardar.Enabled = False
            Editar.Enabled = True
            Cancelar.Enabled = False
            Eliminar.Enabled = True
            About.Enabled = True
            Sair.Enabled = True
            
        
        End If
    End If
    
    End If
    
    ElseIf procuraregistos.Tab = 0 Then
     If MsgBox("Deseja eliminar este registo?", vbYesNo + vbQuestion, "Question") = vbNo Then

        MsgBox "Registo não eliminado"
        
    Else
    Data5.Recordset.Delete
    Data5.Recordset.MoveNext
   
   
    If Data5.Recordset.EOF Then
        Data5.Recordset.MovePrevious
        If Data5.Recordset.BOF Then
            MsgBox "Não há registos!!"
            MsgBox "Base de dados vazia!!"
            
            adicionar.Enabled = True
            visualizador.Enabled = True
            Procurar.Enabled = True
            Guardar.Enabled = False
            Editar.Enabled = True
            Cancelar.Enabled = False
            Eliminar.Enabled = True
            About.Enabled = True
            Sair.Enabled = True
            
        
        End If
    End If
    End If
    
     ElseIf procuraregistos.Tab = 2 Then
     If MsgBox("Deseja eliminar este registo?", vbYesNo + vbQuestion, "Question") = vbNo Then

        MsgBox "Registo não eliminado"
        
    Else
    Data6.Recordset.Delete
    Data6.Recordset.MoveNext
   
   
    If Data6.Recordset.EOF Then
        Data6.Recordset.MovePrevious
        If Data6.Recordset.BOF Then
            MsgBox "Não há registos!!"
            MsgBox "Base de dados vazia!!"
            
            adicionar.Enabled = True
            visualizador.Enabled = True
            Procurar.Enabled = True
            Guardar.Enabled = False
            Editar.Enabled = True
            Cancelar.Enabled = False
            Eliminar.Enabled = True
            About.Enabled = True
            Sair.Enabled = True
            
        
        End If
    End If
    End If
End If
End If
Data1.Refresh
Data2.Refresh
Data3.Refresh
Data4.Refresh
Data5.Refresh
Data6.Refresh
End Sub

Private Sub File1_Click()
imgPreview.Picture = LoadPicture(File1.Path & "\" & File1.FileName) 'Carrega a imagem na image box
caminhomusica.Text = (File1.Path & "\" & File1.FileName)            ' Escreve na textbox o caminho da imagem selecionada
End Sub
Private Sub File2_Click()
imgPreview2.Picture = LoadPicture(File2.Path & "\" & File2.FileName)
caminhofilme.Text = (File2.Path & "\" & File2.FileName)
End Sub

Private Sub File3_Click()
MediaPlayer1.URL = File3.Path & "/" & File3.FileName 'carrega para o mediaplayer o filme ou musica desejado
End Sub

Private Sub Form_Load()
Combo1.AddItem "ACCAO"
Combo1.AddItem "ANIMACAO"
Combo1.AddItem "AVENTURA"
Combo1.AddItem "COMEDIA"
Combo1.AddItem "DOCUMENTARIO"
Combo1.AddItem "DRAMA"
Combo1.AddItem "FICCAO CIENTIFICA"
Combo1.AddItem "SUSPANCE"
Combo1.AddItem "TERROR"

Combo2.AddItem "SIM"
Combo2.AddItem "NAO"


Combo3.AddItem "1987"
Combo3.AddItem "1988"
Combo3.AddItem "1989"
Combo3.AddItem "1990"
Combo3.AddItem "1991"
Combo3.AddItem "1992"
Combo3.AddItem "1993"
Combo3.AddItem "1994"
Combo3.AddItem "1995"
Combo3.AddItem "1996"
Combo3.AddItem "1997"
Combo3.AddItem "1998"
Combo3.AddItem "1999"
Combo3.AddItem "2000"
Combo3.AddItem "2001"
Combo3.AddItem "2002"
Combo3.AddItem "2003"
Combo3.AddItem "2004"
Combo3.AddItem "2005"
Combo3.AddItem "2006"
Combo3.AddItem "2007"
Combo3.AddItem "2008"
Combo3.AddItem "2009"
Combo3.AddItem "2010"
Combo3.AddItem "2011"
Combo3.AddItem "2012"
Combo3.AddItem "2013"
Combo3.AddItem "2014"
Combo3.AddItem "2015"
Combo3.AddItem "2016"
Combo3.AddItem "2017"
Combo3.AddItem "2018"
Combo3.AddItem "2019"
Combo3.AddItem "2020"

Combo4.AddItem "1987"
Combo4.AddItem "1988"
Combo4.AddItem "1989"
Combo4.AddItem "1990"
Combo4.AddItem "1991"
Combo4.AddItem "1992"
Combo4.AddItem "1993"
Combo4.AddItem "1994"
Combo4.AddItem "1995"
Combo4.AddItem "1996"
Combo4.AddItem "1997"
Combo4.AddItem "1998"
Combo4.AddItem "1999"
Combo4.AddItem "2000"
Combo4.AddItem "2001"
Combo4.AddItem "2002"
Combo4.AddItem "2003"
Combo4.AddItem "2004"
Combo4.AddItem "2005"
Combo4.AddItem "2006"
Combo4.AddItem "2007"
Combo4.AddItem "2008"
Combo4.AddItem "2009"
Combo4.AddItem "2010"
Combo4.AddItem "2011"
Combo4.AddItem "2012"
Combo4.AddItem "2013"
Combo4.AddItem "2014"
Combo4.AddItem "2015"
Combo4.AddItem "2016"
Combo4.AddItem "2017"
Combo4.AddItem "2018"
Combo4.AddItem "2019"
Combo4.AddItem "2020"

Combo5.AddItem "Blues"
Combo5.AddItem "Brazileira"
Combo5.AddItem "Classica"
Combo5.AddItem "Dance Music"
Combo5.AddItem "Deep House"
Combo5.AddItem "Electronic"
Combo5.AddItem "Full-On"
Combo5.AddItem "Hip-Hop"
Combo5.AddItem "House"
Combo5.AddItem "Jazz"
Combo5.AddItem "Metal"
Combo5.AddItem "Psychadelic"
Combo5.AddItem "Portuguesa"
Combo5.AddItem "RnB"
Combo5.AddItem "Rock"
Combo5.AddItem "Teck House"
Combo5.AddItem "Techno"
Combo5.AddItem "Underground"
Combo5.AddItem "World"

Combo6.AddItem "Artista"
Combo6.AddItem "Nome"
Combo6.AddItem "Album"
Combo6.AddItem "Ano"
Combo6.AddItem "Genero"

Combo7.AddItem "Nome"
Combo7.AddItem "Genero"
Combo7.AddItem "Legendas"
Combo7.AddItem "Ano"


adicionar.Enabled = True
visualizador.Enabled = True
Procurar.Enabled = True
Guardar.Enabled = True
Editar.Enabled = True
Cancelar.Enabled = False
Eliminar.Enabled = True
About.Enabled = True
Sair.Enabled = True

Me.aba.TabVisible(3) = False
Me.aba.TabVisible(4) = False

Data1.Refresh
Data2.Refresh
Data3.Refresh
Data4.Refresh
Data5.Refresh
Data6.Refresh
End Sub


Private Sub MediaPlayer1_EndOfStream(ByVal Result As Long)
    If File3.ListCount > File3.ListIndex + 1 Then
        File3.ListIndex = File3.ListIndex + 1
    Else
        File3.ListIndex = 0
    End If
End Sub

Private Sub musicartista_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
     Case vbKeyDelete
     Case vbKeyBack
     Case 65 To 90
     Case 97 To 122
     Case 32
     Case Else
             Beep
             KeyAscii = 0
End Select
End Sub

Private Sub musicanome_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
     Case vbKeyDelete
     Case vbKeyBack
     Case 65 To 90
     Case 97 To 122
     Case 32
     Case Else
             Beep
             KeyAscii = 0
End Select
End Sub

Private Sub musicalbum_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
     Case vbKeyDelete
     Case vbKeyBack
     Case 65 To 90
     Case 97 To 122
     Case 32
     Case Else
             Beep
             KeyAscii = 0
End Select
End Sub

Private Sub filmenome_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
     Case vbKeyDelete
     Case vbKeyBack
     Case 65 To 90
     Case 97 To 122
     Case 32
     Case Else
             Beep
             KeyAscii = 0
End Select
End Sub

Private Sub next_Click()

If Data2.Recordset.EOF Then
    If Data2.Recordset.BOF Then
        MsgBox "Base de Dados vazia!"
    End If
Else
    Data2.Recordset.MoveNext
        If Data2.Recordset.EOF Then
            Data2.Recordset.MoveLast
        End If
End If


End Sub

Private Sub nextall_Click()
    If Data2.Recordset.EOF Then
        MsgBox " Base de dados vazia"
    Else
        Data1.Recordset.MoveLast
    End If
End Sub

Private Sub prfilmes_Click()
Dim txt As String, n As Integer, msg As Integer

txt = txtpesquisaf.Text

Select Case Combo7
Case "Nome"
n = 0

'Data6.Recordset.MoveFirst
If Data6.Recordset.EOF And Data6.Recordset.BOF Then
    n = MsgBox("Não existem dados guardados", vbOKOnly + vbCritical, "Informação")
Else
Do
'UCase- Ignora as maiusculas
    If UCase(Data6.Recordset![Nome]) = UCase(txt) Then
       msg = MsgBox("Nome Encontrado!", vbOKOnly + vbInformation, "Informação")
       n = 1
       Exit Do
    End If
Data6.Recordset.MoveNext
Loop Until Data6.Recordset.EOF
End If
If n = 0 Then
    msg = MsgBox("O Nome não existe!", vbOKOnly + vbCritical, "Informação")
    txtpesquisaf.SetFocus
    Data6.Recordset.MoveFirst
End If


Case "Genero"
n = 0

'Data6.Recordset.MoveFirst
If Data6.Recordset.EOF And Data6.Recordset.BOF Then
    n = MsgBox("Não existem dados guardados", vbOKOnly + vbCritical, "Informação")
Else
Do
'UCase- Ignora as maiusculas
    If UCase(Data6.Recordset![Genero]) = UCase(txt) Then
       msg = MsgBox("Genero Encontrado!", vbOKOnly + vbInformation, "Informação")
       n = 1
       Exit Do
    End If
Data6.Recordset.MoveNext
Loop Until Data6.Recordset.EOF
End If
If n = 0 Then
    msg = MsgBox("O Genero não existe!", vbOKOnly + vbCritical, "Informação")
    txtpesquisaf.SetFocus
    Data6.Recordset.MoveFirst
End If


Case "Legendas"
n = 0

'Data6.Recordset.MoveFirst
If Data6.Recordset.EOF And Data6.Recordset.BOF Then
    n = MsgBox("Não existem dados guardados", vbOKOnly + vbCritical, "Informação")
Else
Do
'UCase- Ignora as maiusculas
    If UCase(Data6.Recordset![legendas]) = UCase(txt) Then
       msg = MsgBox("Legendas Encontrado!", vbOKOnly + vbInformation, "Informação")
       n = 1
       Exit Do
    End If
Data6.Recordset.MoveNext
Loop Until Data6.Recordset.EOF
End If
If n = 0 Then
    msg = MsgBox("A Legenda não existe!", vbOKOnly + vbCritical, "Informação")
    txtpesquisaf.SetFocus
    Data6.Recordset.MoveFirst
End If


Case "Ano"
n = 0

'Data6.Recordset.MoveFirst
If Data6.Recordset.EOF And Data6.Recordset.BOF Then
    n = MsgBox("Não existem dados guardados", vbOKOnly + vbCritical, "Informação")
Else
Do
'UCase- Ignora as maiusculas
    If UCase(Data6.Recordset![ano]) = UCase(txt) Then
       msg = MsgBox("Ano Encontrado!", vbOKOnly + vbInformation, "Informação")
       n = 1
       Exit Do
    End If
Data6.Recordset.MoveNext
Loop Until Data6.Recordset.EOF
End If
If n = 0 Then
    msg = MsgBox("O Ano não existe!", vbOKOnly + vbCritical, "Informação")
    txtpesquisaf.SetFocus
    Data6.Recordset.MoveFirst
End If

End Select


End Sub

Private Sub primeiraposição_Click()
If Data1.Recordset.BOF Then
        MsgBox " Base de dados vazia"
    Else
        Data1.Recordset.MoveFirst
    End If

End Sub

Private Sub prmusica_Click()
Dim txt As String, n As Integer, msg As Integer

txt = txtpesquisam.Text

Select Case Combo6
Case "Artista"
n = 0

'Data5.Recordset.MoveFirst
If Data5.Recordset.EOF And Data5.Recordset.BOF Then
    n = MsgBox("Não existem dados guardados", vbOKOnly + vbCritical, "Informação")
Else
Do
'UCase- Ignora as maiusculas
    If UCase(Data5.Recordset![Artista]) = UCase(txt) Then
       msg = MsgBox("Artista Encontrado!", vbOKOnly + vbInformation, "Informação")
       n = 1
       Exit Do
    End If
Data5.Recordset.MoveNext
Loop Until Data5.Recordset.EOF
End If
If n = 0 Then
    msg = MsgBox("O Artista não existe!!", vbOKOnly + vbCritical, "Informação")
    txtpesquisam.SetFocus
    Data5.Recordset.MoveFirst
End If


Case "Nome"
n = 0

'Data5.Recordset.MoveFirst
If Data5.Recordset.EOF And Data5.Recordset.BOF Then
    n = MsgBox("Não existem dados guardados", vbOKOnly + vbCritical, "Informação")
Else
Do
'UCase- Ignora as maiusculas
    If UCase(Data5.Recordset![Nome]) = UCase(txt) Then
       msg = MsgBox("Nome Encontrado!", vbOKOnly + vbInformation, "Informação")
       n = 1
       Exit Do
    End If
Data5.Recordset.MoveNext
Loop Until Data5.Recordset.EOF
End If
If n = 0 Then
    msg = MsgBox("O Nome não existe!", vbOKOnly + vbCritical, "Informação")
    txtpesquisam.SetFocus
    Data5.Recordset.MoveFirst
End If


Case "Album"
n = 0

'Data5.Recordset.MoveFirst
If Data5.Recordset.EOF And Data5.Recordset.BOF Then
    n = MsgBox("Não existem dados guardados", vbOKOnly + vbCritical, "Informação")
Else
Do
'UCase- Ignora as maiusculas
    If UCase(Data5.Recordset![album]) = UCase(txt) Then
       msg = MsgBox("Album Encontrado!", vbOKOnly + vbInformation, "Informação")
       n = 1
       Exit Do
    End If
Data5.Recordset.MoveNext
Loop Until Data5.Recordset.EOF
End If
If n = 0 Then
    msg = MsgBox("O Album não existe!", vbOKOnly + vbCritical, "Informação")
    txtpesquisam.SetFocus
    Data5.Recordset.MoveFirst
End If


Case "Ano"
n = 0

'Data5.Recordset.MoveFirst
If Data5.Recordset.EOF And Data5.Recordset.BOF Then
    n = MsgBox("Não existem dados guardados", vbOKOnly + vbCritical, "Informação")
Else
Do
'UCase- Ignora as maiusculas
    If UCase(Data5.Recordset![ano]) = UCase(txt) Then
       msg = MsgBox("Ano Encontrado!", vbOKOnly + vbInformation, "Informação")
       n = 1
       Exit Do
    End If
Data5.Recordset.MoveNext
Loop Until Data5.Recordset.EOF
End If
If n = 0 Then
    msg = MsgBox("O Ano não existe!", vbOKOnly + vbCritical, "Informação")
    Data5.Recordset.MoveFirst
End If


Case "Genero"
n = 0

'Data5.Recordset.MoveFirst
If Data5.Recordset.EOF And Data5.Recordset.BOF Then
    n = MsgBox("Não existem dados guardados", vbOKOnly + vbCritical, "Informação")
Else
Do
'UCase- Ignora as maiusculas
    If UCase(Data5.Recordset![Genero]) = UCase(txt) Then
       msg = MsgBox("Genero Encontrado!", vbOKOnly + vbInformation, "Informação")
       n = 1
       Exit Do
    End If
Data5.Recordset.MoveNext
Loop Until Data5.Recordset.EOF
End If
If n = 0 Then
    msg = MsgBox("O Genero não existe!", vbOKOnly + vbCritical, "Informação")
    txtpesquisam.SetFocus
    Data5.Recordset.MoveFirst
End If
End Select

End Sub

Private Sub Procurar_Click()
Me.aba.TabVisible(0) = False
Me.aba.TabVisible(1) = False
Me.aba.TabVisible(2) = False
Me.aba.TabVisible(3) = False
Me.aba.TabVisible(4) = True
aba.Tab = 4
    
    adicionar.Enabled = False
    visualizador.Enabled = False
    Procurar.Enabled = False
    Guardar.Enabled = False
    Editar.Enabled = False
    Cancelar.Enabled = False
    Eliminar.Enabled = True
    About.Enabled = False
    Sair.Enabled = False
    
End Sub

Private Sub proxima_Click()

If Data1.Recordset.EOF Then
    If Data1.Recordset.BOF Then
        MsgBox "Base de Dados vazia!", vbInformation + vbOKOnly, "Informação"
    End If
Else
    Data1.Recordset.MoveNext
        If Data1.Recordset.EOF Then
            Data1.Recordset.MoveLast
        End If
End If

End Sub

Private Sub retroceder_Click()
    adicionar.Enabled = True
    visualizador.Enabled = True
    Procurar.Enabled = True
    Guardar.Enabled = False
    Editar.Enabled = True
    Cancelar.Enabled = False
    Eliminar.Enabled = True
    About.Enabled = True
    Sair.Enabled = True

    
    Me.aba.TabVisible(0) = True
    Me.aba.TabVisible(1) = True
    Me.aba.TabVisible(2) = True
    Me.aba.TabVisible(3) = False
End Sub

Private Sub sair_Click()
Dim cd As String

Beep
cd = MsgBox("Deseja mesmo Sair?", vbYesNo + vbQuestion, "Confirmação!")

If cd = vbYes Then
  End

End If
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(1).Text = Time()
End Sub

Private Sub ultimaposição_Click()

    If Data1.Recordset.EOF Then
        MsgBox " Base de dados vazia", vbInformation + vbOKOnly, "Informação"
    Else
        Data1.Recordset.MoveLast
    End If
End Sub

Private Sub visualizador_Click()
    adicionar.Enabled = False
    visualizador.Enabled = True
    Procurar.Enabled = False
    Guardar.Enabled = False
    Editar.Enabled = False
    Cancelar.Enabled = False
    Eliminar.Enabled = False
    About.Enabled = False
    Sair.Enabled = False
    
    Me.aba.TabVisible(0) = False
    Me.aba.TabVisible(1) = False
    Me.aba.TabVisible(2) = False
    Me.aba.TabVisible(3) = True
    aba.Tab = 3
End Sub

Private Sub voltar_Click()
    adicionar.Enabled = True
    visualizador.Enabled = True
    Procurar.Enabled = True
    Guardar.Enabled = False
    Editar.Enabled = True
    Cancelar.Enabled = False
    Eliminar.Enabled = True
    About.Enabled = True
    Sair.Enabled = True
    
Me.aba.TabVisible(0) = True
Me.aba.TabVisible(1) = True
Me.aba.TabVisible(2) = True
Me.aba.TabVisible(3) = False
Me.aba.TabVisible(4) = False
    
End Sub

Private Sub voltar1_Click()
    adicionar.Enabled = True
    visualizador.Enabled = True
    Procurar.Enabled = True
    Guardar.Enabled = False
    Editar.Enabled = True
    Cancelar.Enabled = False
    Eliminar.Enabled = True
    About.Enabled = True
    Sair.Enabled = True
    
Me.aba.TabVisible(0) = True
Me.aba.TabVisible(1) = True
Me.aba.TabVisible(2) = True
Me.aba.TabVisible(3) = False
Me.aba.TabVisible(4) = False
    
    
End Sub


FILIPE_CORREIA

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
programadorvb6

Olá.

Me envia em um arquivo zip ou Rar todos os ficheiros para : programadorvb6@iol.pt

Cump.

programadorvb6

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
pipasmeimoa

èsta optimo, nao era necessario ter tido tanto trabalho ProgramadorVb6.

Olhe posso so deixar mais uma questao? Como consigo aplicar uma busca melhor no meu botao de pesquisar??

e ja agora gostava de colocar um filtro  na DBGrid, como faço?


FILIPE_CORREIA

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
programadorvb6

Nota . Por lapso não te informei que conténs um grave erro na tua base de dados.

- Falta-te a atribuição de uma chave Primária , pois assim terás sempre mais que uma informação (duplicação) da mesma música/filme.

Até +

Programadorvb6

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.