vb中如何播放AVI动画？

Question

动画存在SQL SERVER中的数据表中， 
  列名    数据类型    长度  允许空 
---------------------------------- 
文件名      char      10      是 
动画        image    16      是 其中执行mstream.Write Adodc1.Recordset("动画") 
总显示"参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突” 
不明白。

Answer 1

动画存在数据库中，怪遭遭的！
参考下面我写的这2个：
http://blog.csdn.net/chenjl1031/archive/2007/12/24/1964909.aspx
http://blog.csdn.net/chenjl1031/archive/2008/05/04/2383674.aspx

Answer 2

我在窗体中用到ADODC控件、Animation控件、命令按钮等。播放程序：Private Sub play_avi()
   Text1.Text = DataGrid1.Text
   Animation1.Close
   Set mstream = New ADODB.Stream
   mstream.Type = adTypeBinary
   mstream.Open
   mstream.Write Adodc1.Recordset("动画")
   mstream.SaveToFile App.Path + "\temp.avi", adSaveCreateOverWrite
   Animation1.Open App.Path + "\temp.avi"
   Animation1.Play
End Sub
以下为注解：动画存在SQL SERVER中的数据表中， 
  列名    数据类型    长度  允许空 
---------------------------------- 
文件名      char      10      是 
动画        image    16      是 其中执行mstream.Write Adodc1.Recordset("动画") ，总显示"参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突” 请高手指教。

Answer 3

Animation1.Open App.Path + "\temp.avi"
改为:
Animation1.Open iif(right(App.Path)="\",App.Path,App.Path & "\")& "temp.avi"

Answer 4

Animation1.Open iif(right(App.Path)="\",App.Path,App.Path & "\")& "temp.avi"

Answer 5

VB codeAnimation1.Open iif(right(App.Path)="\",App.Path,App.Path & "\")& "temp.avi"

Answer 6

试了楼上各位高手的答案，说是“编译错误,必选参数”----RIGHT函数有问题。

Answer 7

起码都应该是这样子的：
Animation1.Open iif(right(App.Patp,1)="\",App.Path,App.Path & "\")& "temp.avi"

Answer 8

运行到mstream.Write Adodc1.Recordset("动画") ，
还是出现
"参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突” 错误提示。不知道为什么？？？

Answer 9

用VB播放AVI的控件试试！
windowsmediaplayer

Answer 10

mstream.Write Adodc1.Recordset("动画") 这一语句问题到底出在哪儿？？真郁闷，有知道的吗？

Answer 11

你告诉我 mstream.Write Adodc1.Recordset("动画")中的“动画”是保存的文件名,还是动画数据? 如果是数据我没办法！

Answer 12

列名    数据类型    长度  允许空 
---------------------------------- 
文件名      char      10      是 
动画        image    16      是 “动画”是一个字段，保存的是二进制动画数据。我导入了一个书中附盘的数据库备份，好了，搞不清为什么。必须有现成的数据库。