Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

ASP - RecordCount

[es] :: Visual Basic 6 :: ASP - RecordCount

[ Pregleda: 4166 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

webgirl

Član broj: 33724
Poruke: 30
*.credybanka.com.



Profil

icon ASP - RecordCount20.01.2005. u 07:40 - pre 201 meseci
Imam formu sa jednim TextField (input type="text" name="polje").
A na klik imam *.asp stranu i u njoj sledece:

Pitanje je dole...

Code:

    Dim cn
    Dim rs
    
    Set cn = Server.CreateObject ("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
    
    cn.ConnectionString = "DRIVER=SQL Server; SERVER=...; UID=...; PWD=...; DATABASE=..." 
    cn.Open 
    
    rs.ActiveConnection = cn
    m = Request.Form("polje")    

    rs.Open "select * from tabela where polje1=" & m 
    Response.Write "<CENTER>" & "Pretraga za - " & m &"<br> <br>"
    
        broj = rs.RecordCount    //OVO !!!
        Response.Write ("Ukupno je" & broj)  //OVO !!!
        Response.Write("<br>")
    
    rs.MoveFirst
    
    Response.Write "<table border=""1"" align=center>"
    Response.Write "<tr>"
    
    a = Array("1","2","3","4","5")
    
    For Each s in a
        Response.Write "<td>"
             Response.Write "<div align=""center""><strong>" & s  & "</strong></div>"
        Response.Write("</td>")
    Next
        
    Response.Write("</tr>")        
        
    b = Array("polje1","polje2","polje3","polje4","polje5")

    while not rs.EOF
        Response.Write "<tr>"                            
        For Each s in b
            Response.Write "<td>"    
            Response.Write "<div align=""center"">" & RS.Fields(s) & "</div>"
            Response.Write "</td>"            
        Next                         

         rs.MoveNext    
        Response.Write "</tr>"        
    Wend
    
    Response.Write "</table>"
    rs.Close
    cn.Close    

Dakle, nije mi jasno zasto RecordCount daje vrednost -1 kada postoji rezultat pretrage?
Kako da ostavim poruku napr "Nema rezlutata" ako ih stvarno nema. Pokusavala sam sa klasicno if broj <> -1 then... medjutim nije ok

Pretpostavljam da je ovo trivijalno, ali ne mogu da resim.
Thanks unapred.

 
Odgovor na temu

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

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

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


Profil

icon Re: ASP - RecordCount20.01.2005. u 09:14 - pre 201 meseci
Problem je kursor koji nije naveden, a default kursor ne podrzava recordcount.

Citat:

MSDN:
The property returns -1 when ADO cannot determine the number of records or if the provider or cursor type does not support RecordCount


Probaj ovako da otvaras konekciju

Code:

Set cn = Server.CreateObject ("ADODB.Connection")
cn.CursorLocation = adUseClient '-- ova konstanta je = 3
....
cnn.Open


Da li je RS prazan proveravaj ovako (i BOF i EOF su True ukoliko nema zapisa)

Code:

If Not (RS.BOF And RS.EOF) Then

 
Odgovor na temu

webgirl

Član broj: 33724
Poruke: 30
*.credybanka.com.



Profil

icon Re: ASP - RecordCount20.01.2005. u 10:10 - pre 201 meseci
Da to je to :))

Thanks,
Jelena
 
Odgovor na temu

[es] :: Visual Basic 6 :: ASP - RecordCount

[ Pregleda: 4166 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.