ACC2000: Procedura caricare gli oggetti OLE da una cartella in una tabella

Metodo per il file di importazione oggetto OLE

1. Creare la nuova tabella riportata di seguito in visualizzazione Struttura. Salvarlo come tblLoadOLE:

      Table: tblLoadOLE
      ------------------------
      Field Name: OLEID
         Data Type: AutoNumber
      Field Name: OLEPath
         Data Type: Text
         Field Size: 255
      Field Name: OLEFile
         Data Type: OLE Object
   
      Table Properties: tblLoadOLE
      ----------------------------
      PrimaryKey: OLEID
   					

2. Utilizzare la maschera standard: a colonne guidata per creare una nuova maschera basata sulla tabella tblLoadOLE. Salvarlo come frmLoadOLE.
3. Apre il modulo di frmLoadOLE in visualizzazione struttura.
4. Creare i controlli casella di testo non associata tre nella sezione intestazione maschera della maschera:

      Form: frmLoadOLE
      ------------------------
      Text Box:
         Name: SearchFolder
      Text Box:
         Name: SearchExtension
      Text Box:
         Name: OLEClass
   					

5. Creare il seguente pulsante di comando del modulo:

      Command Button
      --------------
      Name: cmdLoadOLE
      Caption: Load Files
   					

6. Digitare la seguente routine evento nella proprietà OnClick del pulsante cmdLoadOLE:

   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 = acOLEEmbedded
         [OLEFile].SourceDoc = [OLEPath]
         [OLEFile].Action = acOLECreateEmbed
         ' Check for next OLE file in the folder.
         MyFile = Dir
         ' Go to new record on form.
         DoCmd.RunCommand acCmdRecordsGoToNew
      Loop
   
   End Sub
   					

7. Salvare il modulo frmLoadOLE e aprirlo in visualizzazione maschera.
8. Nella casella di testo SearchFolder digitare il nome di percorso completo della cartella che si desidera eseguire la ricerca.
9. Nella casella di testo SearchExtension, digitare l'estensione di file che si desidera caricare, ad esempio bmp, jpg, doc, xls, tif o gif. Non digitare un punto come parte dell'estensione. Ad esempio, non digitare bmp.
10. Digitare il nome di classe per il tipo di file che si sta caricando, ad esempio Paint.Picture per i file con estensione bmp.
    
    Nota: Per determinare il nome di classe di un oggetto OLE, vedere la documentazione per l'applicazione fornisce l'oggetto.
11. Fare clic sul pulsante Carica file. Si noti che tutti i file che corrispondono al SearchFolder e SearchExtension immesso vengono aggiunti alla tabella tblLoadOLE.

Torna all'inizio