Boa tarde Alvaro, obrigado pela ajuda.
com os links enviados, eu consegui criar a tabela FileStream, a qual estava ocorrendo erro.
Agora, no exemplo:
[Você precisa estar registrado e conectado para ver este link.]eu não consegui interpretar como usar as funções para ver se funciona. Podem colaborar com suas experiências?
Tabela criada no SQL Server:
tbl_Attach_File
CAMPOS:
ID_Attach_File
ID_Document '(Para vícnculo do arquivo com o documento)
Attach_Native_File '(Arquivo nativo, .docx, .xlsx, .zip etc.)
Attach_PDF_File '(.pdf)
Description_File '(Descrição do arquivo)
Função do exemplo:
Option Compare Database
Option Explicit
'Adiciona o arquivo
Sub AddFile(strDescription As String, strFilename As String)
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim objStream As New ADODB.Stream
'create the stream
objStream.Type = adTypeBinary
objStream.Open
objStream.LoadFromFile strFilename
con.Open "PROVIDER=SQLOLEDB.1;PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=FS;DATA SOURCE=(local)\sqlexpress2008r2;INTEGRATED SECURITY=SSPI"
rs.Open "Select * from FSTest", con, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!Description = strDescription
rs!FS = objStream.Read
rs.Update
rs.Close
objStream.Close
con.Close
End Sub
'Visualiza o arquivo
Sub ReadFile(strDescription As String, strFilename As String)
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim objStream As New ADODB.Stream
'create the stream
objStream.Type = adTypeBinary
objStream.Open
con.Open "PROVIDER=SQLOLEDB.1;PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=FS;DATA SOURCE=(local)\sqlexpress2008r2;INTEGRATED SECURITY=SSPI"
rs.Open "Select * from FSTest where Description = '" & strDescription & "'", con, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
objStream.Write rs!FS
objStream.SaveToFile strFilename, adSaveCreateOverWrite
objStream.Close
End If
rs.Close
con.Close
End Sub