[es] - Pomoć oko RecordCount-a

Son Of Alerik
Son Of Alerik

Član broj: 23977
Poruke: 10
*.ym.rnc.net.cable.rogers.com

Profil

^{05.04.2004. u 16:47 - pre 244 meseci}

Uradio sam jednu malu bazu podataka i sve radi ok. Ono što bih ja hteo je sledeće: kad neko u pretrazi recimo odabere ime Pera da mi baza prikaže koliko Pera ima trenutno u bazi.

Program je vezan na access bazu sledećim kodom:

Code:
  Set ws = DBEngine.Workspaces(0)
  Set db = ws.OpenDatabase(App.Path & "\baza\baza.dat")
  Set Data1.Recordset = db.OpenRecordset("SELECT * FROM Baza;")
  Data1.Refresh
  Data1.ReadOnly = True

E tu sad sledi mali recordcount koji po pokretanju programa prebroji koliko zapisa ima u bazi i tu cifru doda kao form.caption:

Code:
  With Data1.Recordset
    .MoveLast
    intRecs = .RecordCount
  End With
    Me.Caption = " Baza (ukupno zapisa u bazi: " & intRecs & ")"
    Data1.Recordset.MoveFirst

Do sada ovaj deo radi sve kako treba, ali kad odradi pretragu po, recimo, imenu kako da odradim da mi kao form.caption piše npr „U bazi postoji 5 Pera“?
Kod za pretragu:

Code:

        strPretraga = "Ime LIKE"
            varName = InputBox("Unesi ime: ", _
                "Pretraga po imenu")
'            Data1.Recordset.MoveFirst
             varName = Trim(varName)
        If varName = "" Then
            Exit Sub
            Else: varName = "'" & varName & "*'"
        End If
        '
        With Me.Data1.Recordset
            strBkMark = .Bookmark
            .FindFirst "Ime LIKE" & varName
        If .NoMatch Then
            .Bookmark = strBkMark
        End If
        End With

E tu sam sad pokušavao da sredim ono na sledeći način:

Code:
Do While Not data1.recordset.eof
data1.recordset.findnext(strPretraga & varName)
inRecs2 = data1.recordset.recordcount
Loop

Ali mi ovo uvek vraća ukupan broj zapisa u bazi.

Da li postoji način kako da prebroji broj traženih zapisa?

Izvinjavam se na malo dužem postu.
Pozdrav i hvala unapred.

Odgovor na temu

degojs

Član broj: 4716
Poruke: 5096

+51 Profil

Re: Pomoć oko RecordCount-a

^{05.04.2004. u 17:16 - pre 244 meseci}

SELECT COUNT(Ime) AS Broj FROM Baza WHERE Ime='Pera';

Commercial-Free !!!

Odgovor na temu

Son Of Alerik
Son Of Alerik

Član broj: 23977
Poruke: 10
*.cat.net.th.

Profil

Re: Pomoć oko RecordCount-a

^{05.04.2004. u 19:22 - pre 244 meseci}

Može li malo bliže objašnjenje jer ovaj upit ne mogu nikako da uglavim

Odgovor na temu

mvlado
Vladimir Milatovic

Član broj: 6491
Poruke: 89
*.verat.net

Profil

Re: Pomoć oko RecordCount-a

^{06.04.2004. u 09:06 - pre 244 meseci}

Citat:

degojs:
SELECT COUNT(Ime) AS Broj FROM Baza WHERE Ime='Pera';

Pa posaljes ovaj upit bazi i kao odgovor dobijes ono sto tebi treba u ovom slucaju.

varName = InputBox("Unesi ime: ", _
"Pretraga po imenu")

Set Data1.Recordset = db.OpenRecordset("SELECT COUNT(Ime) AS Broj FROM Baza WHERE Ime= '" & varName & "'")
With Data1.Recordset
intRecs = .RecordCount
End With
Me.Caption = " Baza (ukupno zapisa u bazi: " & intRecs & ")"

Odgovor na temu

Son Of Alerik
Son Of Alerik

Član broj: 23977
Poruke: 10
*.air.tehnicom.net

Profil

Re: Pomoć oko RecordCount-a

^{07.04.2004. u 13:14 - pre 244 meseci}

I dalje neće, SQL upit nisam uspeo da nateramda radi, dok sa data1.recordset.filter opcijom mi konstantno broji sve zapise:(

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
62.108.109.*

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Pomoć oko RecordCount-a

^{07.04.2004. u 13:31 - pre 244 meseci}

Radi sa posebnim recorsetom, ne diraj taj Data1.Recordset. Znaci,

Code:

Dim rs As Recordset
Set rs = db.OpenRecordset("SELECT COUNT(Ime) AS Broj FROM Baza WHERE Ime= 'Pera'")
If Not rs.EOF and rs.BOF Then Debug.Print rs("Broj")

rs.Close
Set rs = Nothing

Blue Man Group

Odgovor na temu

Son Of Alerik
Son Of Alerik

Član broj: 23977
Poruke: 10
*.air.tehnicom.net

Profil

Re: Pomoć oko RecordCount-a

^{07.04.2004. u 15:39 - pre 244 meseci}

Uspeo sam uz pomoć SQL upita s tim što sam morao malo da ga promenim jer onako kako je bilo u pređašnjim postovima je uvek prikazivao da postoji samo 1 zapis:

Code:
Set rs = db.OpenRecordset("SELECT Ime FROM Baza WHERE Ime= " & varName)

i onda je usledilo klasično recorcount...

Hvala na pomoći i pozdrav!

Odgovor na temu