vb2005中，如何将大型文件以二进制流的形式存入access数据库中，我需要详细的操作过程和代码，谢谢

    Dim OperateFile As System.IO.FileStream



Private Sub InsertFile(ByVal First_ID As Integer, ByVal ConnStr As String)

        Dim OpenFile As New OpenFileDialog

        If OpenFile.ShowDialog = Windows.Forms.DialogResult.OK Then

            Try

                OperateFile = New IO.FileStream(OpenFile.FileName, IO.FileMode.Open, IO.FileAccess.Read)

                Dim FileA(OperateFile.Length - 1) As Byte

                OperateFile.Read(FileA, 0, OperateFile.Length - 1)

                Dim conn As New OleDbConnection(ConnStr)

                Dim strComm As String = " INSERT INTO SaveFile(FirstID,FileData,FileName) VALUES('" & First_ID & "', @photoBinary ,'" & OpenFile.SafeFileName & "')"

                '修改连接语句

                Dim myComm As OleDb.OleDbCommand = New OleDbCommand(strComm, conn)

                myComm.Parameters.Add("@photoBinary", OleDbType.Binary, FileA.Length)

                myComm.Parameters("@photoBinary").Value = FileA

                conn.Open()

                myComm.ExecuteNonQuery()

                conn.Close()

                MsgBox("添加成功")

            Catch ex As Exception

                MessageBox.Show(ex.ToString)

            End Try



        End If

    End Sub

补充：VB ,  数据库(包含打印，安装，报表)

上一个：求Vista下能用的网页数据抓包软件！
下一个：用存储过程的话晚易管理。直接用sql语句有些情况下容易sql注入。