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 --------
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.
