Attachment storing in file server

[Esmatullaharifi]

Hello Dears!
I have a form that connected to SQL server 2014 table, SQL server does not support attachment data type I want to store related form attachment in the server where SQL server is located. I need a code that can select the attachment (photo,doc) from PC and can upload it to the specific folder shared on Server computer, And vice versa (can access the specific file using its name from specific server location).


Or any other better way you can suggest me.

[ranman256]

Detach the docs and store them in a OBJ field , or BLOG. Some binary storage in a child table.

if you can't do that, store the actual files in a server folder, then store the path in the db.

[rpeare]

what do you mean by 'upload'

If you are just copying a file with a known name/path to another known folder you can use filesystemobject commands to manipulate files. Look at the methods:

https://msdn.microsoft.com/en-us/lib...=vs.84%29.aspx

[Esmatullaharifi]

I tried but i can't use filesystemobject commands because i can't find that.

[Esmatullaharifi]

I used this code that worked very well but i want the file name must be a variable that i can change it using combo box located in my form. I mean the name of the file with its extension must a variable. (database.txt as a variable)

Function GetFSO() As Object ' Scripting.FileSystemObject
  On Error Resume Next
  Set GetFSO = CreateObject("Scripting.FileSystemObject")
End Function

Sub FSOCopyFile(fso As Object, sourceFolder As String, _
  destinationFolder As String, Optional overwrite As Boolean = True)
  fso.CopyFile sourceFolder, destinationFolder, overwrite
End Sub

Private Sub Command2_Click()  
Dim fso As Object ' Scripting.FileSystemObject
Set fso = GetFSO
If fso Is Nothing Then
  Exit Sub
End If
' copyfile example
FSOCopyFile fso, "D:\database.txt", "D:\lictures\"
End Sub

[rpeare]

can't find what? you'll have to be more specific.

[rpeare]

Assume your form has three fields
fldSourceFile contains the name of the file
fldSourceDir contains the name of the directory the file currently resides
fldTargetDir contains the name of the directory you are copying the file to

assuming it is impossible to choose a directory or file that does not exist

Private Sub Command2_Click()  
Dim fso As Object ' Scripting.FileSystemObject
dim sSourceFile as string
dim sSourceDir as string
dim sTargetDir as string

Set fso = GetFSO
If fso Is Nothing Then
  Exit Sub
End If
' copyfile example
sSourceFile = fldSourceFile 
sSourceDir = fldSourceDir 'assumes the last character has is a \ otherwise you have to insert one using & "\" & between sourcedir and sourcefile instead of just &
sTargetDir = fldTargetDir

FSOCopyFile fso, ssourcedir & ssourcefile , stargetdir
End Sub

[ItsMe]

can't find what? you'll have to be more specific.

Maybe a reference issue ?