Prikazi cijelu temu 22.01.2011 21:24
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Server i Access baza
Da to sam i ja malo gledao dok sam te cekao.
Gresku cini kod koji sam ja napravio da cita i sklop cvor i ostalo koji odabers.
evo rjesenja:
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Zapisi(Kat As Integer, IDK As String, Op As Integer)
  2. Dim Rs1 As Recordset
  3. Dim Rs2 As Recordset
  4. Dim SQL1 As String
  5. Dim SQL2  As String
  6.  
  7. SQL1 = "SELECT * FROM Indeks"
  8. If Op = 0 Then
  9. SQL2 = "SELECT * FROM Tbl_Zbirna" _
  10. & " WHERE IDstroja='" & IDK & "'" '
  11. Else
  12. SQL2 = "SELECT * FROM Tbl_Zbirna" _
  13.  & " WHERE IDstroja In (SELECT IDDijela FROM Indeks WHERE kat=" & Kat & ") Order BY IndexSklop" '& Imetabele
  14. End If
  15. Set Rs1 = DB.OpenRecordset(SQL1)
  16. Set Rs2 = DB.OpenRecordset(SQL2)
  17. If Op = 0 Then
  18. If Rs2.RecordCount > 0 Then
  19.    Rs1.AddNew
  20.     Rs1!IDstroja = "0000001"
  21.     Rs1!IDdijela = Format$(Rs2!IDstroja)
  22.     Rs1!Kat = Kat - 1
  23.     Rs1!Kom = 1
  24.     Rs1.Update
  25. End If
  26. End If
  27.     Do While Not Rs2.EOF
  28.     Rs1.AddNew
  29.     Rs1!IDstroja = Rs2!IDstroja
  30.     Rs1!IDdijela = Rs2!IDdijela
  31.     Rs1!Kat = Rs2!Kat
  32.     Rs1!Kom = Rs2!Kom
  33.     Rs1.Update
  34.     Rs2.MoveNext
  35.     Loop
  36. Rs1.Close
  37. Rs2.Close
  38. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.