ssis 写文件到数据库

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 的变量。
请使用浏览器的分享功能分享到微信等