如何将文件存取到SQL数据库

比如.txt .asp .rmf

解决方案 »

  1.   

    '网上搜来转的
    '原贴地址 http://space.itpub.net/15453304/viewspace-466110
    '添加时用rs.AddNew()然后将文件的二进制数据赋值给数据库表中的二进制字段。
    '读取时用ADODB.Stream,这个我也没用过。Dim mstream As ADODB.Stream
    Private Sub Command1_Click()
    TxtSQL = "select * from aaa"
    Set Mrc = ExeSQL(TxtSQL, MsgTxt, "sql")
    Mrc.AddNew
    Mrc.Fields("i_fname") = "001.jpg"
    Set mstream = New ADODB.Stream
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.LoadFromFile "Q:\像片\001.jpg"
    Mrc.Fields("i_file").Value = mstream.Read
    Mrc.Update
    Set Mrc = Nothingset mstream=nothing
    End SubPrivate Sub Command2_Click()
    TxtSQL = "select * from aaa"
    Set Mrc = ExeSQL(TxtSQL, MsgTxt, "sql")
    Mrc.Fields("i_fname") = "001.jpg"
    Set mstream = New ADODB.Stream
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.Write Mrc.Fields("i_file")
    mstream.SaveToFile "Q:\像片\00a1.jpg", adSaveCreateOverWrite
    Set Mrc = Nothingset mstream=nothing
    End Sub