Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
10. november 2004 - 21:55
#1
10. november 2004 - 21:59
#2
<html> <title>Indsætte data i databasen</title> <head> </head> <body> <% ' Databaseforbindelse - husk at angive sti til din database Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("/db/database1.mdb") Conn.Open DSN strFornavn = Request.Form("Fornavn") strEfternavn = Request.Form("Efternavn") strAdresse = Request.Form("Adresse") strPostnummer = Request.Form("Postnummer") strBy = Request.Form("By") strFoedselsdag = Request.Form("Foedselsdag") strEmail = Request.Form("Email") strTelefon = Request.Form("Telefon") ' SQL sætning opbygges strSQL = "INSERT INTO personer(Fornavn,Efternavn,Adresse,Postnummer,By,Foedselsdag,Email,Telefon) values('" & strFornavn & "','" & strEfternavn & "','" & strAdresse & "','" & strPostnummer & "','" & strBy & "','" & strFoedselsdag & "','" & strEmail & "','" & strTelefon & "')" ' SQL sætning eksekveres Conn.Execute(strSQL) ' Luk databaseforbindelse Conn.Close Set Conn = Nothing %> <h1>Databasen er opdateret!</h1> </body> </html>
10. november 2004 - 22:05
#3
hvad havde jeg gjordt galt har ændret det den virker stadigvæk ikke
10. november 2004 - 22:11
#4
har opdateret xip fil
10. november 2004 - 22:21
#5
ups der skulle stå zip filen
10. november 2004 - 22:39
#6
Fejlmeddelelsen på siden lige nu sige bar at du skal skrive strFornavn = Request.Form("Fornavn") strFornavn = Replace(strTekst, "'", "''") på to linier. Dernæst kommer et problem med "by" i din SQL. Du kan: strSQL = "INSERT INTO personer(Fornavn,Efternavn,Adresse,Postnummer,[By],Foedselsdag,Email,Telefon) values('" & strFornavn & "','" & strEfternavn & "','" & strAdresse & "','" & strPostnummer & "','" & strBy & "','" & strFoedselsdag & "','" & strEmail & "','" & strTelefon & "')"
10. november 2004 - 22:45
#7
åhja, den havde jeg sgu overset "by" ved ikke lige hvor det der strFornavn = Replace(strTekst, "'", "''") kommer fra det findes slet ikke i ovenstående kode
10. november 2004 - 22:48
#8
men hvis det er for at undgå ' i dine navne så gør sådan: strFornavn = replace(Request.Form("Fornavn"),"'","''") for hver enkelt
10. november 2004 - 22:53
#9
Der havde jeg overset noget. Hvis spørgeren vil bevare de 2 linier, skal de i hvert fald rettes til strFornavn = Request.Form("Fornavn") strFornavn = Replace(strFornavn, "'", "''") Men man kan som just vist nøjes med een linie.
22. oktober 2005 - 20:53
#10
Da ingen har lagt et svar tager jeg pointene selv... hvis i vil have point må i lige skrive så får i dem
Kurser inden for grundlæggende programmering