Re: storing path only to database

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

These links will get you started:
PictureMgr: http://www.datastrat.com/DataStrat2.html
Larry Linson's: http://accdevel.tripod.com/imaging.htm
http://www.mvps.org/access/forms/frm0030.htm



On 18 Sep 2006 17:36:47 -0700, "az" <noorazlina85@xxxxxxxxx> wrote:

helo..i'm az...from kuala lumpur...i would like to ask a question about
access...i have doing a project based on access...i have done it
successfully but now the problem is size of the file...the limit for
access is only 2gb...but the file that i have to put in that database
is about 5gb..the type of file that i have to store is images(bitmap)
about 38000 images...before this,i store all the images to access...but
cannot store all the images because of the limitation...now...i want to
store only the path for the images only...and retrieve the images
later...so that it can reduce the size of the file...the question is
HOW can i do it???anyone can help me??this is the coding that i use to
load all the images to database...i hope this will help you give me
some idea...please help me..if you have any coding for this problem...i
hope you can share with me..

Option Compare Database

Private Sub cmdLoadOLE_Click()
Dim MyFolder As String
Dim MyExt As String
Dim MyPath As String
Dim MyFile As String
Dim strCriteria As String

MyFolder = Me.SearchFolder

' Get the search path.
MyPath = MyFolder & "\" & "*." & [SearchExtension]
' Get the first file in the path containing the file extension.
MyFile = Dir(MyPath, vbNormal)
Do While Len(MyFile) <> 0
[OLEPath] = MyFolder & "\" & MyFile
[OLEFile].Class = [OLEClass]
[OLEFile].OLETypeAllowed = acOLinked
[OLEFile].SourceDoc = [OLEPath]
[OLEFile].Action = acOLECreateLink
' Check for next OLE file in the folder.
MyFile = Dir
' Go to new record on form.
DoCmd.RunCommand acCmdRecordsGoToNew
Loop

End Sub

--
John Nurick [Microsoft Access MVP]

Please respond in the newgroup and not by email.
.

Relevant Pages

  • DpAPI Encrypted Aes Key Problems
    ... Friend Function CreateKeyAs String ... Dim aesProvider As New RijndaelManaged ... Public Enum Store ... ' Not passing optional entropy and use the machine store ...
    (microsoft.public.dotnet.framework.aspnet.security)
  • Re: Storing a value for later use in vba or a Macro
    ... Dim strCurrentCustomer as String ... do you programmatically store a value from one record to use in ...
    (microsoft.public.access.gettingstarted)
  • RE: .movefile
    ... You should be able to store the file name in a variable after you open the ... 'This example move all Excel files from FromPath to ToPath. ... Dim FromPath As String ...
    (microsoft.public.excel.programming)
  • Re: Adding Field from Table in OS File Name
    ... > Dim rs As New ADODB.Recordset ... > Dim bFName As String ... you've set the string variable Store to equal the field Store ... This returns the first file with the name "StorePL*.PRN" ...
    (microsoft.public.access.modulesdaovba)
  • Storing all the data of a binary file into a string
    ... I want to open the file and store every single ... byte of it's data in to a string variable. ... BinaryReader object, I've had no success. ... Dim sr As StreamReader = File.OpenText ...
    (microsoft.public.dotnet.languages.vb)