Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (3):1,2,3
 Prikazi prvu neprocitanu poruku

#1 28.07.2013 17:56
Getsbi Van mreze
Moderator
Registrovan od:04.02.2009
Postovi:128


Predmet:Importovanje .dbf u Access
Da li ima neko primer istovremenog importovanja viÅ¡e selektovanih .dbf datoteka u .mdb ili .accdb fajl i da postoji mogućnost da se lokacija .dbf datoteka bira?
http://mzahorjanski.wix.com/mzahorjanski#
↑  ↓

#2 28.07.2013 19:10
roko Van mreze
Clan
Registrovan od:02.02.2009
Postovi:236


Predmet:Re: Importovanje .dbf u Access
Možeš ih polinkat..
↑  ↓

#3 28.07.2013 20:05
Getsbi Van mreze
Moderator
Registrovan od:04.02.2009
Postovi:128


Predmet:Re: Importovanje .dbf u Access
Mogu. Ali treba mi importovanje i to istovremeno veći broj selektovanih .dbf datoteka. Recimo odaberem putanju i na njoj pokupim 15 datoteka tipa .dbf. Odradim izmene u podacima i isprintam izveÅ¡taje, a da na lokaciji (server) ostanu nepromenjene datoteke.
http://mzahorjanski.wix.com/mzahorjanski#
↑  ↓

#4 28.07.2013 21:25
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Importovanje .dbf u Access
Imas jedan zgodan nacin.Kopiras datoteke negdje pored app te se linkujes na ljih iz app.
Napravis ono sto ti treba i prije svakkog pokrtetanja poslije mozes kodom napraviti fileCopy .
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 28.07.2013 21:41
Getsbi Van mreze
Moderator
Registrovan od:04.02.2009
Postovi:128


Predmet:Re: Importovanje .dbf u Access
Da ja radim, bilo bi tako. Međutim, ovo treba da bude aplikacija za korisnika. Neophodno je da bude unutar app. Na ES-u sam zakačio dokle sam stigao.
http://mzahorjanski.wix.com/mzahorjanski#
↑  ↓

#6 28.07.2013 22:18
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Importovanje .dbf u Access
Pa nismo se razumjeli i bit ce za korisnika.
Ja sam ti samo opisao kako da napravis jer i neznam sta ces raditi poslije sa podacima.
Idemo ponovo:
Primjer:
Ima app. na Putanji C:\Mojaapp\moja.mdb
Imas dbfove na putanji: \Server1\baze\
Napravis dir na putanji: C:\Mojaapp\dbfovi\
Kopiras dbf datoteke u svoj napravljeni folder dbfovi.
Podignes svoju app i linkas ove tabele iz foldera dbefovi.
Sad imas podatke i napravis neku formu ili sta vesc od ovih tabela.
Kada sve zavrsis na podizanje forme koja ima ovu tabelu kao recordsource napravis kod.
Napr na on klik nekokog komandnog tastera bi bilo
FileCopy \Server1\baze\moj.dbf C:\Mojaapp\dbfovi\moj.dbf
docmd.openform "Imeforme"
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#7 29.07.2013 01:22
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Importovanje .dbf u Access
Eve ti primer za DAO konecija na dbf baza Mozes sve to preki Cod da obrabotis samo treba tocno da znaeme sto ti treba pa ke sredime

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim rs As DAO.Recordset
  2. Dim MyDB As DAO.Database
  3.  StrSQL = "SELECT * FROM TBLDATA"
  4.  Set MyDB = DBEngine.OpenDatabase(App.Path, True, False, "dBASE IV;")
  5.     Set rs = MyDB.OpenRecordset(StrSQL)
  6.        
  7.              rs.AddNew
  8.              rs("ID_FIELD") = rs.RecordCount + 1
  9.              rs("DATA") = Now()
  10.              rs("VREME") = Format(Now, "HH:MM:SS")
  11.              rs.Update
  12.              rs.Close
Ovaj cod e za dodavajne zapis vo DBF tabela so izmeni istoto moze da se koristi za citajne ili drugi obrabotki na tabekita
↑  ↓

#8 29.07.2013 02:06
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Importovanje .dbf u Access
Nije dobro importovati podatke u bazu je stalnim iportima se napuhava baza.
Prakticnije je rjesenje ono gore sto sam naveo.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 29.07.2013 07:54
Getsbi Van mreze
Moderator
Registrovan od:04.02.2009
Postovi:128


Predmet:Re: Importovanje .dbf u Access
@ ZXZ,
Å¡to se tiče rasta baze, neće dolaziti do toga. Na formi ću postaviti dugme za brisanje svih trenutno prisutnih importovanih tabela (.dbf-ovi). Svaki put, pre nego se omogući importovanje, programčić će zahtevati da se obriÅ¡u stare tabele. Radi se o tome da je ovo programčić za knjigovodstvenu agenciju. Knjigovođa treba da odabere lokaciju odakle importuje .dbf datoteke (lokacija ima 40-tak).
F:\ROB13\KOR1
.
.
F:\ROB13\KOR39
Nakon importa sa servera (Novell 3.12) na lokalnu radnu stanicu, knjigovođa eventualno vrÅ¡i izmenu (peglanje) podataka i Å¡tampa izveÅ¡taj. Zato je nužno da bude udobno importovanje pomoću Browse prozora, kao u primeru.

@ Gjoreski,
Ideja sa SQL izrazom u kood-u je dobra ali treba da postoji mogućnost uzimanja samo selektovanih .dbf-ova sa trenutno odabrane lokacije.

Zakačiću fajl dokle sam stigao. Iako se ponegde u kood-u spomine linkanje, radi se o importovanju.
http://www.elitesecurity.org/...dbf-Access

Pozdrav

Prilozi:
Informacije o tipu datoteke za:rar  ImportDbase.rar
Preuzimanja:272
Velicina datoteke:17.07 KB

http://mzahorjanski.wix.com/mzahorjanski#
Ovaj post je ureden 1 puta. Posljednja izmjena 29.07.2013 07:58 od strane Getsbi. ↑  ↓

#10 29.07.2013 13:13
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Importovanje .dbf u Access
UF dao sam ti pogresan kod.
a i ne treba to mi sluzi samo za testiranje.
PreuzmiIzvorni kôd (Visual Basic):
  1. Sub LinkAllTblsinDir()
  2. '-------------------------------------------------------------
  3. Dim sTblNm As String, sPath As String, sFileNm
  4. Dim DB As DAO.Database, Tbl As Tabledef
  5. Dim ImeT As String, Prefix As String, Putanja As String
  6. Dim fd As FileDialog, Fl As Integer
  7. '-------------------------------------------------------------
  8. Prefix = "dbf_"
  9. Set DB = CurrentDb()
  10. 'Brisanje
  11. For Each Tbl In DB.TableDefs
  12. ImeT = Tbl.Name
  13. If Left(ImeT, 4) = Prefix Then
  14. DoCmd.DeleteObject acTable, ImeT
  15. End If
  16. Next Tbl
  17. 'Upis
  18. Set fd = Application.FileDialog(msoFileDialogFilePicker)
  19. With fd
  20. .AllowMultiSelect = True
  21. .Filters.Clear
  22. .Filters.Add "Baze", "*.dbf", 1
  23. .Show
  24. End With
  25. Putanja = fd.InitialFileName
  26. For Each sFileNm In fd.SelectedItems
  27.     If Right(sFileNm, 3) = "dbf" Then
  28.     sFileNm = Mid(sFileNm, Len(Putanja) + 1)
  29.     sTblNm = Prefix & Left(sFileNm, Len(sFileNm) - 4)
  30.     DoCmd.TransferDatabase acImport, "dBase 5.0", Putanja, acTable, sFileNm, sTblNm, False
  31.     End If
  32. Next sFileNm
  33. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (3):1,2,3

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 11: 40 pm.