ACC2000: come caricare oggetti OLE da una cartella in una tabella

I file di importazione oggetto OLE, metodo

1. Creare la nuova tabella riportata di seguito in visualizzazione Struttura. Salva 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 frmLoadOLE.
3. Apre il modulo frmLoadOLE in visualizzazione struttura.
4. Creare i seguenti e tre controlli di casella di testo non associata nella sezione di intestazione di maschera della maschera:

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

5. Crea il pulsante di comando seguente nel modulo:

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

6. Digitare la routine evento riportata di seguito 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 percorso completo della cartella che si desidera eseguire la ricerca.
9. Nella casella di testo SearchExtension digitare l'estensione 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 sono caricato, 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 che fornisce l'oggetto.
11. Fare clic sul pulsante Carica file. Si noti che tutti I file che corrispondono al SearchFolder e SearchExtension immesso sono aggiunto alla tabella tblLoadOLE.

Torna all'inizio