关于数据库存储视频文件问题，急。

[龙华]

请问如何用VB将RM,WMV格式文件存入数据库，并读出播放？请用SQL server 或access数据库为例给出存入和读出代码。代码尽量简单。急。谢谢。

[hycao]

下面的代码是以access数据库为例的，到是能实现功能，只是读出来的文件会比当初存入数据库时大一倍左右，不知是怎么回事。
（注：代码中的adoRecordset.Fields.Item(5)指表中的第六个字段，其类型必须为OLE对象）
Dim adoConnection As New ADODB.Connection
Dim adoRecordset As New ADODB.Recordset
adoConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\abc.mdb"
adoRecordset.Open "SELECT * FROM hycao", adoConnection, adOpenKeyset, adLockOptimistic
adoRecordset.AddNew
Dim adoStream As New ADODB.Stream
adoStream.Type = adTypeBinary
adoStream.Open
adoStream.LoadFromFile "c:\homenaje.WMV"
'将二进制文件写入大字段:
adoRecordset.Fields.Item(5).AppendChunk adoStream.Read
adoRecordset.Update
'================================
'从大字段读取二进制数据:
Dim TempFileName As String
TempFileName = "c:\Temphomenaje.WMV"
adoStream.Write adoRecordset.Fields.Item(5).GetChunk(adoRecordset.Fields.Item(5).ActualSize)
adoStream.SaveToFile TempFileName, IIf(Len(Trim(Dir(TempFileName, vbNormal + vbHidden))) > 0, adSaveCreateOverWrite, adSaveCreateNotExist)

[lapangxe]

Dim ste As New ADODB.Stream
Set ste = Nothing
ste.Type = adTypeBinary
ste.Open
ste.LoadFromFile "" 在双引号中输入你要保存到数据库中的文件路径及名字
Dim rs As New ADODB.Recordset '定义一个记录集
rs.Open "Select * From 文档 ", lcon, adOpenKeyset, adLockOptimistic
'打开表
rs.AddNew '新增
rs!内容 = ste.Read
rs.Update

[zhui19760820]

为什么要放到数据库呢？
要是做视频服务，应直接放到固定的文件夹下呀？

[龙华]

回：lapangxe()
请问如何使用该对象？
回：zhui19760820
现在有两万多个文件，7个分类，你那样怎么管理？
何况我还要进一步加密的。

[龙华]

lapangxe() ：
请写出如何读出来好吗？你写的是写入如数库吧。