Database

If (Decrypt_TextBox.Text = "") Then
               MessageBox.Show("Need to put in the file location or select file in grid for decryption")
           Else

               'declaring string for file'
               Dim filename As String
               'Getting the file name that is selected'

               filename = getFilename()
               'Starting to abstract the data from the database'
               database.ConnectionString = "Data Source = test.db3;"
               database.Open()
               Dim command As SQLite.SQLiteCommand
               Dim sqlstatement As String
               command = database.CreateCommand
               'The following will get the bytes of the file'
               Dim filesize As Integer
               sqlstatement = "SELECT FileSize From Vault WHERE FileName=@file;"
               command.CommandText = sqlstatement
               command.Parameters.AddWithValue("@file", filename)
               Dim reader As SQLite.SQLiteDataReader
               reader = command.ExecuteReader
               filesize = reader.GetValue(0)
               reader.Close()
               Dim data(filesize) As Byte
               'The following should get the data'
               sqlstatement = "SELECT FileData FROM Vault WHERE FileName=@file;"
               command.CommandText = sqlstatement
               command.Parameters.AddWithValue("@file", filename)
               reader = command.ExecuteReader

Declare @colname varchar(200), @Eid varchar(50),@message varchar(80),@command varchar(200)
Declare my_cursor CURSOR
For Select replace(replace(replace(SecurityRole,' ',''),'/',''),'-','') as SecRole,EmployeeID
from EmergencyContact.dbo.CSEEmployeeRoles
where EmployeeID='38'
order by EmployeeID, SecRole
open my_cursor
fetch next from my_cursor into @colname,@Eid 
while @@fetch_status = 0
begin
select @message = @colname+' '+@Eid
print @message
select @command= 'update EmergencyContact.dbo.CSERolesRolledUp set '+@colname+' = "Yes"
where EmployeeID = '+@Eid
exec (@command)
fetch next from my_cursor into @colname,@Eid
end
close my_cursor
deallocate my_cursor