VB保存读取access数据库中的视频【问题】

下面这些是保存视频文件到数据库的代码
但是我想好久都不知道怎么读取并播放
因为播放视频的控件没有DataSource和DataField属于
请大神教教我
Public tp As String
Private Sub Command1_Click()
'浏览文件
Dim str '定义变量
CommonDialog1.Filter = "*.MP4|*.MP4|*.GIF|*.GIF"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
tp = CommonDialog1.FileName
CommonDialog1.FileName = ""
Else
CommonDialog1.FileName = ""
End If
End Sub
Private Sub Command2_Click()
sjkdz = App.Path & "\wj\sjk.mdb"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sjkdz & " Adodc1.RecordSource = "select * from sp "
Adodc1.Refresh
Adodc1.Recordset.AddNew '添加一个纪录
Adodc1.Recordset.Fields("视频名") = spm
Adodc1.Recordset.Update '储存赋值的新纪录
Adodc1.Recordset.Close
Adodc1.RecordSource = "select * from sp where 视频名='" & spm & "'"
Adodc1.Refresh
mst.Type = adTypeBinary
mst.Open
If tp <> "" Then mst.LoadFromFile tp
Adodc1.Recordset.Fields("视频") = mst.Read
Adodc1.Recordset.Update
Adodc1.Refresh
mst.Close
End Sub

这些代码加上我一开始发出来的，就可以连接数据库保存视频，和播放视频并播放了
各位可以拿去根据自己的情况改的，经本人测试可用，希望拿走就说一声
Private Sub Command3_Click()
Dim cn As New ADODB.Connection '声明数据库连接对象
Dim rs As New ADODB.Recordset '声明记录集对象
'连接数据库
sjkdz = App.Path & "\wj\sjk.mdb"
cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & sjkdz & ";persist security info=false;jet oledb:database password='wzl'"
cn.Open cnnstr
strSQL = "select * from sp where 视频名='" & spm & "'"
rs.Open strSQL, cn, 3, 3
Dim sm As ADODB.stream
Set sm = New ADODB.stream
sm.Mode = adModeReadWrite
'Image1.Picture = LoadPicture("")
If Not IsNull(rs.Fields("视频")) Then
sm.Type = adTypeBinary
sm.Open
sm.Write rs.Fields("视频")
sm.SaveToFile "filename", adSaveCreateOverWrite
wmp1.URL = "filename"
rs.Close
sm.Close
End If
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

1回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六