Centar za edukaciju-BiH

iCentar → Zabava → Trac partijanje


Prosiri i skupi Opcije teme
Stranice (310):1,2 ... 280,281,282,283,284 ... 309,310
 Prikazi prvu neprocitanu poruku

#2811 03.09.2018 10:43
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
dobro jutro!

Ja to nemam instalirano. Imas ti Gjoreski mozda to pa mi zakacis ako imas vremena.

Jos jedno pitanje onako uz kavu.

imamo kod u accessu i zanima me sta prvi close#1 zatvara, zatvari li konekciju na bazu?

PreuzmiIzvorni kôd (Text):
  1. Private Sub Command15_Click()
  2.     Dim Putanja As String
  3.     Dim Db As Database
  4.     Dim Rs As Recordset
  5.     Dim temp As String
  6.     Dim Fld As Field
  7.     Dim ImeFajla As String, Znak As String
  8.     Dim DuzStr As Integer, I As Integer
  9.  
  10.     On Error GoTo Greska
  11.     ImeFajla = Me.Naziv
  12.     DuzStr = Len(ImeFajla)
  13.    
  14.     For I = 1 To DuzStr
  15.         Znak = Mid(ImeFajla, I, 1)
  16.         If Znak = " " Then
  17.             ImeFajla = Mid(ImeFajla, 1, I - 1) & "_" & Mid(ImeFajla, I + 1)
  18.         End If
  19.     Next I
  20.  
  21.     Set Db = CurrentDb
  22.     Set Rs = Db.OpenRecordset("SELECT * FROM T_Tacke WHERE LokacijaID=" & Me.LokacijaID)
  23.     Rs.MoveFirst
  24.     Putanja = FindDatabase(2, ImeFajla)
  25.  
  26.     If Asc(Right(Putanja, 1)) = 0 Then
  27.         Putanja = Mid(Putanja, 1, Len(Putanja) - 1)
  28.     End If
  29.  
  30.     If Right(Putanja, 4) <> ".txt" Then
  31.         Putanja = Putanja & ".txt"
  32.     End If
  33.  
  34. Close #1  <======= Å TA OVAJ ZATVARA ?
  35.  
  36.     Open Putanja For Output Shared As #1
  37.  
  38.         Do While Not Rs.EOF
  39.             For Each Fld In Rs.Fields
  40.                 If Fld <> "" Then
  41.                     temp = temp & Fld & vbTab
  42.                 End If
  43.             Next Fld
  44.             If Format$(temp) <> "" Then
  45.                 Print #1, temp
  46.             End If
  47.             temp = ""
  48.             Rs.MoveNext
  49.         Loop
  50.     Close #1
  51.  
  52. Izlaz:
  53.     Exit Sub
  54. Greska:
  55.     MsgBox "GreÅ¡ka broj: " & Err.Number & vbCr & Err.Description
  56.     Resume Izlaz
  57. Kraj:
  58. End Sub
zivot je moja domovina.
Ovaj post je ureden 3 puta. Posljednja izmjena 03.09.2018 13:40 od strane Avko. ↑  ↓

#2812 03.09.2018 21:00
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,866


Predmet:Re: dobro jutro, dobar dan...
Red 34 odnosno Close #1 ne zatvara recordset , ovako se zatvara fajl koj je ucitan. E sad tebe buni zasto nije prvo zatvaramo fajl . Zatvaramo ga ako je fajl po neka slucajnost ostao otvoren od predhodna obrada.Ovo je samo preventivno. I da pobrises ove linije cod opet ce raditi.
↑  ↓

#2813 04.09.2018 09:31
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
dobro jutro.

hvala, znaci preventiva i radi il stavio il ne.

ok. Idem ja sada malo koju partiju bele odigrati pa se vidimo
zivot je moja domovina.
↑  ↓

#2814 05.09.2018 08:31
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
Dobro jutro!
zivot je moja domovina.
↑  ↓

#2815 05.09.2018 09:33
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:637


Predmet:Re: dobro jutro, dobar dan...
Dobro jutro
Vedro, izgleda nece biti kise
Odoh malo do sela da upalim svoju veselu masinu za destilaciju trulog voca
↑  ↓

#2816 05.09.2018 09:49
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
Citiraj dex:
Dobro jutro
Vedro, izgleda nece biti kise
Odoh malo do sela da upalim svoju veselu masinu za destilaciju trulog voca

samo sljiva ili ces i od kruske?
Oces raditi prepecenicu?

zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 05.09.2018 09:56 od strane Avko. ↑  ↓

#2817 11.09.2018 23:35
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:637


Predmet:Re: dobro jutro, dobar dan...
Pozdrav narode, evo mene
Trebalo je to temeljno izdegustirati
Inace pecem uglavnom sljivu, ubacim u smesu poneku drugu opalu vocku , greota da propadne.
Sljivu uvek prepecem, dok su vocne rakije (kajsija, dunja, kruska...) bolje jednom pecene, vise se oseca aroma voca
↑  ↓

#2818 12.09.2018 08:21
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,904


Predmet:Re: dobro jutro, dobar dan...
koliko si litara ispeko?
zivot je moja domovina.
↑  ↓

#2819 12.09.2018 23:56
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,692


Predmet:Re: dobro jutro, dobar dan...
Pa nije pozvao na degustaciju.
Nije uredu.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#2820 15.09.2018 22:00
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,866


Predmet:Re: dobro jutro, dobar dan...
Pozdrav ljudi ja sam na odmoru kuci i nema me cesto na forumu.Samo da vam kazem da uzivam u ljepo vreme ,ljepo drustvo , preljepo jezero i jos dosta ljepih stvari.
↑  ↓

Stranice (310):1,2 ... 280,281,282,283,284 ... 309,310

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 12: 51 pm.