مدارک الکترونیک

[مهدی حکم الله]

در شرکت محل کارم می خواهیم مدارک و اسنادمان را الکترونیکی بایکانی و ویرایش کنیم از کدام بانکها وبرنامه ها استفاده نماییم که هم ساىه وهم امن باشند مدارکمان خیلی زیاد و خیلی مهم نیستند

[davood110]

سلام
اگه اسنادت را اسکن کنی و به صورت فایل در بیاری و یا به هر فایلی که می خوای تبدیلشون کنی با استفاده از 2 تابعی که گذاشتم(هر کاری کردم اجازه آپلود فایل را نداد) می تونی توی بانک اطلاعاتی(SQL یا Accsess) با ساختن یک جدول با فیلد با datatype از نوع image در SQL و از نوع OLEDB در Accsess می توانی فایلهایت(مدارکت) را در بانک ذخیره و بازیابی کنی .


Option Explicit
Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private lpFSHigh As Long

Public Sub SaveFile(ByRef adoRS As Recordset, ByVal strField As String, ByVal SourceFile As String)
'This sub copies the actual file into a byte array.
'This byte array is then used as the value for
'the field having an image data type
Dim arr() As Byte
Dim Pointer As Long
Dim SizeOfThefile As Long
Dim OF_READ As Variant
OF_READ = &H0&
Pointer = lOpen(SourceFile, OF_READ)
'size of the file
SizeOfThefile = GetFileSize(Pointer, lpFSHigh)
lclose Pointer

'Resize the array, then fill it with
'the entire contents of the field
ReDim arr(SizeOfThefile)

Open SourceFile For Binary Access Read As #1
Get #1, , arr
Close #1
adoRS(strField).Value = arr
adoRS.Update
Exit Sub
End Sub
Public Sub LoadFile(ByRef adoRS As Recordset, ByVal strField As String, ByVal SourceFile As String)
Dim arr() As Byte
ReDim arr(adoRS.Fields(strField).ActualSize)
arr = adoRS.Fields(strField).Value
Open SourceFile For Binary Access Write As #1
Put #1, , arr
Close #1
End Sub