---

Hej

Jeg har forgæves forsøgt at lave en fejlbeskrivelse, hvis et recordset ikke
kan findes i et database opslag, men det er ikke lykkedes mig.

Jeg har følgende kode


Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/database.mdb")
Conn.Open DSN

strSQL_kunde = "SELECT * FROM kunde " _
& "WHERE telefon = " & id '(Id = kundenummer,
feks. 99999999)

Set rs_kunde = Conn.Execute(strSQL_kunde)

If NOT rs_kunde.EOF Then
response.write "OK"
else
response.write "Fejl"
end if

Håber i kan se hvad der er galt.

---

On Sun, 30 Jun 2002 10:21:42 +0200, "Michael Pedersen"
<mipe@stofanet.dk> wrote:

>Jeg har forgæves forsøgt at lave en fejlbeskrivelse, hvis et recordset ikke
>kan findes i et database opslag, men det er ikke lykkedes mig.

Får du en fejlmeddelelse, eller hvad sker der?

>Jeg har følgende kode

Kan ikke lige umiddelbart se nogen fejl, men en fejlmeddelelse eller
andet "symptom" ville hjælpe.
<SNIP>


Good luck,
Jørn


--
Jørn Andersen,
Brønshøj

---

Du kan tælle records. Her er hvordan jeg gør det:

_________________________________________________

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
server.MapPath("../db/projekter.mdb")
Set rs = server.createobject("adodb.recordset")

SQLstmt = "SELECT Id, Titel, formål FROM projektdata ORDER BY Id;"

rs.open sqlstmt,conn,3

If rs.recordcount > 0 then
...gør det du skal
else
...meld fejl
end if
_________________________________________________

Venligst
Kaj

"Michael Pedersen" <mipe@stofanet.dk> skrev i en meddelelse
news:3d1ebf8b$0$258$ba624c82@nntp03.dk.telia.net...
> Hej
>
> Jeg har forgæves forsøgt at lave en fejlbeskrivelse, hvis et recordset
ikke
> kan findes i et database opslag, men det er ikke lykkedes mig.
>
> Jeg har følgende kode
>
>
> Set Conn = Server.CreateObject("ADODB.Connection")
> DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
> DSN = DSN & "DBQ=" & Server.MapPath ("/database.mdb")
> Conn.Open DSN
>
> strSQL_kunde = "SELECT * FROM kunde " _
> & "WHERE telefon = " & id '(Id = kundenummer,
> feks. 99999999)
>
> Set rs_kunde = Conn.Execute(strSQL_kunde)
>
> If NOT rs_kunde.EOF Then
> response.write "OK"
> else
> response.write "Fejl"
> end if
>
> Håber i kan se hvad der er galt.
>
>
>