[es] - Problem sa bazom podataka

gvero
Blable Blablic
Hrvatska, Bibinje

Član broj: 40946
Poruke: 65
*.cmu.carnet.hr.

Profil

^{12.12.2004. u 18:26 - pre 235 meseci}

ma kako kad.
npr. idem Novi unos i stavim isto prezime kao jos jedno u listboxu onda mi ostanu samo novi, pa ako izbrisem jednog, pojavi se i stari i svi ostali. ako izadem pa ponovno udem, ponovno je normalno, uz sve one i nove i stare unose.
ma cudno skroz.
ne kuzim nacin kako se mijenja.
I to za svaku bazu podataka koju radim na taj nacin.
onda je greska u kodu.
Evo kod: (Na Project-References mi je ukljucen Microsoft DAO 3.6 Object Library) --ovo mi je nešto sa zadacima, u listbox ulazi naslov zadatka, ma skuzit cete
znaci, imam 1listbox nazvan lstdata, Command button za Novi zadatak nazvan Command1,
Uredi zadatak: Command2, Izbrisi zadatak: Command3, Sacuvaj: Command5, Odustani: Command6, textboxovi: za naslov: Text2, za Sadrzaj: Text3, za DatumVrijeme: Text4

Code:

Option Explicit
Dim db As Database
Dim rs As Recordset
Dim ws As Workspace
Dim max As Long
Dim i As Long
Dim errormsg
Dim dbedit
Dim dbadd

Private Sub Command1_Click()

Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
Command5.Enabled = True
Command6.Enabled = True
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
dbadd = True
Text2.SetFocus
End Sub

Private Sub Command2_Click()

Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = True
Command6.Enabled = True
dbedit = True
End Sub

Private Sub Command3_Click()

errormsg = MsgBox("Jeste li sigurni da želite obrisati ovaj zadatak?", vbQuestion + vbYesNo, "Brisanje zadatka")
If errormsg = vbYes Then
rs.Delete
Set rs = db.OpenRecordset("Zadaci", dbOpenTable)
list
Text2.Text = vbNullString
Text2.Locked = True
Text3.Text = vbNullString
Text3.Locked = True
Text4.Text = vbNullString
Text4.Locked = True
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = False
Else
Exit Sub
End If
frmGlavna.Caption = "U bazi je trenutno zadataka: " & rs.RecordCount
End Sub

Private Sub Command4_Click()
db.Close
End
End Sub

Private Sub Command5_Click()
If dbadd = True Then
Call add
ElseIf dbedit = True Then
Call edit
End If
End Sub

Private Sub Command6_Click()

Text2.Text = vbNullString
Text2.Locked = True
Text3.Text = vbNullString
Text3.Locked = True
Text4.Text = vbNullString
Text4.Locked = True
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = False
Set rs = db.OpenRecordset("Zadaci", dbOpenTable)
list
End Sub

Private Sub Form_Load()

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("C:\tasks\tasks.mdb")
Set rs = db.OpenRecordset("Zadaci", dbOpenTable)
list
frmGlavna.Caption = "U bazi je trenutno zadataka: " & rs.RecordCount

End Sub

Private Function list()

If rs.RecordCount = 0 Then
errormsg = MsgBox("Nema zadataka", , "Upozorenje")
End If

rs.MoveLast
rs.MoveFirst

max = rs.RecordCount
rs.MoveFirst
lstdata.Clear
For i = 1 To max
lstdata.AddItem rs("Naslov")
rs.MoveNext
Next i
End Function

Private Sub lstdata_Click()
Set rs = db.OpenRecordset("Select * from Zadaci where Naslov = '" & Trim(lstdata.list(lstdata.ListIndex)) & "'")
rs.MoveFirst
Text2.Text = rs("Naslov")
Text3.Text = rs("Sadrzaj")
Text4.Text = rs("DatumVrijeme")
Command2.Enabled = True
Command3.Enabled = True
End Sub

Public Function add()

If Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
errormsg = MsgBox("Sva polja moraju biti ispunjena!", vbCritical, "Upozorenje")
Exit Function
End If
rs.AddNew
rs("Naslov") = Text2.Text
rs("Sadrzaj") = Text3.Text
rs("DatumVrijeme") = Text4.Text

rs.Update
Text2.Text = vbNullString
Text2.Locked = True
Text3.Text = vbNullString
Text3.Locked = True
Text4.Text = vbNullString
Text4.Locked = True

Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = False

list
frmGlavna.Caption = "U bazi je trenutno zadataka: " & rs.RecordCount
End Function

Public Function edit()

If Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Then
errormsg = MsgBox("Sva polja moraju biti ispunjena!", vbCritical, "Upozorenje")
Exit Function
End If
rs.edit
rs("Naslov") = Text2.Text
rs("Sadrzaj") = Text3.Text
rs("DatumVrijeme") = Text4.Text
rs("Gotovo") = Option1.Value
rs.Update
Text2.Text = vbNullString
Text2.Locked = True
Text3.Text = vbNullString
Text3.Locked = True
Text4.Text = vbNullString
Text4.Locked = True

Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = False
Command6.Enabled = False

Command1.SetFocus

Set rs = db.OpenRecordset("Zadaci", dbOpenTable)
list

End Function

::::gvero::::

Odgovor na temu