如何向数据库字段中写入文件？
1 如何向数据库字段中写入文件？（EXE,TXT,DOC等等）
2 如果文件较大，如何获取写入进度？
3 如何判断文件写入成功？

[解决办法]
将文件流转化为二进制数据后写入数据库,下面是我写的代码用于读写图片文件的,你只需要在数据库中为字段选择varbinary类型就可以实现其他类型的存储了.没整理,有点乱.
Dim b() As Byte
Dim fs As filestream
Dim br As BinaryReader
Dim strsql As String
Try
fs = New FileStream(finfo.Name, FileMode.Open, FileAccess.Read) '将选择的图像文件读入到文件流
br = New BinaryReader(fs)
b = br.ReadBytes(fs.Length) '将文件内容放到字节数组
Catch ex As Exception
MsgBox( "在将文件读入内存时出错: " + ex.Message)
End Try
br.Close()
fs.Close()

strsql = "insert into test(imageName,photo) "
strsql += "values( ' " & finfo.Name & " ',@photo) " '二进制数据用@标识

Dim sqlCn As SqlConnection = New SqlConnection( "server=dell;database=study;uid=sa;pwd=; ")
sqlCn.Open()
Dim myCommand As SqlCommand = New SqlCommand(strsql, sqlCn)
myCommand.Parameters.Clear()
myCommand.Parameters.Add( "@photo ", OleDb.OleDbType.Binary)
myCommand.Parameters( "@photo ").Value = b
myCommand.ExecuteReader()

读取文件代码如下:
Dim strsql As String
strsql = "select * from test "
Dim sqlCn As SqlConnection = New SqlConnection( "server=dell;database=study;uid=sa;pwd=; ")
Dim bw As BinaryWriter
Dim bufferSize As Integer = 100 '定义缓冲区长度为100
Dim outbyte() As Byte = New Byte(bufferSize - 1) {} '定义缓冲区
Dim retval As Long
Dim startIndex As Long = 0
Dim dr As SqlDataReader
Dim myCommand As SqlCommand = New SqlCommand(strsql, sqlCn)
sqlCn.Open()
Dim ms As New System.IO.MemoryStream '定义内存流对象,将数据库中存储的图像数据先放到内存流中
Try
bw = New BinaryWriter(ms)
dr = myCommand.ExecuteReader()
dr.Read()
TextBox1.Text = dr.GetString(1)
startIndex = 0
retval = dr.GetBytes(2, startIndex, outbyte, 0, bufferSize)

Do While retval = bufferSize '循环读取余下的内容,每次读取buffersize个字节
bw.Write(outbyte)
bw.Flush() '清空缓冲区
startIndex += bufferSize '移动位置指针
retval = dr.GetBytes(2, startIndex, outbyte, 0, bufferSize)
Loop

Dim image As Image = image.FromStream(ms)
Me.PictureBox1.Image = image '利用内存流在picturebox中生成图像

bw.Write(outbyte, 0, retval) '写入最后一块数据
bw.Flush()
bw.Close()
ms.Close()
dr.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try