10. februar 2007 - 20:35Der er
9 kommentarer og 1 løsning
update access DB
hay er lidt grøn til det
skal have update en DB har kikket på koden fra html.dk
har en variabel myid som er id-nr på den rakke der skal updates. har to klonner (ja/nej felter) navn: kommer og aktiv.
klonne aktiv aktiv skal bare updates med et ja klonne kommer har jeg en radio form hvor bruger kan svare ja eller nej
----- radio form start ------ <form action="regacc.asp" method="post"> <input name="kommer" type="radio"> <input name="kommer_ikke" type="radio"> <input type="submit" value="Dette er mit svar"> ----- radio form slut --------
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
strSQL = "UPDATE dinTabel SET aktiv = 'ja', kommer = '" & Request.Form("kommer") & "' WHERE id=" & Request.QueryString("ID") connection.execute(strSQL)
Response.Write("Databasen blev opdateret korrekt")
Else %>
<form action="?opdater=ja" method="post">
<input name="kommer" value="ja" type="radio"> Kommer <input name="kommer" value="nej" type="radio"> Kommer ikke <input type="submit" value="Dette er mit svar">
Ja, men du skal vel også hive ID'et ud et sted? Jeg ved ikke hvordan du har bygget dit system, så derfor satser jeg bare på nogle navne.
<% If Request.QueryString("opdater") = "ja" Then
strSQL = "UPDATE dinTabel SET aktiv = 'ja', kommer = '" & Request.Form("kommer") & "' WHERE id=" & Request.QueryString("ID") connection.execute(strSQL)
Response.Write("Databasen blev opdateret korrekt")
Else %>
<% SQL = "SELECT * FROM dinTabel WHERE id=" & Request.QueryString("ID") Set rs = connection.execute(SQL) %>
<input name="kommer" value="ja" type="radio"> Kommer <input name="kommer" value="nej" type="radio"> Kommer ikke <input type="submit" value="Dette er mit svar">
<html> <title>Hente data fra database</title> <head> </head> <body> <% ' henter kode fra default dim strkode strkode = Request.Form ("passcode") Response.Write (strkode)
' 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("kommer.mdb") Conn.Open DSN
' SQL forespørgsel 'strSQL = "Select * From personer Where kode = '123'" strSQL = "Select * From personer Where kode = '" & strkode & "'" ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL)
'opretter variabel Dim MyVar dim myid ' Gennemløb Recordset (rs) med en løkke Do
' Udskriv værdien af kolonnen Fornavn og id 'Response.Write rs("Fornavn") & "<br>" myvar = rs("Fornavn") & "<br>" myid = rs("ID") & "<br>"
' Fortsæt indtil rs er gennemløbet (EOF = End Of File) Loop While Not rs.EOF
' Luk databaseforbindelse Conn.Close Set Conn = Nothing Response.Write("Velkommen " & myVar & " der!") 'Response.Write("Velkommen " & myvar & "der") %> <hr> <% If Request.QueryString("opdater") = "ja" Then
strSQL = "UPDATE dinTabel SET aktiv = 'ja', kommer = '" & Request.Form("kommer") & "' WHERE id=" & Request.QueryString("ID") connection.execute(strSQL)
Response.Write("Databasen blev opdateret korrekt")
Else %>
<form action="?opdater=ja" method="post">
<input name="kommer" value="ja" type="radio"> Kommer <input name="kommer" value="nej" type="radio"> Kommer ikke <input type="submit" value="Dette er mit svar">
<html> <title>Hente data fra database</title> <head> </head> <body> <% ' henter kode fra default dim strkode strkode = Request.Form ("passcode")
Response.Write (strkode)
' 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("kommer.mdb") Conn.Open DSN
' SQL forespørgsel 'strSQL = "Select * From personer Where kode = '123'" strSQL = "Select * From personer Where kode = '" & strkode & "'" ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL)
'opretter variabel Dim MyVar dim myid ' Gennemløb Recordset (rs) med en løkke Do
' Udskriv værdien af kolonnen Fornavn og id 'Response.Write rs("Fornavn") & "<br>" myvar = rs("Fornavn") & "<br>" myid = rs("ID") & "<br>"
strSQL = "UPDATE dinTabel SET aktiv = 'ja', kommer = '" & Request.Form("kommer") & "' WHERE id=" & Request.QueryString("ID") connection.execute(strSQL)
Response.Write("Databasen blev opdateret korrekt")
<input name="kommer" value="ja" type="radio"> Kommer <input name="kommer" value="nej" type="radio"> Kommer ikke <input type="submit" value="Dette er mit svar">
Det er da klart, du tager jo et break med ind i ID'et.
<html> <title>Hente data fra database</title> <head> </head> <body> <% ' henter kode fra default dim strkode strkode = Request.Form ("passcode")
Response.Write (strkode)
' 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("kommer.mdb") Conn.Open DSN
' SQL forespørgsel 'strSQL = "Select * From personer Where kode = '123'" strSQL = "Select * From personer Where kode = '" & strkode & "'" ' Udfør forespørgsel (rs indeholder nu resultatet) Set rs = Conn.Execute(strSQL)
'opretter variabel Dim MyVar dim myid ' Gennemløb Recordset (rs) med en løkke Do
' Udskriv værdien af kolonnen Fornavn og id 'Response.Write rs("Fornavn") & "<br>" myvar = rs("Fornavn") & "<br>" myid = rs("ID")
strSQL = "UPDATE dinTabel SET aktiv = 'ja', kommer = '" & Request.Form("kommer") & "' WHERE id=" & Request.QueryString("ID") connection.execute(strSQL)
Response.Write("Databasen blev opdateret korrekt")
<input name="kommer" value="ja" type="radio"> Kommer <input name="kommer" value="nej" type="radio"> Kommer ikke <input type="submit" value="Dette er mit svar">
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.
