Avatar billede bramsing Nybegynder
03. juni 2004 - 22:37 Der er 3 kommentarer og
1 løsning

update MySQL

Jeg har gennem et stykke tid nu forsøgt at søge informationer om hvordan jeg kan opdatere en record der er udskrevet på en liste..

koden til listen er listen er lidt rodet da jeg har forsøgt en del....

dim x
x=1
if NOT rs.BOF then
rs.movefirst
Do while NOT rs.EOF
'session("title") = rs("title")
response.Write(rs("title"))%><br><input type="text" name="title<%=x%>" value="<%=rs("title")%>">&nbsp;<%=x%>&nbsp;-&nbsp;<%response.Write(request.QueryString("title"&x)&" - - "&request.Form("title"&x))%><br><%response.Write(rs("About"))%><br>added:&nbsp;<%response.Write(rs("added"))%><br><a href="default.asp?mode=del">Afvis</a>&nbsp;<a href="default.asp?mode=notdel">Accept</a><br><%
x=x+1
rs.MoveNext
Loop


og når jeg eksv. trykker på "accept" køre følg. kode:

strSQL = "UPDATE `freeware` SET`accept` = 'Ja' WHERE `title`='"&request.Form("title"&x)&"' LIMIT 1" 'VALUES('NOT');"
set rs = conn.execute(strSQL)
response.Write("Programmet&nbsp;"&request.Form("title"&x)&"&nbsp;-&nbsp;"&request.QueryString("title"&x)&" er accepteret<br><br>Du føres tilbage til listen om få sekunder...")
response.Write("<br><br>"&strSQL)


strSQL output:
UPDATE `freeware` SET`accept` = 'Ja' WHERE `title`='' LIMIT 1

Nogen der kan bringe mig til en løsning ???
Avatar billede netro Nybegynder
03. juni 2004 - 23:50 #1
Som det er nu, sker der ingenting, når du trykker på "Accept", da formularen ikke sendes.

Du kan fx. inkludere et enkelt skjult felt, der udfyldes med id-nummeret på den record, der skal opdateres.

Dvs.:

Response.Write "<form name=""minform"" method=""post"" action=""default.asp"">"
Response.Write "<input type=""hidden"" name=""id"" value="""">"
Do while NOT rs.EOF
'...
  Response.Write "<input type=""text"" name=""title" & rs("id") & """ value=""" & rs("title") & """>"
'...
  Response.Write "<a href=""java script:void(0);"" onClick=""document.minform.id.value='" & rs("id") & "'; setTimeout('document.minform.submit();', 50);"">Accept</a>"
  rs.MoveNext
Loop
Response.Write "</form>"

Herefter kan du opdatere den pågældende record ved at aflæse id-nummeret:

ID = Request.Form("id")
If ID <> "" Then
  strSQL = "UPDATE `freeware` SET `accept` = 'Ja' WHERE `title` = '" & request.Form("title" & ID) & "'"
End If

Du har selv lavet lidt af løsningen ved at bruge variablen "x", men id-nummeret er mere fleksibelt - og ikke mindst unikt.
Avatar billede bramsing Nybegynder
04. juni 2004 - 00:14 #2
Netro, Jeg tror jeg er ved at glo mig blind på det, her til aften... Så jeg prøver at kigge på koden i morgen... Jeg kan nemlig ikke få det til at fungere :o(
Avatar billede bramsing Nybegynder
04. juni 2004 - 10:31 #3
.oO( Syntes ellers jeg havde sendt kommentar ind på indlægget ?!??!? )

netro.... efter jeg rettede koden til virker det.... Takker mange gange for hjælpen.... lægger du et svar, så du kan få dine velfortjente point :o))
Avatar billede netro Nybegynder
04. juni 2004 - 17:17 #4
Smukt! :)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Seneste spørgsmål Seneste aktivitet
I dag 10:21 Ny printer, men hvilken Af mort1 i Printere
I går 19:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging