Avatar billede snokey Nybegynder
18. februar 2008 - 09:08 Der er 1 kommentar og
1 løsning

Gemmer ikke i Access databasen

Hej.. Den gemmer intet i min database

<html>
<head>
<title>Indsætte data i databasen</title>
</head>
<body>
<%
' Opretter forbindelse til databassen
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

'Gemmer i de forskelle felter inde i tabellen personer
strSQL =("Insert into personer (Fornavn,Efternavn,telefon,email) values ('" & Request.Form("fornavn") & "','" & Request.Form("efternavn") & "','" & Request.Form("telefonnummer") & "','" & Request.Form("email") & "')")

'lukker min database
Conn.Close
Set Conn = Nothing
%>
<h1>Databasen er opdateret!</h1>

<a href="indhold.asp" target="I1">Tilbage til Databasen</a>
</body>
</html>



<html>
<head>
<title>Formular</title>
</head>
<body>

<h1>Skriv fornavn<h1>
<input type="text" name="fornavn">
<h1>Skriv Efternavn<h1>
<input type="text" name="efternavn">
<h1>Skriv Telefonnummer<h1>
<input type="text" name="telefonnummer">
<h1>Skriv e-mail<h1>
<input type="text" name="email">
<form action="inset_data.asp" method="post">
<input type="submit" value="Gem">
</form>

</body>
</html>



Den laver ingen fejl.. Den opretter godt nok en ny post men der er ingen værdier i de forskellige koloner..?

Bruger Frip som server, kan det være den der ikke kan finde ud af det?


Hurtigt hjælp, tak..
Avatar billede mitbrugernavn Praktikant
18. februar 2008 - 09:30 #1
prøv at erstatte disse linier

strSQL =("Insert into personer (Fornavn,Efternavn,telefon,email) values ('" & Request.Form("fornavn") & "','" & Request.Form("efternavn") & "','" & Request.Form("telefonnummer") & "','" & Request.Form("email") & "')")

med disse

strSQL ="Insert into personer (Fornavn,Efternavn,telefon,email) values ('" & Request.Form("fornavn") & "','" & Request.Form("efternavn") & "','" & Request.Form("telefonnummer") & "','" & Request.Form("email") & "')"
set rs= conn.execute(strSQL)
'prøv evt. at udskrive strengen for at se om der er noget i formen
response.write strSQL
set rs = nothing
Avatar billede cpufan Juniormester
18. februar 2008 - 09:45 #2
du mangler bare at execute sql'en:

'Gemmer i de forskelle felter inde i tabellen personer
strSQL =("Insert into personer (Fornavn,Efternavn,telefon,email) values ('" & Request.Form("fornavn") & "','" & Request.Form("efternavn") & "','" & Request.Form("telefonnummer") & "','" & Request.Form("email") & "')")

Conn.execute(strSQL) ' denne linie havde du glemt
'lukker min database
Conn.Close
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
Kurser inden for grundlæggende programmering

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.

Du kan også logge ind via nedenstående tjenester