sql-server-2008 - name - habilitar filestream sql server 2017

¿Alguien ha usado ASP clásico con SQL Server 2008 y su nueva característica FileStream?

Question

Me estoy preparando para usar la capacidad FileStream de SQL Server 2008, pero no estoy seguro si Classic ASP puede leer y escribir desde SQL 2008 FileStream. Todavía tenemos una aplicación antigua que nos gustaría actualizar para admitir las cargas de archivos en la base de datos y nos gustaría considerar FileStream. Si es necesario, puedo construir un objeto COM a través de .NET para manejar esto, pero me gustaría saber si hay una mejor manera, ¡gracias!

Answer 1

Aquí hay un código de ejemplo. No lo probé, pero lo obtuve de http://www.experts-exchange.com/Microsoft/Development/MS_Access/Access_Coding-Macros/Q_24772719.html :

Function Download_File(SQL_Txt As String, Conn As ADODB.Connection, FieldName As String, Fname As String, Optional FPath As String = "") As String
        Dim Z As Variant, I As Long, Fn As String, Max As Long, X As New ADODB.Recordset, Fx As New FileSystemObject
        Dim FieldType As ADODB.DataTypeEnum
        Const Delta = 32768
        On Error GoTo Download_File_Err
        I = 1
        Download_File = ""


        X.CursorLocation = adUseServer
        X.Open SQL_Txt, Conn, adOpenStatic, adLockReadOnly

        Max = X(FieldName).ActualSize
        FieldType = X(FieldName).Type
        If FieldType = adLongVarChar Then
            Z = X(FieldName).GetChunk(Delta) ''Legggi la porzione di file...
        Else
            ''FieldType =adLongVarBinary ->sicuramente!
            Z = BinaryToString(X(FieldName).GetChunk(Delta))
        End If
        ''Apri-Crea il nuovo file e scrivi la prima porzione di file...
        Fx.OpenTextFile(Fn, ForWriting, True).Write Z
        While Len(Z) > 0
            If FieldType = adLongVarChar Then
                Z = Nz(X(FieldName).GetChunk(Delta), "")
            Else
                Z = BinaryToString(X(FieldName).GetChunk(Delta))
            End If
            ''Salva la porzione di file...
            Fx.OpenTextFile(Fn, ForAppending, False).Write Z
            I = I + 1
        Wend
        X.Close
        Set Fx = Nothing
        Msg
        Download_File = Fn ''Segnala avvenuto scaricamento del file con nome e percorso...
        Exit Function
        Download_File_Err:
            MsgBox Err.Description
            Msg
            X.Close
        Set Fx = Nothing
End Function

Public Function Upload_File(SQL_Txt, Conn As ADODB.Connection, FieldName As String, Optional FPath_and_Name As String = "") As String
        Dim Z As String, L As Long, Fx As New FileSystemObject, X As New ADODB.Recordset
        Dim FieldType As ADODB.DataTypeEnum
        Const Delta = 16384
        On Error GoTo Upload_File_err
        Upload_File = ""
        L = FileLen(FPath_and_Name)
        ''In questo caso si usa il cursore lato server... (Ma perchè il cursore lato client fallisce?)
        X.CursorLocation = adUseServer
        X.Open SQL_Txt, Conn, adOpenDynamic, adLockOptimistic
        FieldType = X(FieldName).Type
        If FieldType = adLongVarChar Then
            ''Leggi tutti i caratteri dal file...
            Z = Fx.OpenTextFile(FPath_and_Name, ForReading).Read(L)
            X.Update FieldName, Z
        Else
            Z = Fx.OpenTextFile(FPath_and_Name, ForReading).Read(L)
            X.Update FieldName, StringToBinary(Z)
        End If
        X.Close
        Msg
        Upload_File = FPath_and_Name
        Exit Function
        Upload_File_err:
            MsgBox Err.Description
            X.Close
            Msg
End Function

Function BinaryToString(ByteArray As Variant) As String
        ''--- Fast Converts the binary content to text
        ''Antonin Foller, http://www.motobit.com
        Dim X As New ADODB.Recordset, L As Long
        BinaryToString = ""
        If IsNull(ByteArray) Then Exit Function
        L = LenB(ByteArray)
        If L > 0 Then
            X.Fields.Append "mBinary", adLongVarChar, L
            X.Open
            X.AddNew
            ''In questo caso particolare AppendChunk converte l''array di byte
            ''in stringa! fantastico.
            X("mBinary").AppendChunk ByteArray
            X.Update
            BinaryToString = X("mBinary")
        End If
        X.Close
End Function

Function StringToBinary(S As String) As Variant
        ''Converts the string into a Binary array()
        ''Standard conversion...
        Dim I As Long, V As Variant
        StringToBinary = Null
        If S = "" Then Exit Function
        ReDim V(0 To Len(S) - 1) As Byte
        For I = 1 To Len(S)
            V(I - 1) = Asc(Mid(S, I, 1))
        Next I
        StringToBinary = V
End Function