Access aplikacija na visti

[ Air Live @ 17.06.2009. 07:19 ] @

Imam problem dakle postavio sam vistu i access 2007 u kome je i radena aplikacija i koja je radila na XP-u eh sad, imam problem sa ovim delom koda

Code:
Open "C:\WINDOWS\x.txt" For Output As #1
        Print #1, "Zapis"
    Close #1
    'End

Dali je problem u nekoj refernci koju vista nema pa je nevidi i trebalo bih ubaciti taj dll pa ga čekirati u referencama.

[ Trtko @ 17.06.2009. 08:59 ] @

Ja mislim da je vista zabranila upis iz nekog programa u neki fajl na C:windows, probaj promjeniti privilegije
ili probaj nek ti upiše na neki drugi folder npr.. C:\proba\x.txt , pa ako ti tamo dozvoli onda je to to.

[ Air Live @ 17.06.2009. 10:04 ] @

Da upravu si to je to,ali dali ima neka opcija na visti da se to dozvoli.Hvala unapred.

[ Catch 22 @ 17.06.2009. 10:22 ] @

^ Generalno je loša ideja da "programiraš" upisivanjem bilo čega u sistemske foldere, problem sa path promenljivom može da se reši i na elegantniji način...
Realizacija tvoje ideje, kako sam vidiš teže ide na Visti, a na Windows 7 će biti gotovo nemoguća.
Zašto bi svesno narušavao elementarne bezbednosne koncepte operativnog sistema?

[ Air Live @ 17.06.2009. 12:44 ] @

Citat:

Zašto bi svesno narušavao elementarne bezbednosne koncepte operativnog sistema?

Da upravo tako

rješit ću ja valjda nekako.

[ izonic @ 17.06.2009. 13:21 ] @

Takve podatke zapisujes na ovoj putanji.
Function Putanja()
Putanja = Environ(33)
End Function

[ Air Live @ 17.06.2009. 13:40 ] @

A sta ti je ovo

Citat:

Environ(33)

Mozesli malo pojasniti.

[ izonic @ 17.06.2009. 14:51 ] @

To je putanja temp direktorija trenutnog korisnika.
Posto vjerovatno pises privrmeni file koji se obnavlja onda ga zapisujes tu.
Ukoliko je comp. umrezen radi zastite korisnici sa svojom sifrom nemaju prava pristupa ostalom dijelu diska odnosno sistemu niti programfilesu.
To je i na XP tako.
Ukoliko nije privremeni podatak onda ga zapisi u registrije pri instalaciji.

[ Air Live @ 17.06.2009. 15:26 ] @

OK To je to, fajl je privremeni i to je kao neki vid hmmmm ... Hvala puno.

[ izonic @ 17.06.2009. 15:50 ] @

Kako koristiti:
Function Putanja()
Putanja = Environ(33)
End Function

dim PutanjaS as string

PutanjaS=Putanja & "\x.txt"
Open PutanjaS For Output As #1
Print #1, "Zapis"
Close #1
'End

[ Air Live @ 17.06.2009. 18:24 ] @

Da probao sam i to ali izbacuje mi ovu gresku :

Nekuzim zasto ovo radi.

[ izonic @ 18.06.2009. 12:02 ] @

Probaj sa ovim:
Function Putanja() As String
Putanja = Environ("TMP")
'Putanja = Mid(Environ(33), 6) ' Ako pozivamo brojem ima i prefix naziva
End Function

Function Otvorifile()
Dim PutanjaS As String

PutanjaS = Putanja & "\x.txt"
Open PutanjaS For Output As #1
Print #1, "Zapis"
Close #1
End Function

[ Zidar @ 18.06.2009. 14:40 ] @

Ja bih dodao neke pomocne naredbe, cito d avidis sta se desava:

Code:

Function Putanja() As String
Putanja = Environ("TMP")
'Putanja = Mid(Environ(33), 6) ' Ako pozivamo brojem ima i prefix naziva
End Function

Function Otvorifile()
Dim PutanjaS As String

PutanjaS = Putanja & "\x.txt"

'ovo ce da pokaze kako izgleda PutanjaS. Mozda ima neka crta vise, mozda nesto fali
debug.print PutanjaS
'Kad pukne kod, bar ces videti sta je to sto jeizazvalo 'Bad file name or number'

Open PutanjaS For Output As #1
Print #1, "Zapis"
Close #1
End Function

[ Air Live @ 18.06.2009. 15:59 ] @

Da to je to

Još nešto da kažem za windows 7. nepodrzava linkovanje na tabele iz baze u bazu znači kao link table mozda moze kroz cod ali onako iz access-a nema šanse.Pa eto vidite kakve nam sve probleme donose novi OS.

[ Zidar @ 18.06.2009. 19:47 ] @

LInkovanje radi OK. Mozda je Vista setovana tako da nemas permissions na folder, ili je ceo foldr RaedOnly?

[ Air Live @ 18.06.2009. 21:13 ] @

Ceo folder nije u opce readonly ali permissions nemogu da izmjenim da bude full control.