Thread: Asp: add reccord to MDB
-
21-04-2004, 18:16 #1Member
- Registered
- 06/09/03
- Location
- Buizingen
- Posts
- 1,072
- iTrader
- 0
- Mentioned
- 0 Post(s)
- Reputation
- 0/0
Asp: add reccord to MDB
Hoi,
Ben momenteel even aan het prutsen met ADO in combinatie met asp.
Ik volg hiervoor de gids van w3schools.K'volg hun voorbeelden en pas
deze dan aan aan mijn "test-databank".
Het uitlezen van een tabel in mijn mdb werkt perfect,alléén het toevoegen
van een reccord aan deze MDB laat het afweten.
De code van mijn pagina die het reccord dient toe toegen ( en waarnaar mijn submit dus verwijst )
Ik vul dus alle velden in, en laat dus ook geen blank in mijn mdb.PHP Code:<html>
<body><%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "D:\Webserver - Root\www_root\intranet\www_root\Waldo - Tests\w3\databank.mdb"
sql="INSERT INTO naam (Naam,Voornaam,Straat,Huisnummer,Gemeente,Postcode,Provincie,"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("Naam") & "',"
sql=sql & "'" & Request.Form("Voornaam") & "',"
sql=sql & "'" & Request.Form("Straat") & "',"
sql=sql & "'" & Request.Form("Huisnummer") & "',"
sql=sql & "'" & Request.Form("Gemeente") & "',"
sql=sql & "'" & Request.Form("Postcode") & "',"
sql=sql & "'" & Request.Form("Provincie") & "')"
on error resume next
conn.Execute sql,recaffected
if err<>0 then
Response.Write("No update permissions!")
else
Response.Write("<h3>" & recaffected & " record added</h3>")
end if
conn.close
%>
</body>
</html>
K'heb al eens geprobeert het probleem om te lossen door
de group "everyone" toe te voegen aan de mdb en alle
nodige rechten te geven
But still :/
Tnx anyway
no votes
-
-
23-04-2004, 12:32 #2
Re: Asp: add reccord to MDB
int vervolg code dubbelchecken ... haakje vergetenOriginally posted by Erlend
PHP Code:<html>
<body><%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "D:\Webserver - Root\www_root\intranet\www_root\Waldo - Tests\w3\databank.mdb"
sql="INSERT INTO naam (Naam,Voornaam,Straat,Huisnummer,Gemeente,Postcode,Provincie)"
sql=sql & " VALUES "
sql=sql & "('" & Request.Form("Naam") & "',"
sql=sql & "'" & Request.Form("Voornaam") & "',"
sql=sql & "'" & Request.Form("Straat") & "',"
sql=sql & "'" & Request.Form("Huisnummer") & "',"
sql=sql & "'" & Request.Form("Gemeente") & "',"
sql=sql & "'" & Request.Form("Postcode") & "',"
sql=sql & "'" & Request.Form("Provincie") & "')"
on error resume next
conn.Execute sql,recaffected
if err<>0 then
Response.Write("No update permissions!")
else
Response.Write("<h3>" & recaffected & " record added</h3>")
end if
conn.close
%>
</body>
</html>
no votes
-
25-04-2004, 00:58 #3Member
- Registered
- 06/09/03
- Location
- Buizingen
- Posts
- 1,072
- iTrader
- 0
- Mentioned
- 0 Post(s)
- Reputation
- 0/0
Crap,k'had de code ondertusse al is hermaakt en
error message was weg,maar idd,t'is stoem
dak dat haakje ben vergeten
tnx
,
no votes
