Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Access


Prosiri i skupi Opcije teme
Stranice (6):1,2,3,4,5,6

#31 13.02.2011 14:47
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Logiranje u aplikaciju
Evo uspio sam promjeniti 0 u 1 sa ovim:
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub Command32_Click()
  2. On Error GoTo Err_Command32_Click
  3.  
  4. Dim db As Database
  5.    Dim rs As Recordset
  6.    Dim mySQL As String
  7.    
  8.    Set db = CurrentDb()
  9.    mySQL = "SELECT * FROM tblPartneri WHERE partnerID =" & PartnerID
  10.  
  11.    Set rs = db.OpenRecordset(mySQL, dbOpenDynaset)
  12.  
  13.  
  14. rs.MoveFirst
  15. Do While Not rs.EOF
  16. Brisanje = rs.Fields(15)
  17.       With rs
  18.          .Edit
  19.          !Brisanje = 1
  20.          .Update
  21.       End With
  22.  
  23. rs.MoveNext
  24.  
  25. Loop
  26.  
  27.    rs.Close
  28.    db.Close
  29.    
  30.  
  31. Exit_Command32_Click:
  32.     Exit Sub
  33.  
  34. Err_Command32_Click:
  35.     MsgBox err.Description
  36.     Resume Exit_Command32_Click

Ali kod zatvaranja forme dobije se porika o greški "Write Conflict" prilig slika

Slicice prilozenih slika:
Image_Brisanje.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:97
Velicina datoteke:40.77 KB
Velicina slike: 442 x 282 Pikseli

Pozdrav
↑  ↓

#32 13.02.2011 16:41
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Logiranje u aplikaciju
Dobro greska je u kodu vjerovatno a izbacje ti er. description.
Trebas ovo eliministati do ne proradi.
rem On Error GoTo Err_Command32_Click

Namece se tu drugo pitanje a to je dali ces da dozvolis brisanje vise redova odjednom ili samo po jedan.
Jednostavno polje brisanje napravi tip jes no i polje neka biude nevidljivo a kad hoces da brises neka bude vidljivo i u njemu direkt cekiras. onda samo negdje taster ili na meniju brisi a ispod kod samo refresh.

Ako ti ne ide napravit cu primjer.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#33 13.02.2011 17:52
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Logiranje u aplikaciju
Napravio samt to
rem On Error GoTo Err_Command32_Click
i opet ta greška
Pozdrav
↑  ↓

#34 13.02.2011 18:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Logiranje u aplikaciju
PreuzmiIzvorni kôd (Visual Basic):
  1. Da ali sad vidis u kojem je redu greska to sam mislio.
  2. Private Sub Command32_Click()
  3. On Error GoTo Err_Command32_Click
  4. Dim db As Database
  5. Dim rs As Recordset
  6. Dim mySQL As String
  7.    
  8. Set db = CurrentDb()
  9. mySQL = "SELECT * FROM tblPartneri WHERE partnerID =" & PartnerID
  10.  
  11. Set rs = db.OpenRecordset(mySQL)
  12. Do While Not rs.EOF
  13. Brisanje = rs.Fields(15)
  14.          rs.Edit
  15.          rs.Brisanje = 1
  16.          rs.Update
  17. rs.MoveNext
  18. Loop  
  19. rs.Close
  20. db.Close
  21. Exit_Command32_Click:
  22.  Exit Sub
  23.  
  24. Err_Command32_Click:
  25.     MsgBox err.Description
  26.     Resume Exit_Command32_Click
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#35 13.02.2011 18:19
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Logiranje u aplikaciju
Stavio sam tvoju proceduru i sada je nova greška

Slicice prilozenih slika:
Image_Brisanje_2.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:215
Velicina datoteke:34.18 KB
Velicina slike: 547 x 246 Pikseli

Pozdrav
↑  ↓

#36 13.02.2011 18:33
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Logiranje u aplikaciju
Koji je tip polja brisanje i jeli mu dobro ime?
Provjeri!
Do While Not rs.EOF
Brisanje = rs.Fields(15)----> Ni ovaj red netreba
rs.Edit
rs.Brisanje = 1
rs.Update
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#37 13.02.2011 21:10
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Logiranje u aplikaciju
Tip polja je broj , ali opet neće.
Evo primjer

Prilozi:
Informacije o tipu datoteke za:rar  Brisanje.rar
Preuzimanja:214
Velicina datoteke:16.78 KB

Pozdrav
↑  ↓

#38 13.02.2011 21:24
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,612


Predmet:Re: Logiranje u aplikaciju
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command33_Click()
  2. On Error GoTo Err_Command33_Click
  3. Dim db As Database
  4. Dim rs As Recordset
  5. Dim mySQL As String
  6.    
  7. Set db = CurrentDb()
  8. mySQL = "SELECT * FROM tblPartneri WHERE partnerID =" & PartnerID
  9.  
  10. Set rs = db.OpenRecordset(mySQL)
  11. Do While Not rs.EOF
  12.          rs.Edit
  13.          rs!Brisanje = 1
  14.          rs.Update
  15. rs.MoveNext
  16. Loop
  17. rs.Close
  18. db.Close
  19. Me.RecordSource = Me.RecordSource
  20. Exit_Command33_Click:
  21.  Exit Sub
  22.  
  23. Err_Command33_Click:
  24.     MsgBox err.Description
  25.     Resume Exit_Command33_Click
  26.  
  27. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#39 13.02.2011 21:32
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Logiranje u aplikaciju
Eto vidiÅ¡ Å¡to jedna točka napravi probleme.
Pozdrav
↑  ↓

#40 13.02.2011 21:41
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Postovi:1,458


Predmet:Re: Logiranje u aplikaciju
Pitao sam već prije, da li da ovakav način brisanja primjenjujem i kod ulaza i izlaza?
Pozdrav
↑  ↓

Stranice (6):1,2,3,4,5,6

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +02:00. Trenutno vrijeme: 10: 32 pm.