pisi-citaj baze

pisi-citaj baze

offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

Ovako imam vrlo mali problem.
Imam kod koji pise ubazu"

Dim imeservisa As New System.IO.StreamWriter("C:\Program Files\EVUS\EVUS\Baze\Imeservisa.txt")
imeservisa.Write(TextBox1.Text)
imeservisa.Close()

i kod koji cita tu bazu:

Dim nazivservisa As New System.IO.StreamReader("C:\Program Files\EVUS\EVUS\Baze\Imeservisa.txt")
Me.Text = "EVUS Pregled vozila " + """" + nazivservisa.ReadToEnd + """"
nazivservisa.Close()

i sada kada pokusam da zapisem novo ime u bazu prijavi mi da je to nemoguce jer je on zauzet drugim programom a otvoren je samo taj program koji pise tu bazu.

aj dajte neko resenje ili savet!

Dopuna: 18 Feb 2009 21:54

jel ima neko neki savet



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 448
  • Gde živiš: Novi Beograd

Verovatno si dva puta pokusao da otvoris isti (vec otvoreni fajl)
Pogledaj u task manageru da li ti je otvoren fajl.



offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

Ne bre. taj fajl citaju samo forme koje se otvaraju kao text ali posle koda:
Dim nazivservisa As New System.IO.StreamReader("C:\Program Files\EVUS\EVUS\Baze\Imeservisa.txt")
Me.Text = "EVUS Pregled vozila " + """" + nazivservisa.ReadToEnd + """"

obavezno stavim:
nazivservisa.Close()
i sad to neradi. kad mi pojavi tu gresku, kliknem dugme nastavi i on mi za neverovati uradi posao kako treba, odnosno promeni sadrzaj text. nekad promeni iz prve a nekad mu treba 10-15 pokusaja...

Dopuna: 23 Feb 2009 19:36

Uspeosam to resiti na drugi nacin ali ovo jos nisam shvatio. hvala drejk.

offline
  • drejk 
  • Ugledni građanin
  • Pridružio: 31 Mar 2005
  • Poruke: 448
  • Gde živiš: Novi Beograd

Na koji si nacin resio, nije mi jasno?

offline
  • Pridružio: 26 Okt 2008
  • Poruke: 1560
  • Gde živiš: Sremski Mihaljevci

Pa ne vuce vise naziv kao txt bazu. i nije u opste ovako.

U meniju project, odaberem propertis i odaberem u tom prozoru settings i napravim nov kao string u mom slucaju imeservisa.

I taj kod izgleda ovako za cuvanje novog texta:

settings.Imeservisa = TextBox1.Text
settings.Save()

a za citanje:
Me.Text = settings.Imeservisa

Stim sto moram da deklarisem:
Dim settings As New My.MySettings

mana mu je kada exe kopiram negde drugde, na nekodrugo mesto, gubi to sto si sacuvao i bude prazno. ali cuva text i kada se program ugasi i ponovo startuje, pamti naziv. ma milina... Smile

Ali i to sam resio petljom tipa ako je prazno neka bude "imeservisa" i postoji opcija u programu za menjanje naziva servisa tako da je sve ispalo savrseno. ali ovaj predhodni slucaj nema sanse da shvatim gde gresim.

Ko je trenutno na forumu
 

Ukupno su 838 korisnika na forumu :: 40 registrovanih, 12 sakrivenih i 786 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: _Rade, A.R.Chafee.Jr., Apok, Arhiv, Atomski čoban, Boris90, brufen, dankisha, DH, dika69, dragon986, Drug pukovnik, dzoni19, Georgius, Grana, h8propaganda, hatman, jaeger, Klecaviks, Krusarac, kybonacci, mane123, MarKhan, Mercury, milimoj, milos.cbr, Mirage 2000N, misa2, moldway, pein, riva, rovac, Snorks, Toni, trutcina, ucenik32, vasa.93, Vlada1389, vladas87, Wisdomseeker