如何加快从数据库中读取MPEG。
lkkjx 2002-06-17 10:37:10 Dim fi As New ADODB.Stream
rs.Open "select * from pb_rsmma_b where mmfm='8'", conns, 3, 1
fi.Type = adTypeBinary
fi.Open
fi.Write rs.Fields("mmfl").Value
fi.SaveToFile "c:\1.mpeg", adSaveCreateOverWrite
Set fi = Nothing
MsgBox "ok"
运行完成大约要1分过10秒(一个53M的MPEG),如何加快速度呢(不改变硬件的情况下)