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
Annonceindlæg fra Infor
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