Toon posts:

[asp] Movelast niet ondersteund

Pagina: 1

Acties:

43 views sinds 30-01-2008
Reageer

donderdag 18 april 2002 11:28

Acties:

Sjnirk

Hie vrieve

Topicstarter

Ik heb deze database gemaakt, hierin wil ik gewoon gaan bladeren, maar hij zegt

[ERROR]
ADODB.Recordset error '800a0c93'

The operation requested by the application is not allowed in this context.

[/ERROR]

als ik een movelast, of een moveprevious gebruik, iemand een idee waarom, de cursortype staat goed volgens mij, tenminste zo heb ik het opgezocht. (Alle andere cursortypes geven dezelfde fout)

code:

<%
no=Request.Form("NWinternummer")
Dim conn, rs

Set rs = Server.CreateObject("ADODB.RecordSet")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open(("D:\Inetpub\wwwroot\sis\sis.mdb"))


rs.Open "SELECT * FROM aspnetwerk", conn , adOpenKeyset
rs.movefirst

dim nav
nav= request.querystring("move")


Select case nav
Case "first"
   rs.movefirst
 Case "back" 
     rs.moveprevious    
Case "next"
   rs.movenext
 Case "last"
    rs.movelast
 Case "new"
   response.write "BLA."
 End Select
  %>
<HTML>
<BODY BGCOLOR = #000000 text = #FFFF00>



<form method="post" action="db_submit.asp">

<TABLE align = "right" border = 0 bgcolor="#000000" cellpadding="2">
    <TD><input type="submit" name="action" value="Save Update"></TD>
    <TD><input type="submit" name="action" value="Delete"></TD>
    <TD><input type="submit" name="action" value="Save Nieuw"></TD>

   </TR>
</TABLE>
<P>&nbsp;</P>
<TABLE align = "center" border = 0 bgcolor="#000000" cellpadding="2">
   <TR>
    <TD><a Href="?move=first" ><IMG SRC = "images/begin.gif"></a></TD>
    <TD><a Href="?move=back" ><IMG SRC = "images/terug.gif"></a></TD>
    <TD><a Href="?move=next" ><IMG SRC = "images/voren.gif"></a></TD>
    <TD><a Href="?move=last" ><IMG SRC = "images/eind.gif"></a></TD>
    <TD><a Href="?move=new" ><IMG SRC = "images/plus.gif"></a></TD>
   </TR>
</TABLE>

Bikkelen gebeurt pas na 2:00

donderdag 18 april 2002 11:42

Acties:

Basszje

Reisvaap!]

Kan het uberhaupt wel in ASP

Het ligt iig aan je cursortype inderdaad bij het definieren van je recordset.

Beware of listening to the imposter; you are undone if you once forget that the fruits of the earth belong to us all, and the earth itself to nobody.

donderdag 18 april 2002 11:46

Acties:

Sjaaky

code:

1	rs.Open "SELECT * FROM aspnetwerk", conn , adOpenKeyset

vervangen door:

code:

1	rs.Open "SELECT * FROM aspnetwerk", conn , 1, 3

donderdag 18 april 2002 11:47

Acties:

4of9

Worden rs.movefirst & rs.moveprevious wel ondersteund in ASP/vbscript...

volgens mij alleen rs.movenext

Aspirant Got Pappa Lid | De toekomst is niet meer wat het geweest is...

donderdag 18 april 2002 11:47

Acties:

Sjnirk

Hie vrieve

Topicstarter

Movefirst en movenext werkt wel gewoon, dus ik denk het wel

Bikkelen gebeurt pas na 2:00

donderdag 18 april 2002 11:54

Acties:

Sjnirk

Hie vrieve

Topicstarter

Op donderdag 18 april 2002 11:47 schreef 4of9 het volgende:
Worden rs.movefirst & rs.moveprevious wel ondersteund in ASP/vbscript...

volgens mij alleen rs.movenext

Ik had het net nog een opgezocht in een veel te dik asp 3.0 boek, daar staan ze gewoon in een voorbeeld allemaal gebruikt, kan het er niet aan liggen dat ik geen ISS gebruik, maar de personal webserver

Bikkelen gebeurt pas na 2:00

donderdag 18 april 2002 12:00

Acties:

Sjaaky

Probleem bij mij was dat ik eerst een of andere type-library moest laden, omdat constanten zoals adOpenKeyset, etc.. anders de waarde 0 hadden.
Omdat ik me af vraag hoe snel het laden van type-library is, gebruik ik nu gewoon getalletjes. 1,3 in dit geval, zou allang niet meer weten waar ze voor staan, maar ze werken altijd.

donderdag 18 april 2002 12:01

Acties:

4of9

nee idd je kunt het wel gebruiken... het ligt aan je cursor als het goed is..

Aspirant Got Pappa Lid | De toekomst is niet meer wat het geweest is...

donderdag 18 april 2002 12:05

Acties:

4of9

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdobjodbrec.asp

daar staat een hoop over ADO

Aspirant Got Pappa Lid | De toekomst is niet meer wat het geweest is...

donderdag 18 april 2002 12:44

Acties:

Janoz

Moderator Devschuur®

!litemod

Ik heb trouwens een donkerbruin vermoeden dat dit helemaal mis gaat. Voor elke aanvraag doe je immers een nieuwe query en begin je gewoon weer bij het eerste record. Daarnaast vind ik het een beetje overdreven om alles op te halen terwijl je maar 1 record nodig hebt. Je kunt waarschijnlijk beter met je query zorgen dat je het juiste record ophaald ipv proberen aan te kloten met rs.moveSomewhere()..

Ken Thompson's famous line from V6 UNIX is equaly applicable to this post:
'You are not expected to understand this'

vrijdag 19 april 2002 11:06

Acties:

Sjnirk

Hie vrieve

Topicstarter

Ik heb er ff aan moeten werken, (idd querys moeten gebruiken, maar dit is ie geworden, hij werkt perfect)

code:

<%




dim nav, sqlschuif, sqleerste, sqllaatste, sqlopen
nav= request.querystring("move")

no= session.contents("nummer")
Dim conn, rs

Set rs = Server.CreateObject("ADODB.RecordSet")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open(("D:\Inetpub\wwwroot\sis\sis.mdb"))

sqlopen = "Select * "
sqlopen = sqlopen & "from aspnetwerk "
sqlopen = sqlopen & "where NWinternnummer = " & no


sqlschuif =           "select * "
sqlschuif = sqlschuif & "from aspnetwerk "
sqlschuif = sqlschuif & "where NWinternnummer = " & no
sqlschuif = sqlschuif & " or NWInternnummer = (select max(NWinternnummer) "
sqlschuif = sqlschuif & "from aspnetwerk "
sqlschuif = sqlschuif & "where NWinternnummer < " & no & ") "
sqlschuif = sqlschuif & "or NWInternnummer = (select min(NWinternnummer) "
sqlschuif = sqlschuif & "from aspnetwerk "
sqlschuif = sqlschuif & "where NWinternnummer > " & no & ")"
    
sqleerste = "select * "
sqleerste = sqleerste & "from aspnetwerk "
sqleerste = sqleerste & "where NWinternnummer = "
sqleerste = sqleerste & "(Select min(NWinternnummer) "
sqleerste = sqleerste & "from aspnetwerk)"    


sqllaatste = "select * "
sqllaatste = sqllaatste & "from aspnetwerk "
sqllaatste = sqllaatste & "where NWinternnummer = "
sqllaatste = sqllaatste & "(Select max(NWinternnummer) "
sqllaatste = sqllaatste & "from aspnetwerk)"      


DIM internnr
DIM componentnaam
DIM componenttype
DIM aanschafdatum
DIM garantie
DIM ipnummer
DIM onderdeelinfo
DIM Fabrikant
DIM Leverancier
DIM Lokatie

Select case nav
Case "first"
     rs.Open sqleerste, conn , 3
 Case "back" 
     rs.Open sqlschuif, conn , 3
     rs.movefirst
 Case "next"
  rs.Open sqlschuif, conn , 3
  rs.movelast
 Case "last"
    rs.Open sqllaatste, conn , 3
 Case "new"
 rs.Open sqlopen, conn , 3

   internnr = ""
   componentnaam = ""
   componenttype = ""
   aanschafdatum = ""
   garantie = ""
   ipnummer = ""
   onderdeelinfo = ""
   Fabrikant = 18
   Leverancier = 18
   Lokatie = "Onbekend"
   
Case "open"
   rs.Open sqlopen, conn , 3
End Select

  %>
<HTML>
<BODY BGCOLOR = #000000 text = #FFFF00>



<form method="post" action="test.asp">

<TABLE align = "right" border = 0 bgcolor="#000000" cellpadding="2">
    <TD><input type="submit" name="action" value="Save Update"></TD>
    <TD><input type="submit" name="action" value="Delete"></TD>
    <TD><input type="submit" name="action" value="Save Nieuw"></TD>

   </TR>
</TABLE>

<P>&nbsp;</P>
<TABLE align = "center" border = 0 bgcolor="#000000" cellpadding="2">
   <TR>
    <TD><a Href="?move=first" onClick="doIets();"><IMG SRC = "images/begin.gif"></a></TD>
    <TD><a Href="?move=back" onClick="doIets();"><IMG SRC = "images/terug.gif"></a></TD>
    <TD><a Href="?move=next" onClick="doIets();"><IMG SRC = "images/voren.gif"></a></TD>
    <TD><a Href="?move=last" onClick="doIets();"><IMG SRC = "images/eind.gif"></a></TD>
    <TD><a Href="?move=new" onClick="doIets();"><IMG SRC = "images/plus.gif"></a></TD>
   </TR>
</TABLE>
     
     
<%
if not nav="new" then

internnr = rs.fields("NWInternnummer").value

componentnaam = rs.fields("NWComponentnaam").value

componenttype = rs.fields("NWcomponenttype").value

aanschafdatum = rs.fields("NWaanschafdatum").value

garantie = rs.fields("NWgarantie").value

ipnummer = rs.fields("NWIPnummer").value

onderdeelinfo = rs.fields("NWonderdeelinformatie").value

Fabrikant = rs.fields("NWFAbrikant").value

Leverancier = rs.fields("NWLeveranciernummer").value

Lokatie = rs.fields("NWlokatie").value

end if
%>


<H2 align = "center"> Netwerk DataBase </H2>
<P>&nbsp;</P>

<TABLE align = "center" border = 0 bgcolor="#000000" cellpadding="2">
   <TR>
    <TD>Intern Nummer</TD>
    <TD><input name="NWInternnummer" size="20" value=<% =internnr%> ></TD>
    <TD>&nbsp;&nbsp;</TD>
    <TD>Component Naam</TD>
    <TD><input name="NWcomponentnaam"  size="20" value=<% =Componentnaam%>></TD>
    <TD></TD>
   </TR>
   <TR>
   <TD>&nbsp;</TD>
   </TR>
   <TR>
    <TD>Component Type</TD>
    <TD><input name="NWcomponenttype" size="20" value=<% =componenttype%> ></TD>
    <TD>&nbsp;&nbsp;</TD>
    <TD>Fabrikant</TD>
    <%   dim rsFAB,sql
            Set rsFAB = Server.CreateObject("ADODB.RecordSet")
            sql = " SELECT LVLeveranciersnaam,LVLeveranciersnummer FROM aspleverancier where LVLeveranciersnummer = " & Fabrikant 
            rsFAB.Open sql, conn
        %>
    <TD>
      <SELECT NAME="NWFAbrikant">
               <OPTION VALUE=<% =(rsFAB.fields("LVLeveranciersnummer").value )%> SELECTED><% =(rsFAB.fields("LVLeveranciersnaam").value )%></OPTION>
        <%
           rsfab.close
            sql = " SELECT DISTINCT LVLeveranciersnaam,LVLeveranciersnummer FROM aspleverancier"
              rsfab.open sql, conn
            rsfab.movefirst
             
            while not rsfab.eof
             response.write ("<OPTION VALUE=""" & rsFAB.fields("LVLeveranciersnummer").value & """>" & rsFAB.fields("LVLeveranciersnaam").value & "</OPTION>")
             rsfab.movenext
            Wend 
         %>
        </SELECT>   
        </TD>
        <TD></TD>
   </TR>
   <TR>
   <TD>&nbsp;</TD>
   </TR>
    <TR>
    <TD>Leverancier</TD>
    <%   rsfab.close
            Set rsFAB = Server.CreateObject("ADODB.RecordSet")
            sql = " SELECT LVLeveranciersnaam,LVLeveranciersnummer FROM aspleverancier where LVLeveranciersnummer = " & leverancier 
            rsFAB.Open sql, conn
        %>
    <TD>
      <SELECT NAME="NWLeveranciernummer">
               <OPTION VALUE=<% =(rsFAB.fields("LVLeveranciersnummer").value )%> SELECTED><% =(rsFAB.fields("LVLeveranciersnaam").value )%></OPTION>
        <%
           rsfab.close
            sql = " SELECT DISTINCT LVLeveranciersnaam,LVLeveranciersnummer FROM aspleverancier"
              rsfab.open sql, conn
            rsfab.movefirst
             
            while not rsfab.eof
             response.write ("<OPTION VALUE=""" & rsFAB.fields("LVLeveranciersnummer").value & """>" & rsFAB.fields("LVLeveranciersnaam").value & "</OPTION>")
             rsfab.movenext
            Wend 
           rsfab.close
         %>
        </SELECT>         
        </TD>
    <TD>&nbsp;&nbsp;</TD>
    <TD>Lokatie</TD>
    <TD>
    <SELECT NAME="NWLokatie">
               <OPTION VALUE="<% =Lokatie%>" SELECTED><% =Lokatie%></OPTION>
        <%

            sql = " SELECT DISTINCT NWLokatie FROM Aspnetwerk"
              rsfab.open sql, conn
            rsfab.movefirst
             
            while not rsfab.eof
             response.write ("<OPTION VALUE=""" & rsFAB.fields("NWLokatie").value & """>" & rsFAB.fields("NWLokatie").value & "</OPTION>")
             rsfab.movenext
            Wend 
         rsfab.close
         %>

        </SELECT>
        </TD>
    <TD></TD>
   </TR>
   <TR>
   <TD>&nbsp;</TD>
   </TR>
    <TR>
    <TD>Aanschafdatum</TD>
    <TD><input name="NWaanschafdatum" size="20" value=<% =aanschafdatum%> ></TD>
    <TD>&nbsp;&nbsp;</TD>
    <TD>Garantie</TD>
    <TD><input name="NWgarantie" size="20" value=<% =garantie%> ></TD>
    <TD></TD>
   </TR>
   <TR>
   <TD>&nbsp;</TD>
   </TR>
    <TR>
    <TD>IP nummer</TD>
    <TD><input name="NWIpnummer" size="20" value=<%=ipnummer%> ></TD>
     <TD>&nbsp;</TD>
     <TD>Onderdeel Informatie</TD>
    <TD><textarea rows="2" name="NWonderdeelinformatie" cols="20"><%=onderdeelinfo%></textarea>  
   </TR>
  

</TABLE>
<%
if not nav="new" then
session("nummer")= internnr
end if



  rs.Close
  Set rs = Nothing
  conn.Close
  Set conn = Nothing
  Set sql = Nothing 
  Set rsfab = Nothing
%>

Bikkelen gebeurt pas na 2:00

Pagina: 1

Reageer