pisi-citaj baze

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Na koji si nacin resio, nije mi jasno?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

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...

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.