ssis 写文件到数据库

Code
Dim filename As String
        Dim contents As Byte()
        Dim conn As SqlConnection
        Dim cmd As SqlCommand
        filename = Dts.Variables("filename").Value.ToString()
        contents = File.ReadAllBytes(filename)
        Dim fileinfo As New FileInfo(filename)
        Dim name As String = fileinfo.Name

        conn = New SqlConnection("server=(server);database=dbname;UID=abc;PWD=efg;")
        cmd = conn.CreateCommand()
        cmd.CommandText = "insert into doc_file(id,filename,contents) values (newid(),@filename,@contents)"
        cmd.Parameters.AddWithValue("@filename", name)
        cmd.Parameters.AddWithValue("@contents", contents)
        conn.Open()
        cmd.ExecuteNonQuery()
        conn.Close()

这段代码是放到脚本任务中，创建一个叫做filename 的变量。