30. juni 2003 - 22:23
Der er
8 kommentarer og
2 løsninger
Indsætte i Db spm?
Hejsa...... jeg vil gerne indsætte form data i min db tabel.
Hvad gør jeg galt her?
Kode:
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("test.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "personoplysninger", Conn, 3,3
rs.AddNew
rs("navn")= Request.Form("navn")
rs("efternavn")= Request.Form("efternavn")
rs("adresse")= Request.Form("adresse")
rs("postnr")= Request.Form("postnr")
rs("city")= Request.Form("city")
rs("small")= Request.Form("small")
rs("medium")= Request.Form("medium")
rs("large")= Request.Form("large")
rs("xlarge")= Request.Form("xlarge")
rs("xxlarge")= Request.Form("xxlarge")
rs.UpDate
response.Redirect("opdater.htm")
rs.Close
Set rs=nothing
%>
</body>
</html>
Mvh
DK
nu har jeg prøvet det her:
navn = Replace(Request.Form("navn"),"'","")
efternavn = Replace(Request.Form("efternavn"),"'","")
adresse = Replace(Request.Form("adresse"),"'","")
postnr = Replace(Request.Form("postnr"),"'","")
city = Replace(Request.Form("city"),"'","")
small = Replace(Request.Form("small"),"'","")
medium = Replace(Request.Form("medium"),"'","")
large = Replace(Request.Form("large"),"'","")
xlarge = Replace(Request.Form("xlarge"),"'","")
xxlarge = Replace(Request.Form("xxlarge"),"'","")
Set objCon = Server.CreateObject("ADODB.Connection")
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath"test.mdb")
objCon.Open strCon
set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "INSERT INTO personoplysninger (navn, efternavn, adresse, postnr, city, small, medium, large, xlarge, xxlarge) VALUES ('"& navn &"','"& efternavn &"', '"& adresse &"','"& postnr &"','"& city &"','"& small &"','"& medium &"','"& large &"','"& xlarge &"','"& xxlarge &"')"
rs.open strSQL, strCon, 3, 3
response.Redirect("opdater.htm")
rs.Close
Set rs=nothing
men for følgende fejl:
Error Type:
Microsoft JET Database Engine (0x80004005)
Operation must use an updateable query.
/NK2/eksempel3.asp, line 21
hvis du har allerede givet rettigheder til mappe og alt andet og ikke virker så prøv at ændre kursuren(??) til:
rs.open strSQL, strCon, 3, 1
