SQL Filestream in VB 2010 --- Access Denied error

I'm getting an access denied error when I trying to copy a file that I load into a filestream
that I then send to a byte array which is then sent to a Stored Procedure on an SQL Server 2008.

The SQL Server procedure works through a local querry on the SQL Server. The filestream is also
poperly configured and setup.

Here is my vb code... I also included a copy of the error I get as a JPG.

    Public Shared Sub WriteSQLFileStream(ByVal pathSource As String)
        'Dim cnn As SqlConnection
        Dim tx As SqlTransaction = Nothing
        Dim Description As New String("TEST")
            Using cnn As New SqlConnection(My.Settings.RVSoftMainDataConnectionString)

                'Open a connection and start a transaction
                tx = cnn.BeginTransaction

                'Insert empty blob
                Dim cmd As New SqlCommand("FSInsert", cnn, tx)
                cmd.CommandType = CommandType.StoredProcedure
                Dim r As SqlDataReader = cmd.ExecuteReader(CommandBehavior.SingleRow)

                'Read the id and sql path back from the procedure
                Dim ID As String = r(0).ToString
                Dim path As String = r(1).ToString

                'Get the transaction token, required for filestream operations
                Dim cmd2 As New SqlCommand("SELECT GET_FILESTREAM_TRANSACTION_CONTEXT()", cnn, tx)
                Dim obj As Object = cmd2.ExecuteScalar

                Dim txCtx As Byte()
                txCtx = CType(obj, Byte())

                'Open the special managed "SQLFileStream" and write bytes
                    Using fsSource As FileStream = New FileStream(pathSource, _
                        FileMode.Open, FileAccess.Read)
                        ' Read the source file into a byte array.
                        Dim bytes() As Byte = New Byte((fsSource.Length) - 1) {}
                        Dim numBytesToRead As Integer = CType(fsSource.Length, Integer)
                        Dim numBytesRead As Integer = 0

                        While (numBytesToRead > 0)
                            ' Read may return anything from 0 to numBytesToRead.
                            Dim n As Integer = fsSource.Read(bytes, numBytesRead, _
                            ' Break when the end of the file is reached.
                            If (n = 0) Then
                                Exit While
                            End If
                            numBytesRead = (numBytesRead + n)
                            numBytesToRead = (numBytesToRead - n)

                        End While
                        numBytesToRead = bytes.Length

                        'Write file to SQLStream
'''' Obviously this is where I get an error! ''''
                        Dim fs As New SqlTypes.SqlFileStream(path, txCtx, FileAccess.Write)
                        fs.Write(bytes, 0, numBytesToRead)

                    End Using

                Catch ioEx As FileNotFoundException
                End Try
            End Using

        Catch ex As Exception
            MessageBox.Show("The files stream operation failed ... Error: " & ex.ToString)
        End Try
    End Sub

If you have any comments about other parts of the code, I'm open to suggestion and more efficient code!

Thanks for your help!

Patrick Miron
Who is Participating?
PatrickMironConnect With a Mentor Author Commented:
Well, you will never believe this. I was so sure that I did not need to enable the "Allow remote clients to have streaming acces to FILESTREAM data" that I misread this. That options seems to actually mean that if your software is not running on the same machine as the SQL Server is, then you have to enable this. I was under impression that it was an option to access the files through a local UNC path.

If you guys have more comments I still would appreciate them. I hope that my 5 days of searching for an answer actually helps other!

Bob LearnedCommented:
Where is the FileStream configured to write to on the server?
PatrickMironAuthor Commented:
Do you mean the data path of the Filestream? or do you mean the connection string?
  ---> Using cnn As New SqlConnection(My.Settings.RVSoftMainDataConnectionString)

I get a token back from the SQL Server and the connection strings works up to the line where I intentiate the SQLFileStream.

Or are you talking about the configuration of the SQL Server?
What Kind of Coding Program is Right for You?

There are many ways to learn to code these days. From coding bootcamps like Flatiron School to online courses to totally free beginner resources. The best way to learn to code depends on many factors, but the most important one is you. See what course is best for you.

PatrickMironAuthor Commented:
This is my script on the SQL Server side (stored procedure) to return a token...

CREATE procedure [dbo].[FSInsert]
Declare @id uniqueidentifier
Set @id = NEWID()
insert into dbo.BillImages (ImageFSID, ImageFS)
values (@id, CAST('Image Placeholder' as varbinary(max)))
select imageFSID, ImageFS.PathName() from dbo.BillImages where ImageFSID=@id

PatrickMironAuthor Commented:
I verified the path that is return by the token and I can't get access to it on the SERVER where the SQL Server is running. I'm assuming that is supposed to happen because I did not enable "remote" access to that shared folder. Am I right?
PatrickMironAuthor Commented:
Is it possible that the filestream storage is corrupted and if so, how do I create another and remove the old one. Not sure when I add filegroups where things go and if it removes the other filegroups...???
PatrickMironAuthor Commented:
Just to clarify my comment on the path that is returned. It is return as a UNC path \\SERVER\NAMEOFFILEGROUP\...

But I can access the folders not under the shared path but under the path on the c:\Program Files\MSQL\....

Bob LearnedCommented:

"Only the account under which the SQL Server service account runs is granted NTFS permissions to the FILESTREAM container. We recommend that no other account be granted permissions on the data container."
Bob LearnedCommented:
I am still studying FILESTREAMS, so take any advice with a grain of salt.

One test possibility might be to move the FILESTREAM to a different location:

Moving FileStream data to new location
PatrickMironAuthor Commented:
I have tried changing the location and the backup/restore options.

I'm still trying to figure out wht comment about the NTFS permission to the filestream container.... Do you have more information on this and how I would go about configuring the account properly for that. I tried giving allrights to the SQL Server Agent runing on our server and also configuring a SQL Account only with all access to make this work. Again, the accounts where able to create the filestream localy on my Store Procedure, but I can't seem to have the rights to send a request to write to the filestream from my VB software. I'm starting to thinks its an Windows server 2008 problem.

There has to be someone that knows about this issue???!!!

Patrick Miron
I enabled "Allow remote clients to have streaming access to FILESTREAM data" and it worked for me, thanks for your help.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.