Cara menyimpan video di vb 6 menggunakan database access

Ok kali ini tidak jauh berbeda dari tutorial sebelumnya, cuma kali ini video yang akan kita simpan.. untuk cara menyimpan video vb 6 menggunakan database access yaitu kita cukup menyimpan nama file videonya saja sedangkan videonya kita copy ke folder yang telah kita tentukan..

ok tanpa basah basi kita lanjut tutorialnya..

yang diperlukan yaitu :

1. database dbvideo dan tabel tbvideo bisa di download disini
2. 1 form ( 1 commond dialog, 1 windows media player, 1 text, 2 button)
3. 1 module
4. 1 folder beri nama video (letakkan di dalam satu folder dg project)

jika command dialog dan windows media player tidak ada di toolbox silahkan tambahkan dulu.. caranya : klik Project > components (CTRL + T)

1. centang microsoft common dialog control 6.0 (SP6) 
2. centang windows media player
3. lalu Ok 

Sekarang kita atur tampilan form seperti gambar dibawah ini

kita tambahkan koding terlebih dahulu di module.. ketikkan perintah berikut ini :

Public con As New ADODB.Connection

Public rst As New ADODB.Recordset
Public strcon As String
Public strsql As String

Public Sub buka()
On Error GoTo pesan
strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\dbvideo.accdb;Persist Security Info=False"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strcon
Else
con.Open strcon
End If
Exit Sub
pesan:
MsgBox "Tidak ada koneksi ke database..!", vbInformation, "Informasi"
End Sub

Public Sub tutup()
con.Close
End Sub

kembali ke form.. kita tambahkan perintah ini dibagian paling atas code (general) (declarations)

Option Explicit

Dim vid As New Recordset
Dim sql As String

sekarang klik 2x tombol cari video, ketikkan perintah berikut :

Private Sub Command1_Click()

CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileTitle
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub

terakhir klik 2x di tombol simpan video, ketikkan perintah berikut :

Private Sub Command2_Click()

If Text1.Text = "" Then
MsgBox "Video masih kosong"
Command1.SetFocus
Exit Sub
End If

Dim video As String
video = App.Path & "\video\" & Text1.Text
FileCopy Text1.Text, video

buka
Set vid = New Recordset
sql = "insert into tbvideo values('" & Text1.Text & "','" & video & "')"
Set vid = con.Execute(sql)
tutup
MsgBox "Video berhasil disimpan..!", vbInformation, "Informasi"
Text1.Text = ""
End Sub

selesai.. apakah berhasil??

silahkan komen bila masih kurang mengerti.. :)

untuk source code silahkan download disini

About Me :

Saya Martin Purnansyah
Nama Marcode adalah singkatan dari martin code, niat awal saya membuat website ini bertujuan untuk berbagi pengalaman yang saya dapat selama belajar pemrograman. Semoga situs marcode.web.id kedepannya rutin membuat tutorial - tutorial baru. Salam Coding.. :)