Avko | 06.02.2015 17:01 |
---|---|
Predmet:VB6 open binary file zna li netko kako napisati ovo na jednostavan nacin imamo bazu podataka ime prezime datum rodenja maticni broj telefonski broj sve bi podatke odjednom uneli u binarni file onda bi po potrebi otvorili binarni file i pretrazivali po nekom kriteriju recimo godini rodenja i ispisali na ekranu osobu koja je rodena toga datuma nesto jednostavno hvala |
zxz | 06.02.2015 18:46 |
---|---|
Predmet:Re: VB6 open binary file Evo jedan primjer sa jednim redom zapisa. E sad ako ces odjedno unijeti podatke u bazu treba malo prepraviti odnosno napraviti petlju u unosu i naravno za iscitavanje treba napraviti pretragu. Neznam kako si to zamislio dalje ali ako se ne snadjes opet pisi. |
|
Prilozi: binarni_fajl.zip (Velicina datoteke:2.45 KB) |
Gjoreski | 06.02.2015 20:40 |
---|---|
Predmet:Re: VB6 open binary file Avko ima potreba od nesto sto sleduva vo idnina i sto ke bidi uslov za da se prodade programa ,a toa e kriptirajne i zastita na podatocite i toa ne samo za prenos tuku i za koristejne. toa e idninata na programirajneto. koj ke napravi po bezbeden i pofunkcionalen program toj ke prodava. bravo za idejava so binarno pretvorajne. |
zxz | 06.02.2015 21:05 |
---|---|
Predmet:Re: VB6 open binary file Ako misli na zastitu binarni zapis nije nikakva zastita. To se lako iscita cak i kada bi binarno zapisao svaki karakter sto ovdje nije slucaj. Nisam ja bas siguran sta mu je ideja. Ako misli na zastitu onda treba napraviti neko svoje kriptovanje podataka. |
Avko | 07.02.2015 12:42 |
---|---|
Predmet:Re: VB6 open binary file nisam mislio na zastitu podataka vec na manje zauzimanja prostora i mozda brzi rad sa podacima |
Avko | 07.02.2015 12:54 |
---|---|
Predmet:Re: VB6 open binary file neznam zasto nemogu editirat poruku pa nadodat odgovor? Me.TelB = Ucitani.Tel trebalo je ispraviti u Me.TelB = Ucitani.TelB hvala na odgovoru dobro ce mi doci za daljnu zabavu sa podacima e sada zasto se koriste moduli, jeli se moglo staviti sve u jednu stranu, zapravo meni se dogadalo da neke varijable izgube vrijednost kada odem na modul pa sam iz toga razloga cijeli kod pisao samo na jednoj strani |
zxz | 07.02.2015 12:55 |
---|---|
Predmet:Re: VB6 open binary file Onda ok. Probaj ono sto sam zakacio primijeniti kod sebe pa ako zapnes javi se. |
zxz | 08.02.2015 18:52 |
---|---|
Predmet:Re: VB6 open binary file Tvoj problem nje u zapisivanj podataka negokako ih poslije iscitavati po meni. Neznam zasto si opisivao duzine stringova. Po meni bolje da si stavio neki delimiter da bi poslije mogao iscitati podatke. Ili pak ici na to da se zapise cijela struktura baze kao sto se prije radilo kada se koristila txt baza podataka. Iznenadio si me znas dosta o tome. Da sam znao detaljnije bi gore uradio primjer. |
zxz | 08.02.2015 20:35 |
---|---|
Predmet:Re: VB6 open binary file evo probaj ovako: Type osoba maticniBr As Long ime As String prezime As String datumR As Date adresa As String telefon As Double End Type Sub saveBinFile() Dim O As osoba Dim maticni As Long 'vrijednost kucice Dim strSize As Long 'stvoriti novu datoteku i otvoriti ju za binarni pristup Open "c:\popis.bin" For Binary Lock Read Write As 1 'idemo od prvog zapisa do zadnjeg 'ovdje bi mogli odrediti zadnji zapis sa redEnd=(Cells(1, Columns.Count).End(xlToLeft).Column For f = 1 To 50 'aktiviramo prvi list na kojem imamo maticni, ime, prezime i datum rod Worksheets("list1").Select maticni = Cells(f + 1, 1) O.maticniBr = maticni O.ime = Cells(f + 1, 2) O.prezime = Cells(f + 1, 3) O.datumR = Cells(f + 1, 4) 'aktiviramo drugi list na kojem imamo adresu i telefon nademo uz pomoc naredbe vlookup i maticnog broja Worksheets("list2").Select O.adresa = Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 4, False) O.telefon = Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 5, False) put 1,f,o Next f 'sljedeci red Close 1 'zatvorimo datoteku End Sub 'put brojSekvencialnogfajla, brojrekorda, podatakzaunos |