Programa simples para abrir videos

[NathaN_XLR 0]

Olá !

 

Eu queria saber como faço para abrir videos em um programa no vb.

 

quando clico no botão, imediatamente abra video no player, sem eu precisar pesquisar com o "OpenFiledialog"

 

Obrigado !!

[KhaosDoctor 242]

Adicione-o na lista e salve o caminho em um banco de dados, assim quando você clicar você pode abrir o caminho salvo sem precisar do OFD

[NathaN_XLR 0]

Amigo !

 

Peguei um Código que faz a conexão aqui só pra teste, ta tudo certinho, fiz o banco de dados no phpmyadmin, mostra a conexão feita e tudo.

Mas quando vou inserir os valores não acontece nada, ta faltando alguma coisa ?

da uma olhada

 

Imports MySql.Data.MySqlClient

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim CONEXAO As New MySqlConnection
       Dim COMANDO As New MySqlCommand
       Dim ADAPTADOR As New MySqlDataAdapter
       Dim SQL As String

       CONEXAO = New MySqlConnection

       CONEXAO.ConnectionString = "SERVER = localhost; user id=root; password=; database=teste_db"

       SQL = "INSERT INTO tb_teste (nome, sobrenome, idade, endereco) VALUES ('" & txtnome.Text & "','" & txtsobrenome.Text & "', '" & txtidade.Text & "','" & txtend.Text & "')"

       Try
           CONEXAO.Open()
           Try
               COMANDO.Connection = CONEXAO
               COMANDO.CommandText = SQL
               ADAPTADOR.SelectCommand = COMANDO

           Catch erro As MySqlException
               MessageBox.Show("Erro ao tentar ler o banco de dados: " & erro.Message)


           End Try
           MessageBox.Show("Conexão aberta com sucesso.", "Atenção!", MessageBoxButtons.OK, MessageBoxIcon.Information)


       Catch erro As MySqlException
           MessageBox.Show("Erro ao tentar conectar ao banco de dados." & erro.Message)

       Finally
           CONEXAO.Dispose()
       End Try
   End Sub
End Class

[NathaN_XLR 0]

Amigo !!

 

Consegui o que eu queria kkkk

 

era so tirar o "OpenFiledialog", sem o banco de dados tbm kkk

olha

Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim filme As String
       filme = "G:\Filmes\Furia de Titans\Furia.de.Titans.2010.720p.Bluray.x264.Dual-AlanRj.mkv"
       AxWindowsMediaPlayer1.URL = filme
   End Sub

   Private Sub AxWindowsMediaPlayer1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWindowsMediaPlayer1.Enter

   End Sub
End Class

 

mas eu queria sem o plugin do Windows media player no formulário do programa, acho q ai precisaria do banco né ? ou não ?

 

Falow !

[KhaosDoctor 242]

Ah cara parabens! rs era mais simples do que eu pensei então.

 

Só para responder la o outro post, não aconteceu nada porque você não executou a query:

 

 

Imports MySql.Data.MySqlClient

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim CONEXAO As New MySqlConnection
       Dim COMANDO As New MySqlCommand
       Dim ADAPTADOR As New MySqlDataAdapter
       Dim SQL As String

       CONEXAO = New MySqlConnection

       CONEXAO.ConnectionString = "SERVER = localhost; user id=root; password=; database=teste_db"

       SQL = "INSERT INTO tb_teste (nome, sobrenome, idade, endereco) VALUES ('" & txtnome.Text & "','" & txtsobrenome.Text & "', '" & txtidade.Text & "','" & txtend.Text & "')"

       Try
           CONEXAO.Open()
           Try
               COMANDO.Connection = CONEXAO
               COMANDO.CommandText = SQL
               ADAPTADOR.SelectCommand = COMANDO
               COMANDO.ExecuteNonQuery()
           Catch erro As MySqlException
               MessageBox.Show("Erro ao tentar ler o banco de dados: " & erro.Message)


           End Try
           MessageBox.Show("Conexão aberta com sucesso.", "Atenção!", MessageBoxButtons.OK, MessageBoxIcon.Information)


       Catch erro As MySqlException
           MessageBox.Show("Erro ao tentar conectar ao banco de dados." & erro.Message)

       Finally
           CONEXAO.Dispose()
           COMANDO.Dispose()
       End Try
   End Sub
End Class