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

zxz	28.07.2013 21:25
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 .

zxz

28.07.2013 21:25

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 .

Getsbi	28.07.2013 17:56
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?

Getsbi

28.07.2013 17:56

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?

roko	28.07.2013 19:10
Predmet:Re: Importovanje .dbf u Access MoÅ¾eÅ¡ ih polinkat..

roko

28.07.2013 19:10

Predmet:Re: Importovanje .dbf u Access

MoÅ¾eÅ¡ ih polinkat..

Getsbi	28.07.2013 20:05
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.

Getsbi

28.07.2013 20:05

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.

Getsbi	28.07.2013 21:41
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.

Getsbi

28.07.2013 21:41

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.

zxz	28.07.2013 22:18
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"

zxz

28.07.2013 22:18

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"

Gjoreski	29.07.2013 01:22
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): Dim rs As DAO.Recordset Dim MyDB As DAO.Database StrSQL = "SELECT * FROM TBLDATA" Set MyDB = DBEngine.OpenDatabase(App.Path, True, False, "dBASE IV;") Set rs = MyDB.OpenRecordset(StrSQL) rs.AddNew rs("ID_FIELD") = rs.RecordCount + 1 rs("DATA") = Now() rs("VREME") = Format(Now, "HH:MM:SS") rs.Update 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

Gjoreski

29.07.2013 01:22

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):

Dim rs As DAO.Recordset
Dim MyDB As DAO.Database
StrSQL = "SELECT * FROM TBLDATA"
Set MyDB = DBEngine.OpenDatabase(App.Path, True, False, "dBASE IV;")
Set rs = MyDB.OpenRecordset(StrSQL)
rs.AddNew
rs("ID_FIELD") = rs.RecordCount + 1
rs("DATA") = Now()
rs("VREME") = Format(Now, "HH:MM:SS")
rs.Update
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

zxz	29.07.2013 02:06
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.

zxz

29.07.2013 02:06

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.

Getsbi	29.07.2013 07:54
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: ImportDbase.rar (Velicina datoteke:17.07 KB)

Getsbi

29.07.2013 07:54

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:
ImportDbase.rar (Velicina datoteke:17.07 KB)

zxz	29.07.2013 13:13
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): Sub LinkAllTblsinDir() '------------------------------------------------------------- Dim sTblNm As String, sPath As String, sFileNm Dim DB As DAO.Database, Tbl As Tabledef Dim ImeT As String, Prefix As String, Putanja As String Dim fd As FileDialog, Fl As Integer '------------------------------------------------------------- Prefix = "dbf_" Set DB = CurrentDb() 'Brisanje For Each Tbl In DB.TableDefs ImeT = Tbl.Name If Left(ImeT, 4) = Prefix Then DoCmd.DeleteObject acTable, ImeT End If Next Tbl 'Upis Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd .AllowMultiSelect = True .Filters.Clear .Filters.Add "Baze", "*.dbf", 1 .Show End With Putanja = fd.InitialFileName For Each sFileNm In fd.SelectedItems If Right(sFileNm, 3) = "dbf" Then sFileNm = Mid(sFileNm, Len(Putanja) + 1) sTblNm = Prefix & Left(sFileNm, Len(sFileNm) - 4) DoCmd.TransferDatabase acImport, "dBase 5.0", Putanja, acTable, sFileNm, sTblNm, False End If Next sFileNm End Sub

zxz

29.07.2013 13:13

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):

Sub LinkAllTblsinDir()
'-------------------------------------------------------------
Dim sTblNm As String, sPath As String, sFileNm
Dim DB As DAO.Database, Tbl As Tabledef
Dim ImeT As String, Prefix As String, Putanja As String
Dim fd As FileDialog, Fl As Integer
'-------------------------------------------------------------
Prefix = "dbf_"
Set DB = CurrentDb()
'Brisanje
For Each Tbl In DB.TableDefs
ImeT = Tbl.Name
If Left(ImeT, 4) = Prefix Then
DoCmd.DeleteObject acTable, ImeT
End If
Next Tbl
'Upis
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Baze", "*.dbf", 1
.Show
End With
Putanja = fd.InitialFileName
For Each sFileNm In fd.SelectedItems
If Right(sFileNm, 3) = "dbf" Then
sFileNm = Mid(sFileNm, Len(Putanja) + 1)
sTblNm = Prefix & Left(sFileNm, Len(sFileNm) - 4)
DoCmd.TransferDatabase acImport, "dBase 5.0", Putanja, acTable, sFileNm, sTblNm, False
End If
Next sFileNm
End Sub