Søg
Avatar billede hede98 Nybegynder
31. maj 2003 - 23:37 Der er 9 kommentarer og
1 løsning

Sql sætning, giver fejl!

Hej
Jeg bruger følgende i starten af mit dokument

<% set rskunder1 = Conn.execute("SELECT * FROM Kontakpersoner WHERE kundeid=" & request("kundeid"))
%>

Men hvis der ikke findes nogen kontakpersoner på det valgte id, hvor undgår jeg så den giver fejl!
Avatar billede eagleeye Praktikant
31. maj 2003 - 23:42 #1
Du kan tjekke på om recordetet er tomt ved at tjekke på EOF

<% set rskunder1 = Conn.execute("SELECT * FROM Kontakpersoner WHERE kundeid=" & request("kundeid"))

if NOT rskunder1.EOF then
  'Din kode

else
  Response.write "Ingen kontakt person fundet"
end if

%>
Avatar billede hede98 Nybegynder
31. maj 2003 - 23:47 #2
Ingen kontakt person fundet ADODB.Field fejl '80020009'

Enten er BOF eller EOF sand, eller den aktuelle post er blevet slettet. Den anmodede handling kræver en aktuel post.

/nyaktivitet.asp, linje 0
Avatar billede eagleeye Praktikant
31. maj 2003 - 23:52 #3
Du skal havde alt koden som udskriver fra recordsetet ind hvor der står

  'Din kode
Avatar billede hede98 Nybegynder
31. maj 2003 - 23:54 #4
??, her er starten af min kode
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM Kontakpersoner WHERE kundeid=" & request("kundeid"))

if NOT rskunder1.EOF then
  'Din kode

else
  Response.write "Ingen kontakt person fundet"
end if

%>

<body bgcolor="#FFFFFF">
<table width="962" border="0" height="257">
  <tr>
    <td width="553" height="263" valign="top">
      <form name="form1" method="post" action="nyaktivitet.asp?mode=gem&kundeid=<%=rskunder1("kundeid")%>">
        <table width="53%" border="0" height="130" bgcolor="#000000" bordercolor="#000000" cellpadding="1" cellspacing="1">
          <tr>
            <td height="220" bgcolor="#CCCCCC">
              <table width="570" border="0" cellspacing="0" height="335">
                <tr>
                  <td width="153" height="22">
                  <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                  Overskrift.:</font></td>
                  <td colspan="2" height="22" width="249"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                    <input type="text" name="Titel" size="44"></font></td>
                  <td colspan="2" rowspan="5" valign="top" width="178" height="118"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                    &nbsp;</font></td>
                </tr>
                <tr>
                  <td width="153" height="22">
                  <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                  Kontakt person.:</font></td>
                  <td height="22" width="227">
                    <div align="left">
</select>
                    <font face="Verdana, Arial, Helvetica, sans-serif" size="1">

                    <select size="1" name="kontaktpersonid">
                  <%If rskunder1.EOF Then
  response.write "Ingen kontaktpersoner oprettet"
Else
do while not rskunder1.EOF%>
                  <option><%Response.Write rskunder1("Navn")%>&nbsp<%Response.Write rskunder1("efternavn")%></option>
                  <%rskunder1.MoveNext
                  loop%>
                 
                  </select></font></div>
                  </td>
                  <td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
                </tr>
                <tr> <%
rskunder1.Close
set rskunder1 = Nothing
End If
%>
Avatar billede eagleeye Praktikant
31. maj 2003 - 23:59 #5
Prøv med:


<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM Kontakpersoner WHERE kundeid=" & request("kundeid"))

if NOT rskunder1.EOF then
  'Din kode

%>
<body bgcolor="#FFFFFF">
<table width="962" border="0" height="257">
  <tr>
    <td width="553" height="263" valign="top">
      <form name="form1" method="post" action="nyaktivitet.asp?mode=gem&kundeid=<%=rskunder1("kundeid")%>">
        <table width="53%" border="0" height="130" bgcolor="#000000" bordercolor="#000000" cellpadding="1" cellspacing="1">
          <tr>
            <td height="220" bgcolor="#CCCCCC">
              <table width="570" border="0" cellspacing="0" height="335">
                <tr>
                  <td width="153" height="22">
                  <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                  Overskrift.:</font></td>
                  <td colspan="2" height="22" width="249"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                    <input type="text" name="Titel" size="44"></font></td>
                  <td colspan="2" rowspan="5" valign="top" width="178" height="118"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                    &nbsp;</font></td>
                </tr>
                <tr>
                  <td width="153" height="22">
                  <font face="Verdana, Arial, Helvetica, sans-serif" size="1">
                  Kontakt person.:</font></td>
                  <td height="22" width="227">
                    <div align="left">
</select>
                    <font face="Verdana, Arial, Helvetica, sans-serif" size="1">

                    <select size="1" name="kontaktpersonid">
                  <%If rskunder1.EOF Then
  response.write "Ingen kontaktpersoner oprettet"
Else
do while not rskunder1.EOF%>
                  <option><%Response.Write rskunder1("Navn")%>&nbsp<%Response.Write rskunder1("efternavn")%></option>
                  <%rskunder1.MoveNext
                  loop%>
                 
                  </select></font></div>
                  </td>
                  <td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
                </tr>
                <tr> <%
rskunder1.Close
set rskunder1 = Nothing
End If

else
  Response.write "Ingen kontakt person fundet"
end if
%>
Avatar billede hede98 Nybegynder
01. juni 2003 - 00:05 #6
Jeg fandt selv en løsning!
Avatar billede eagleeye Praktikant
01. juni 2003 - 00:09 #7
tsk tsk. Jeg har givet dig løsningen til hvordan du undgår fejlen!
Avatar billede hede98 Nybegynder
01. juni 2003 - 00:10 #8
nej det virkede ikke, så jeg fandt selv en løsning!
Avatar billede hede98 Nybegynder
01. juni 2003 - 00:11 #9
til dig fra mig!
Avatar billede hede98 Nybegynder
01. juni 2003 - 00:11 #10
http://www.eksperten.dk/spm/359284
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 18:13 oprette et installationsmedie Af Malm i Windows
I dag 13:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
I går 11:19 Ios 27 iphone låst sim Af claes57 i Apps til iOS
14/0910:42 Tidsbestemt opladning af elbil Af vbr i Andet software
13/0917:00 Film Server Af dcedata1977 i Andet software
White papers
Flere white papers »