Newsgroup: it.comp.appl.access
Titolo: Copiare oggetto tabella da un database ad un altro

Ho un db principale [dbs] (dove risiede il codice) al quale sono collegate
le tabelle con i dati [dbsDati]. Ho necessita di copiare una tabella
contenuta nel dbsDati in un terzo database esterno [dbsEx]. A me interessa
copiare solo la struttura della tabella e non i dati contenuti. Il metodoto
"TransferDatabase" non è utilizzabile in quanto mi permette di esportare
solo oggetti contenuti nel db corrente.
Ho provato anche con dbEx.TableDefs.Append dbsDati.TableDefs(NomeTabella) ma
mi da errore.
Chi puo' aiutarmi?
Grazie Gianluca
-- 
Posted from 
mail.gostec.it
 [151.4.188.2] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Quello che ti riporto di seguito č il codice che ho usato nell'Access
Navigator per esportare un gruppo di maschere dalla add-in all'applicazione
corrente:
io concetto č:
creo un'altra istanza di Access
Apro il database che deve ricevere il documento (le maschere nel mio caso,
la tabella nel tuo)
Importo
Prova a capirci qualcosa, se hai dei problemi riposta.
HTH
Michele Amato
--
'Created by: Michele Amato - M.A.Engineering
'Created   : 15/05/01 16:15:15
Private Function fxImportaMaschere(dba As Database, dbs As Database,
rvMaschere As Variant) As Integer
On Error GoTo Err_fxImportaMaschere
Dim app As Application
Dim lsProv As String
Dim lsPath As String
Dim liI As Integer
Dim liN As Integer
Dim liCount As Integer
  Set app = New Application
  lsProv = dba.Name
  lsProv = Left(dba.Name, Len(lsProv) - 4) & "Forms.mda"
  If Dir(lsProv) = vbNullString Then
    lsPath = fxMAE_GetPathFromPathName(dba.Name)
    lsProv = fxMAE_OpenFileDialog(lsPath, fxMAE_CreaStringaFiltro("Access
Navigator Forms", "*.mda", "All"), ccMAE_APPLICATIONNAME)
  End If
  If lsProv <> vbNullString Then
    app.OpenCurrentDatabase lsProv
    liN = UBound(rvMaschere)
    liCount = 0
    For liI = 0 To liN
      Err = 0
      txtLog = txtLog & Now() & ": Trying to import " & rvMaschere(liI) &
vbNewLine
      app.DoCmd.CopyObject dbs.Name, rvMaschere(liI), acForm,
rvMaschere(liI) & "2copy"
      If Err.Number = 0 Then
        liCount = liCount + 1
        txtLog = txtLog & Now() & ": Importing " & rvMaschere(liI) &
vbNewLine
      Else
        txtLog = txtLog & Now() & ": Importing " & rvMaschere(liI) & "
error: " & Err.Number & ": " & Err.Description & vbNewLine
      End If
    Next
  End If
  txtLog = txtLog & Now() & ": Trying to import module zmMAE_Autoexec" &
vbNewLine
  app.DoCmd.CopyObject dbs.Name, "zmMAE_Autoexec", acModule,
"zmMAE_Autoexec2copy"
  If Err.Number = 0 Then
    liCount = liCount + 1
    txtLog = txtLog & Now() & ": Importing zmMAE_Autoexec" & vbNewLine
  Else
    txtLog = txtLog & Now() & ": Importing zmMAE_Autoexec error: " &
Err.Number & ": " & Err.Description & vbNewLine
  End If
  app.Quit
  fxImportaMaschere = liCount
Exit_fxImportaMaschere:
Exit Function
Err_fxImportaMaschere:
  Select Case Err
  Case 0    'insert Errors you wish to ignore here
    Resume Next
  Case Else 'All other errors will trap
    Beep
    Select Case MsgBox(Err.Description, vbAbortRetryIgnore, "Error in
Function Form_zfMAE_Installer.fxImportaMaschere")
      Case vbIgnore: Resume Next
      Case vbRetry: Resume
      Case vbAbort: Resume Exit_fxImportaMaschere
    End Select
  End Select
  Resume 0  'FOR TROUBLESHOOTING
End Function
--
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}
Sulla mia pagina personale
http://maengineering.20m.com
č possibile trovare del materiale relativo ad Access
scritto da me, sia freeware che shareware
{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}