Select Case 表名称
Case "结算单附件"
二进制存文件SQL = "update 结算单附件 set 结算单附表=@R缓冲区 where 公司名称=@R公司名称 and 日期=@R日期"
Dim 存二进制文件命令 As New OleDb.OleDbCommand(二进制存文件SQL, 存二进制文件数据库连接)
存二进制文件命令.Parameters.Add("@R缓冲区", OleDbType.Binary)
存二进制文件命令.Parameters("@R缓冲区").Value = 内存流
存二进制文件命令.Parameters.Add("@R公司名称", OleDbType.BSTR)
存二进制文件命令.Parameters("@R公司名称").Value = 公司名称
存二进制文件命令.Parameters.Add("@R日期", OleDbType.BSTR)
存二进制文件命令.Parameters("@R日期").Value = 日期
存二进制文件命令.ExecuteNonQuery()
End Select
存二进制文件数据库连接.Close()
http://hi.baidu.com/useek/blog