Avatar billede kh-proffcom Nybegynder
11. september 2001 - 14:02 Der er 3 kommentarer og
2 løsninger

Problemer med SQL / ASP

Hvad er der galt i nedenstående?

<%
Set objConn = Server.CreateObject(\"ADODB.Connection\")
Set objRS = Server.CreateObject(\"ADODB.Recordset\")
objConn.Open \"DSN=web;UID=web;PWD=web\"
Set objRS = objConn.Execute(\"select id,dato from kort WHERE id = 155\")
Do
    Response.Write objRS(\"id\") & \" \" & objRS(\"dato\") & \"<br>\"
objRS.Movenext 
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
set objConn = Nothing
%>


Skriver ud som den skal, men kommer med følgene fejl:
155 03-09-01
error \'80020009\'
Exception occurred.

/test.asp, line 10

Avatar billede eagleeye Praktikant
11. september 2001 - 14:04 #1
Prøv:
DO WHILE NOT objRS.EOF
    Response.Write objRS(\"id\") & \" \" & objRS(\"dato\") & \"<br>\"
objRS.Movenext 
Loop
Avatar billede zeth Nybegynder
11. september 2001 - 14:04 #2
prøv med den her

<%
Set objConn = Server.CreateObject(\"ADODB.Connection\")
Set objRS = Server.CreateObject(\"ADODB.Recordset\")
objConn.Open \"DSN=web;UID=web;PWD=web\"
Set objRS = objConn.Execute(\"select id,dato from kort WHERE id = 155\")
Do Until objRS.EOF
    Response.Write objRS(\"id\") & \" \" & objRS(\"dato\") & \"<br>\"
objRS.Movenext 
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
set objConn = Nothing
%>
Avatar billede kh-proffcom Nybegynder
11. september 2001 - 14:14 #3
tak. hvad var forskellen?
Avatar billede zeth Nybegynder
11. september 2001 - 14:21 #4
det er det samme.. bare lige at eaglyeye kom 6 sek. før mig... men vores løsninger giver det samme output :-)
Avatar billede eagleeye Praktikant
11. september 2001 - 14:41 #5
Ja det er samme løsning.
Når du benytter .Movenext og kommer efter den sidste record i recordset\'er sættes flaget .EOF (end-of-file).
Der findes en function som går den anden vej .Movelast, hvis den flytter forbi den første record sættes flaget .BOF (before-of-file).

Du kan evt ligge en if-sætning omkring udskrivningen. Hvis dit recordset eks.vis er tomt fra starten af, hvis SQL-sætningen ikke gav noget resultat.

If Not (objRS.EOF AND objRS.BOF) Then
  Do WHILE NOT objRS.EOF
    Response.Write objRS(\"id\") & \" \" & objRS(\"dato\") & \"<br>\"
    objRS.Movenext 
  Loop
Else
  response.write \"Ingen poster fundet ved søgning\"
end if
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