Prikazi cijelu temu 19.02.2022 22:59
Amelasar Van mreze
Clan
Registrovan od:07.04.2011
Lokacija:SARAJEVO


Predmet:Kopiranje tabela iz jedne baze u drugu
Sa ovim funkcijama napravim novu bazu i kopiram tabele.
Medjutim problem mi je sto se ne kopiraju veze (relationships).
Takodjer bilo bi dobro da odredim koje tabele ce se kopirati sa podacima a koje samo struktura.

Trazila sam po forumu ali nisam se uspjela snaci. Ima li neko ideju?

PreuzmiIzvorni kôd (Text):
  1. Function makedb()
  2.    
  3.    Dim accessApp As Access.Application
  4.    Set accessApp = New Access.Application
  5.    
  6.    strDBPath = "D:\tblImport2022.mdb"
  7.    strDb = Dir(strDBPath)
  8.  
  9.    If Len(strDb) <> 0 Then
  10.     MsgBox "Baza postoji"
  11.     Else
  12.     Rem MsgBox "Baza ne postoji"
  13.     accessApp.DBEngine.CreateDatabase "D:\tblImport2022.mdb", DB_LANG_GENERAL
  14.     RunBackup
  15.    accessApp.Quit
  16.    Set accessApp = Nothing
  17. End If
  18.  
  19. End Function
  20.  
  21. Public Function RunBackup()
  22.  
  23.  Rem   DB_CopyTo = "D:\backup_" & Format(Now, "yymmdd_hhnn") & ".mdb"
  24.     DB_CopyTo = "D:\tblImport2022.mdb"
  25.    Rem  DBEngine.CreateDatabase DB_CopyTo, dbLangGeneral
  26.    
  27.     With CurrentDb
  28.         For Each t In .TableDefs
  29.             Select Case True
  30.             Case Left(t.Name, 1) = "~"
  31.             Case Left(t.Name, 4) = "msys"
  32.             Case Else
  33.                 .Execute "select * into [" & DB_CopyTo & "].[" & t.Name & "] from [" & t.Name & "]"
  34.             End Select
  35.         Next
  36.     End With
  37.    
  38. End Function


Prilozi:
KopirajBazu.rar
Preuzimanja:7
Velicina datoteke:88.50 KB

Pozdrav, Amela
Ovaj post je ureden 1 puta. Posljednja izmjena 19.02.2022 23:04 od strane Amelasar.