Procedura: Utilizzo codice di automazione di esempio per trasferire tabelle in un file di MDB protetto di Access 2002

Il presente articolo è stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell’utente. Tuttavia, un articolo tradotto in modo automatico non è sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, più o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non è la sua. Microsoft non è responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell’utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.

319397
Questo articolo è stato archiviato. L’articolo, quindi, viene offerto “così come è” e non verrà più aggiornato.
Avanzate: Richiede la codifica degli esperti, interoperabilità e competenze multiutente.

Il contenuto di questo articolo è applicabile solo ai database Microsoft Access (mdb).

Per la una versione di Microsoft Access 2000 di questo articolo, vedere 319481.

Contenuto dell'attività

Sommario
Alcuni programmi, ad esempio Microsoft Project, siano difficoltà di salvataggio dei dati in un database protetto di Microsoft Access. Lo scopo di questo articolo è illustrare il codice di automazione che può essere utilizzato per trasferire le tabelle da un database di Access non protette a un database di Access protetto senza dover unire in join manualmente il gruppo di lavoro e quindi avviarla Access.

back to the top

Procedure e codice di esempio

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Questo include, ma non è limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo specifico. Questo articolo si presuppone che conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug di procedure. Tecnici del supporto Microsoft possono spiegare la funzionalità di una particolare procedura, ma in nessun sono caso a modificare questi esempi per fornire funzionalità aggiuntive o creare procedure per soddisfare specifiche esigenze.
Allo scopo di questa dimostrazione, Microsoft Word viene utilizzato come il programma di seguito viene illustrato come effettuare la richiesta di automazione.

Nota : il codice di esempio in questo articolo utilizza i seguenti riferimenti:
  • Libreria di oggetti Microsoft DAO 3.6
  • Libreria di oggetti di Microsoft Access 10.0
Per la corretta esecuzione del codice, è necessario fare riferimento entrambe le librerie. Per effettuare questa operazione, scegliere riferimenti dal menu Strumenti in Visual Basic Editor e quindi verificare che entrambe le librerie sia selezionata la casella di controllo.
  1. In Word, creare un modulo e digitare la seguente riga nella sezione "Declarations", se non è già presente:
    Option Explicit					
  2. Digitare la seguente routine:
    Sub TransTables()   Dim db As DAO.Database   Dim dbs AS String   Dim Wk As String   Dim TblList(100) 'Dims the array if you have more then 100 tables.                     'You must increase this array.   Dim tblname   Dim i   Dim x   Dim accObj As New Access.Application   Dim AccPath As String   Dim myuser As String, psWord As String   Dim tblList2   Dim myapp as String      On Error GOTO ErrorTrap   Set db = OpenDatabase("c:\db1.mdb") 'Substitute the correct path and file                                       'name for your not secure database.   For i = 0 To db.TableDefs.Count - 1 Step 1       TblList(i) = db.TableDefs(i).Name   Next i ' This loop places the table names into your array.   db.Close   ' Correct this path to correctly point to your Access executable file.   myapp = "C:\Program Files\Microsoft Office\Office10\Msaccess.exe"   ' Use the path and name of a secured .mdb on your system.   dbs = "C:\SecuredData.mdb"   ' This is the secured workgroup file.   Wk = "C:\MySecured.mdw"   myuser = "test"           ' Use a valid username   psWord = "test"           ' and correct password.       x = Shell(myapp & " " & dbs & " /user " & myuser & _     " /pwd " & psWord & " /wrkgrp " & Wk, vbMinimizedNoFocus)   DoEvents   Set accObj = GetObject(, "Access.Application")   For tblList2 = LBound(TblList) To UBound(TblList) - 1         tblname = TblList(tblList2)      If Left(tblname, 4) <> "MSys" And tblname <> Empty Then       accObj.DoCmd.TransferDatabase acImport, "Microsoft Access", _        "C:\db1.mdb", acTable, tblname, tblname      End If   Next   MsgBox "Tables imported."   accObj.CloseCurrentDatabase   accObj.Quit   Set accObj = Nothing   x = ""   Exit Sub   ErrorTrap:     Msgbox "Transfer not completed."     ' If you get this error the typical areas to search are the paths     ' supplied to the variable names and the user name and password.End Sub					
  3. Per provare questa funzione, digitare la seguente riga nella finestra immediata e quindi premere INVIO:
    TransTables						
    Nota : non appena il codice è stato eseguito, i proprietari della tabella vengono assegnati al nome utente fornito da questo codice di esempio.
back to the top
Riferimenti
Per ulteriori informazioni sull'automazione, in Visual Basic Editor scegliere Guida in linea di Visual Basic dal menu Guida , digitare informazioni sull'automazione nell'Assistente di Office o nella ricerca libera e scegliere il pulsante Cerca per visualizzare l'argomento.

Per ulteriori informazioni sugli esempi che utilizzano l'automazione, fare clic sul numero dell'articolo della Microsoft Knowledge Base riportato di seguito:
302460OFFXP: Disponibili file della Guida XP automazione Microsoft Office
back to the top
progetto di proj2000 inf non protette

Avviso: questo articolo è stato tradotto automaticamente

Proprietà

ID articolo: 319397 - Ultima revisione: 02/04/2014 09:58:50 - Revisione: 4.0

  • Microsoft Access 2002 Standard Edition
  • kbnosurvey kbarchive kbmt kbhowto kbhowtomaster KB319397 KbMtit
Feedback