Prikazi cijelu temu 29.12.2010 22:47
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Server i Access baza
Da ima greska u Drugom SQL-u
PreuzmiIzvorni kôd (SQL):
  1. SQL = "SELECT * FROM tblShemaMontaze " _
  2.      & "WHERE IDdijela='" & IdStroja & "' AND Kategorija>" & Kategorija

evo ispravljeno:

PreuzmiIzvorni kôd (Visual Basic):
  1. Function PrenesiPod(Kategorija As Integer, IdStroja As String)
  2. Dim Db As Database
  3. Dim Rs1 As Recordset
  4. Dim Rs2 As Recordset
  5. Dim Rs3 As Recordset
  6. Dim SQL As String
  7. Dim Dio As Integer
  8. Dim I As Integer
  9. Dim BrojKolona As Integer
  10.  
  11.  
  12. Set Db = CurrentDb
  13. SQL = "SELECT * FROM tblShemaMontaze " _
  14.     & "WHERE kategorija=" & Kategorija & "  AND IDstroja='" & IdStroja & "'"
  15.  
  16. Set Rs1 = Db.OpenRecordset(SQL)
  17. Set Rs3 = Db.OpenRecordset("tblShema")
  18. BrojKolona = Rs1.Fields.Count
  19. Do While Not Rs1.EOF
  20. Dio = Rs1!IdDijela
  21. Rs3.AddNew
  22.         For I = 1 To BrojKolona
  23.         Rs3.Fields(I) = Rs1.Fields(I - 1)
  24.         Next I
  25. Rs3.Update
  26. SQL = "SELECT * FROM tblShemaMontaze " _
  27.      & "WHERE IDdijela='" & IdStroja & "' AND Kategorija>" & Kategorija
  28. Set Rs2 = Db.OpenRecordset(SQL)
  29. Do While Not Rs2.EOF
  30.         Rs3.AddNew
  31.         For I = 1 To BrojKolona
  32.         Rs3.Fields(I) = Rs1.Fields(I - 1)
  33.         Next I
  34. Rs3.Update
  35. Rs2.MoveNext
  36. Loop
  37. Rs2.Close
  38. Rs1.MoveNext
  39. Loop
  40. Rs1.Close
  41. Rs3.Close
  42. Set Db = Nothing
  43. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.