Avatar billede mysitesolution Nybegynder
18. november 2002 - 15:22 Der er 7 kommentarer og
1 løsning

database fejl

jeg har dette script, men der er et problem count funktionen findes ikke i adobe.recordset. Hvad skal jeg skrive istedet.

<%
SQLserveradr="***"
    SQLdatabase="***"   
    SQLlogin="***"
    SQLpassword="***"



Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword
strSQL = "SELECT * from tracker_user where points > 0"
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRs.Open strSQL, conn, 1, 3

objRs.Move(int(rnd(1)*(objRs.count-1)))
objRs.
'indhold
response.Write objRs("name")


objRs.Close
set objRs = nothing
Conn.Close
Set Conn = Nothing


%>
Avatar billede Spotgun Seniormester
18. november 2002 - 15:28 #1
prøv med objRS.RecordCount i stedet for.
Avatar billede mysitesolution Nybegynder
18. november 2002 - 15:32 #2
får denne fejl:
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/testen.asp, line 0
Avatar billede eagleeye Praktikant
18. november 2002 - 16:25 #3
Prøv at ændre denne linie:

objRs.Move(int(rnd(1)*(objRs.count-1)))

Til:

objRs.Move(int(rnd(1)*(objRs.RecordCount-1)))
Avatar billede mysitesolution Nybegynder
18. november 2002 - 18:04 #4
det er det jeg har prøvet
Avatar billede technodance.dk Nybegynder
18. november 2002 - 18:05 #5
ADODB.Connection
Avatar billede mysitesolution Nybegynder
18. november 2002 - 18:18 #6
prøv lige at skriv mere end det?? fatter ikke noget
Avatar billede mysitesolution Nybegynder
18. november 2002 - 22:58 #7
nu har jeg lavet den om

<%
SQLserveradr="***"
    SQLdatabase="***"   
    SQLlogin="***"
    SQLpassword="***"



Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword

set rs = Conn.execute("select count(*) as antal from tracker_user where points > 0")
Antal = rs("antal")
set rs = Conn.execute("select * from tracker_user where points > 0")

RandomNummer = Int((Antal) * Rnd + 1)

rs.Move(RandomNummer)



Conn.execute("update tracker_user set points = " & rs("points")-1 & " where id = " & rs("id"))
%>

jeg får denne fejl:

error '80020009'
Exception occurred.

/testen.asp, line 23
Avatar billede mysitesolution Nybegynder
18. november 2002 - 23:25 #8
lukker
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester