[ASP] Gegevens opvragen - Softwareontwikkeling

donderdag 5 juni 2003 17:01

Acties:

Verwijderd

Topicstarter

wanneer ik gegevens uit een dbase ga opvragen krijg ik de volgende foutmelding:

code:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10' 

[Microsoft][ODBC Microsoft Access-stuurprogramma] Er zijn te weinig parameters. Het verwachte aantal is: 1. 

/202_025/project/beheermodule_beroepen_bekijken.asp, line 21

en dit staan in line 21:

code:

<%
Dim VoerUit
Set VoerUit = Verbinding.Execute(SQLvraag)
%>

dit is de code die ik voor de opvraagpgina gebruik:

code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>De Beheermodule</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
'verbinding maken met de database kanaleneiland

Dim Verbinding
Set Verbinding = Server.CreateObject ( "ADODB.Connection" ) 
Verbinding.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath ( "kanaleneiland.mdb")
%> 

<%
'SQLvraag opstellen en uitvoeren
Dim SQLvraag
SQLvraag = "SELECT bedrijfsnaam, sector, straat, straatnr, postcode, plaats, telefoonnr, faxnr, kvknr, kvkplaats, btwnr, email, website, missie, kerntaken FROM bedrijven" 
%>
<%
Dim VoerUit
Set VoerUit = Verbinding.Execute(SQLvraag)
%>
<style type=text/css>
.column_a {
    position: absolute;
    top: 10px;
    left: 10px;
    height: 500px;
    width: 200px;
    border-style: solid;
    border-color: #666666;
    border-width: 2px;
    background-color: #BEDC36;
    font-family: verdana;
    font-size: 10px;
    font-style: normal;
    font-weight: normal;
    overflow: auto;
    padding-left: 4px;
    padding-right: 4px;
    padding-top: 4px;
    padding-bottom: 4px;
    scrollbar-highlight-color: #666666;
    scrollbar-shadow-color: #666666;
    scrollbar-darkshadow-color: #666666;
    scrollbar-3dlight-color: #666666;
    scrollbar-arrow-color: #666666;
    scrollbar-track-color: #666666;
    }
.column_b {
    position: absolute;
    top: 10px;
    left: 220px;
    height: 500px;
    width: 530px;
    border-style: solid;
    border-color: #666666;
    border-width: 2px;
    background-color: #39B5E0;
    font-family: verdana;
    font-size: 10px;
    font-style: normal;
    font-weight: normal;
    overflow: auto;
    padding-left: 4px;
    padding-right: 4px;
    padding-top: 4px;
    padding-bottom: 4px;
    scrollbar-highlight-color: #666666;
    scrollbar-shadow-color: #666666;
    scrollbar-darkshadow-color: #666666;
    scrollbar-3dlight-color: #666666;
    scrollbar-arrow-color: #666666;
    scrollbar-track-color: #666666;
    }
.koptekst {
    font-family: verdana;
    font-size: 12px;
    font-style: normal;
    font-weight: 700;
    color: ffffff;
    padding-left: 2px;
    padding-right: 2px;
    padding-top: 2px;
    padding-bottom: 2px;
    }
.tekst {
    font-family: verdana;
    font-size: 10px;
    font-style: normal;
    font-weight: 400;
    color: 000000;
    padding-left: 2px;
    padding-right: 2px;
    padding-top: 2px;
    padding-bottom: 2px;
    }
.tabel_a {
    width: 40%;
    border-style: none;
    border-color: #39b5e0;
    border-width: 0px;
    background-color: #e7e7e7;
    font-family: verdana;
    font-size: 12px;
    font-style: normal;
    font-weight: 700;
    font-color: 000000;
}
.tabel_b {
    width: 50%;
    border-style: none;
    border-color: #39b5e0;
    border-width: 0px;
    background-color: #e7e7e7;
    font-family: verdana;
    font-size: 12px;
    font-style: normal;
    font-weight: 400;
    font-color: 000000;
}
a:link {color: 000000;}
a:visited {color: 000000;}
a:hover {color: 39b5e0;}
a:active {color: 39b5e0;}

</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>

<body>
<div id="menu" class="column_a"> 
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td class="koptekst">Bedrijven</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td class="tekst"><a href="#">Toevoegen</a></td>
    </tr>
    <tr> 
      <td class="tekst"><a href="#">Bekijken</a></td>
    </tr>
    <tr> 
      <td class="tekst"><a href="#">Updaten</a></td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td class="koptekst">Beroepen</td>
    </tr>
    <tr> 
      <td>&nbsp;</td>
    </tr>
    <tr> 
      <td class="tekst"><a href="#">Toevoegen</a></td>
    </tr>
    <tr> 
      <td class="tekst"><a href="#">Bekijken</a></td>
    </tr>
    <tr> 
      <td class="tekst"><a href="#">Updaten</a></td>
    </tr>
    <tr> 
      <td class="tekst">&nbsp;</td>
    </tr>
    <tr> 
      <td class="koptekst">Overig</td>
    </tr>
    <tr> 
      <td class="tekst">&nbsp;</td>
    </tr>
    <tr>
      <td class="tekst"><a href="beheermodule.htm">[ Terug naar beheermodule ]</a></td>
    </tr>
  </table>
  <p class="koptekst"><br>
  </p>
  </div>

<div id="main" class="column_b"> 
  <% 
WHILE NOT VoerUit.EOF 
%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td class="koptekst">Beroepen opvragen </td>
    </tr>
  </table>
  <br>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td class="tabel_a">Beroep</td>
      <td class="tabel_b"><%= VoerUit ( "beroep" ) %></td>
    </tr>
    <tr> 
      <td class="tabel_a">sector</td>
      <td class="tabel_b"><%= VoerUit ( "sector" ) %></td>
    </tr>
    <tr> 
      <td class="tabel_a">Bedrijfsnaam</td>
      <td class="tabel_b"><%= VoerUit ( "bedrijfsnaam" ) %></td>
    </tr>
    <tr> 
      <td class="tabel_a">Wijkdeel</td>
      <td class="tabel_b"><%= VoerUit ( "wijkdeel" ) %></td>
    </tr>
    <tr> 
      <td class="tabel_a">Verantwoordelijkheden</td>
      <td class="tabel_b"><%= VoerUit ( "verantwoordelijkheden" ) %></td>
    </tr>
    <tr> 
      <td class="tabel_a">Kerntaken</td>
      <td class="tabel_b"><%= VoerUit ( "Kerntaken" ) %></td>
    </tr>
    <tr> 
      <td class="tabel_a">Waarom</td>
      <td class="tabel_b"><%= VoerUit ( "waarom" ) %></td>
    </tr>
    <tr> 
      <td></td>
      <td></td>
    </tr>
    <tr> 
      <td colspan="2">&nbsp;</td>
    </tr>
    <tr> 
      <td></td>
      <td></td>
    </tr>
    <tr>
      <td></td>
      <td></td>
    </tr>
  </table>
  <% 
VoerUit.MoveNext 
WEND 
%>
</div>
</body>
</html>

ik snap echt niet wat hier fout is, wie kan mij helpen?
alvast bedankt!

donderdag 5 juni 2003 17:21

Acties:

abeker

...

Je hebt waarschijnlijk een ongeldige kolom- of tabelnaam in je query zitten. Werkt die query wel als je hem in Access zelf uitvoert?

the less one forgets, the less one remembers

donderdag 5 juni 2003 17:30

Acties:

Verwijderd

Doe eens 'SELECT * FROM bedrijven" om te kijken of dat werkt. 'Email' is bijv. potentieel een gereserveerd woord.

donderdag 5 juni 2003 18:47

Acties:

Crazy D

I think we should take a look.

Voer de query uit binnen Access, en kijk dan nog eens goed naar de melding. En controleer je veldnamen, de foutmelding suggereert dat je een typefout hebt in 1 van de veldnamen (dat is iig het geval als ik zo'n error krijg).

Exact expert nodig?

donderdag 5 juni 2003 18:59

Acties:

whoami

Je hoeft trouwens niet zo'n lap code te posten.
Als je je beperkt tot de relevante code, is dat al meer dan genoeg.

https://fgheysels.github.io/

donderdag 5 juni 2003 19:08

Acties:

Verwijderd

".Execute" Execute an SQL statement (other than Select). No result values are returned or saved.

je moet .open hebben

Hier stond inderdaad Onzin.

[ Voor 35% gewijzigd door Verwijderd op 05-06-2003 19:26 ]

donderdag 5 juni 2003 19:18

Acties:

Verwijderd

Verwijderd schreef op 05 June 2003 @ 19:08:
".Execute" Execute an SQL statement (other than Select). No result values are returned or saved.

je moet .open hebben
http://www.janus-software.com/doc/Phx00442.htm

Uhm ...

1) Janus Software != ASP
2) Janus Software ODBC != ADO
3) Met het ADO connection object kan je via de .Execute methode zowel queries versturen die geen resultaten opleveren (zoals INSERT) als queries die dat wel doen (SELECT)

quote: http://www.w3schools.com/ado/met_conn_execute.asp
Syntax for row-returning
Set objrs=objconn.Execute(commandtext,ra,options)

Syntax for non-row-returning
objconn.Execute commandtext,ra,options

Parameter Description
commandtext Required. The SQL statement, stored procedure, or provider-specific text to execute
ra Optional. The number of records affected by the query
options Optional. Sets how the provider should evaluate the commandtext parameter. Can be one or more CommandTypeEnum or ExecuteOptionEnum values. Default is adCmdUnspecified

[ Voor 36% gewijzigd door Verwijderd op 05-06-2003 19:21 ]

donderdag 5 juni 2003 19:40

Acties:

Verwijderd

Topicstarter

dank jullie, het is al gelukt