关于把flash存入数据库问题。。。。。。

Question

------------------------------------
转:---------------------------------------------------------------Set ADOFld = rs1("照片")
    Call SaveToDB(ADOFld, Filename)
    rs1.UpdatePrivate Sub SaveToDB(ByRef Fld As ADODB.field, DiskFile As String)
Dim byteData() As Byte '定义数据的类型
Dim NumBlocks As Long '定义数据的大小
Dim FileLength As Long '定义文件长度
Dim LeftOver As Long '定义剩余字节长度
Dim SourceFile As Long '定义自由文件
Dim i As Long '定义循环变量    SourceFile = FreeFile '提供一个尚未使用的文件?
    Open DiskFile For Binary Access Read As SourceFile '打开文件
    FileLength = LOF(SourceFile) '得到文件长度
    If FileLength = 0 Then '判断文件是否存在
       Close SourceFile
       MsgBox DiskFile & " 文 件 没 内 容 或 不 存 在 !"
    Else
       NumBlocks = FileLength \ BLOCKSIZE '得到数据块的个数
       LeftOver = FileLength Mod BLOCKSIZE '得到剩余字节数
       Fld.Value = Null
       ReDim byteData(BLOCKSIZE) '重新定义数据块的大小
       For i = 1 To NumBlocks
         Get SourceFile, , byteData() '將信息存入
         Fld.AppendChunk byteData() '加载FLD
       Next i
       ReDim byteData(LeftOver) '重新定义数据块的大小
       Get SourceFile, , byteData() '將信息存入
       Fld.AppendChunk byteData() '加载FLD
       Close SourceFile '关闭源文件
    End If
End Sub
--------------------------------------------------------------------------'*************************************************************************
'**
'** 使用 ADODB.Stream 保存/读取文件到数据库
'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本
'**
'** ----- 数据库连接字符串模板 ---------------------------------------
'** ACCESS数据库
'** iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
'**     ";Data Source=数据库名"
'**
'** SQL数据库
'** iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
'**     "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"
'**
'*************************************************************************
'
'保存文件到数据库中
Sub s_SaveFile()
    Dim iStm As ADODB.Stream
    Dim iRe As ADODB.Recordset
    Dim iConcStr As String
    
    '数据库连接字符串
    iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
        ";Data Source=F:\My Documents\客户资料1.mdb"
    
    '读取文件到内容
    Set iStm = New ADODB.Stream
    With iStm
        .Type = adTypeBinary    '二进制模式
        .Open
        .LoadFromFile "c:\test.doc"
    End With
    
    '打开保存文件的表
    Set iRe = New ADODB.Recordset
    With iRe
        .Open "表", iConc, adOpenKeyset, adLockOptimistic
        .AddNew         '新增一条记录
        .Fields("保存文件内容的字段") = iStm.Read
        .Update
    End With
    
    '完成后关闭对象
    iRe.Close
    iStm.Close
End Sub'从数据库中读取数据,保存成文件
Sub s_ReadFile()
    Dim iStm As ADODB.Stream
    Dim iRe As ADODB.Recordset
    Dim iConc As String
    
    '数据库连接字符串
    iConc = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
        ";Data Source=\\xz\c$\Inetpub\zj\zj\zj.mdb"
    
    '打开表
    Set iRe = New ADODB.Recordset
    iRe.Open "tb_img", iConc, adOpenKeyset, adLockReadOnly
    iRe.Filter = "id=64"
    
    '保存到文件
    Set iStm = New ADODB.Stream
    With iStm
        .Mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write iRe("img")
        .SaveToFile "c:\test.doc"
    End With
    
    '关闭对象
    iRe.Close
    iStm.Close
End Sub

Answer 1

/*--利用 textcopy.exe文件实现在数据库中存储/读取文件 需要textcopy.exe文件,该文件可以在sql 7.0安装光盘找到--转贴自大力--*/--建立存取处理的存储过程
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_textcopy]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_textcopy]
GOCREATE PROCEDURE sp_textcopy
@srvname varchar (30), --服务器名
@login varchar (30),  --用户名
@password varchar (30),  --密码
@dbname varchar (30),  --数据库名
@tbname varchar (30),  --表名
@colname varchar (30),  --存储文件的字段名
@filename varchar (30),  --要存取的文件名
@whereclause varchar (40),  --条件
@direction char(1) --I 为存储到数据库,O 从数据库中读出成文件
AS 
DECLARE @exec_str varchar (255) 
SELECT @exec_str = 
        'textcopy /S"' + @srvname + 
        '" /U ' + @login + 
        ' /P ' + @password + 
        ' /D ' + @dbname + 
        ' /T ' + @tbname + 
        ' /C ' + @colname + 
        ' /W "' + @whereclause + 
        '" /F "' + @filename + 
        '" /' + @direction 
EXEC master..xp_cmdshell @exec_str  
go--调用示例:
--1.创建示例表和初始化数据
create table tb(id int,img image)
insert tb 
select 1,0x
union all select 2,0x
go--2.将文件保存到数据库中
declare @srv varchar(255),@db sysname,@tb sysname,@col sysname
select @srv=@@servername --服务器名
,@db=db_name() --数据库名
,@tb='tb' --表名
,@col='img' --列名
sp_textcopy @srv,'sa','sa的密码',@db,@tb,@col,'c:\test.jpg','where id=1','I' --保存到id=1的记录中,注意条件是:id=1
sp_textcopy @srv,'sa','sa的密码',@db,@tb,@col,'c:\test.doc','where id=2','I' --保存到id=2的记录中,注意条件是:id=2--3.从数据库中读出保存为文件
sp_textcopy @srv,'sa','sa的密码',@db,@tb,@col,'c:\test.jpg','where id=1','O' --读出id=1的记录,注意条件是:id=1
sp_textcopy @srv,'sa','sa的密码',@db,@tb,@col,'c:\test.doc','where id=2','O' --读出id=2的记录,注意条件是:id=2--删除测试环境
drop table tb
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_textcopy]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_textcopy]

Answer 2

谢谢上面两位大哥，那么能否告诉我用路径方法好，还是用这个存储flash到数据库的好呢？？？路径方法有代码给我吧。给了就结贴啦，嘿嘿

Answer 3

如果存路径的话，你就先把这个flash传到服务器的文件系统上就可以了。有许多上传的组件，会自动给你返回上传得文件名，然后你将上传的文件路径写入到数据库就可以了。
  显示的时候直接 用 href="<%=rs("filepath")%>" 就可以了。其中filepath为相对路径如："/flash/example.swf" 浏览器 会直接显示。如果要嵌到页面中则可以用embed元素如：<embed  src="："/flash/example.swf" >

Answer 4

cao,重传一遍示例1。 href="<%=rs("filepath")%>" 2。<embed  src="："/flash/example.swf" >

Answer 5

楼上的仁兄果然好主意，thanks