Prikazi cijelu temu 03.09.2018 10:43
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


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.