[Resolvido]Carregando Vídeos adicionados nas tabelas do banco de dados como anexo.

Olá amigos,

No meu projeto existe um ambiente com vídeos explicativos, cursos, etc. No diretório aonde está armazenado o bd, adicionei uma subdiretório chamado "videos", nele deposito todos os vídeos os quais o usuário executa-os a partir do aplicativo. Minha dúvida esta na seguinte questão: É possível executar um vídeo a partir do anexo constante em uma tabela do access 2010, sem o uso do subdiretório "vídeos", com os arquivos executados a partir da tabela? Abaixo consta o código e link como o bd e vídeo demonstrativo. Grato pela ajuda.

Código:


Private Sub lstVideosTutoriais_Click()
Call fncCarregaVideo(0)
End Sub

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Me!wmp.Height = 567 * 13
Me!wmp.Width = 567 * 14
Call fncCarregaVideo
Me!lstVideosTutoriais.SetFocus
End Sub

Private Sub fncCarregaVideo(Optional j As Byte = 0)
'On Error Resume Next
Dim origem As String
'vídeos armazenados na pasta Videos no mesmo local do BD
'origem = CurrentProject.Path & "\videos\"
origem = CurrentProject.Path & "\videos\"

Select Case j
    Case 0
        '-----------------------------------------------------
        'carregando vídeo de um arquivo local
        '-----------------------------------------------------
        'objwmp.URL = origem & "NomeDoVideo com a extensão"
         Me!wmp.URL = origem & Me!lstVideosTutoriais
        '-----------------------------------------------------
        'você pode abrir direto no player se desejar
        '-----------------------------------------------------
        'Me!wmp.openPlayer (origem & "NomeDoVideo com a extensão") 'abertura video local
        'Me!wmp.openPlayer ("http://www.estudando.com.br/videoaulas/dica13.wmv") 'abertura video web
        
        '----------------------------------------------------------
        'Carregando na tela do access um vídeo do site usandoaccess
        '----------------------------------------------------------
        'Me!wmp.URL = "http://www.estudando.com.br/videoaulas/dica13.wmv"
        
        
    Case 1
        'objwmp.URL = origem & "NomeDoVideo com a extensão"
    Case 2
        'objwmp.URL = origem & "NomeDoVideo com a extensão"
End Select
End Sub



link: 1drv.ms/f/s!AgHCWa12NNUWgdR9tgry_M5zrkjqeQ

Olá Darlan Sandro,
Sim é possível, no entanto não recomendo.
Vai "engordar" a bd, o limite é 2gb.
O site do nosso amigo Avelino Sampaio tem lá tudo o que necessita.
Nota, não vi projeto.
Abraço

Olá Teixeira,

Grato pela informação. Diante da informação da limitação do banco a 2gb, desisti de adicionar no banco. Há algum tempo tenho estudado pela webschool do professor Avelino e já estudei o tutorial o qual ele apresenta um projeto como o exemplo citado, contudo neste tutorial não há a informação de gerar o vídeo a partir do banco. Mas como afirmei anteriormente desisti da empreitada, haja vista, a limitação do banco. Obrigado pela informação amigo mais uma vez.

Olá, obrigado pelo retorno.
Fica aqui o link do artigo do nosso colega Avelino Sampaio:

usandoaccess.com.br/tutoriais/transferir-dados-entre-tabelas-campos-tipo-anexo-e-multiplos-valores.asp

Abraço