Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Hur jag skall göra så att SQL satserna körs?

Postades av 2002-10-19 11:48:52 - Marcus Brunzell, i forum asp - allmänt, Tråden har 7 Kommentarer och lästs av 485 personer

Tjena!
Har stött på en nytt problem… Vet inte riktigt hur jag skall köra SQL satserna.
Såhär ser det ut.

På Sida1.asp så listas alla som uppfyller sql satsen och en checkbox skriv ut på samma rad som varje post.
...
SQL = "SELECT * FROM Spelare Where Aktiv='Ja' ORDER BY Efternamn"
…
<input type="checkbox" name="checkbox-<%=RecSet("IDSpelare")%>" value="1">
…

Mitt problem är hur jag skall ta emot värdet från checkboxen på nästa sida och sätta in det i tabellen.

Har försökt att sätta in SQL satsen i en loop.
...
SQL = "SELECT * FROM Spelare Where Aktiv='Ja'"
Set RecSet = Connect.execute(SQL)

Do While Not RecSet.EOF

ID= RecSet("IDSpelare")
Utskick=Request.Form("checkbox-"&RecSet("IDSpelare")&"")

SQL = "UPDATE Spelare Set Utskick='"&Utskick&"' WHERE IDSpelare=" &ID
Set RecSet = Connect.execute(SQL)
loop
RecSet.MoveNext
...

Men det funkade ju såklart inte, om jag kör Response.Write på SQL så skivs den ju ut som jag vill att den skall köras.
Men det kanske inte funkar att ha två sql igång samtidigt ?

Mvh Marcus


Svara

Sv: Hur jag skall göra så att SQL satserna körs?

Postades av 2002-10-19 11:54:03 - Oskar Johansson

sida1.php är inte en asp-fil!


Svara

Sv: Hur jag skall göra så att SQL satserna körs?

Postades av 2002-10-19 12:05:29 - Marcus Brunzell

Skrev fel... ursäkta!!!
Läste om php innan och det fastnade visst!

Mvh Marcus


Svara

Sv: Hur jag skall göra så att SQL satserna körs?

Postades av 2002-10-19 12:12:19 - Oskar Johansson

döp om det sista recordsetet till recordset2


Svara

Sv: Hur jag skall göra så att SQL satserna körs?

Postades av 2002-10-19 12:34:39 - Marcus Brunzell

Testade det också igår men det ville sig inte. Men får göra ett nytt försök idag då!

Mvh Marcus


Svara

Sv: Hur jag skall göra så att SQL satserna körs?

Postades av 2002-10-19 12:55:06 - Andreas Hillqvist

Vore det inte enklare att skriva:
<code>
Sida1.asp
…
<%
SQL = "SELECT * FROM Spelare Where Aktiv='Ja' ORDER BY Efternamn"
Set RecSet = Connect.execute(SQL)

Do Until RecSet.EOF
%>
…
<input type="checkbox" name="Spelare" value="<%=RecSet("IDSpelare") %>">
…
<%
RecSet.MoveNext
Loop
%>
…
</code>
mottagarsida:
<code>
...
<%
If Len(Request.Form("Spelare")) Then
SQL = "UPDATE Spelare SET Utskick= '1' WHERE Aktiv='Ja' AND IDSpelare IN(" & Request.Form("Spelare") & ")"
Connect.execute(SQL)
Response.Write "Spelare har uppdaterarts!"
Else
Response.Write "Inga markerade!"
End If
...
</code>
Eller om du även skall loopa igenom markerade:
<code>
...
<%
If Len(Request.Form("Spelare")) Then
SQL = "SELECT * FROM Spelare WHERE Aktiv='Ja' AND IDSpelare IN(" & Request.Form("Spelare") & ")"
Set RecSet = Connect.execute(SQL)

Do Until RecSet.EOF
'kod som gör något med spelaren
RecSet.MoveNext
Loop
SQL = "UPDATE Spelare SET Utskick= '1' WHERE Aktiv='Ja' AND IDSpelare IN(" & Request.Form("Spelare") & ")"
Connect.execute(SQL)
...
</code>


Svara

Sv: Hur jag skall göra så att SQL satserna körs?

Postades av 2002-10-22 22:37:59 - Marcus Brunzell

Tack för lösningen Anders!
Använde den första varianten, är kanske inte med på exakt hur den funkar men... det kanske lossnar snart!

Hur skulle det se ut om jag istället skulle ha tre textfält på sida1.asp

Mvh Marcus




Svara

Sv: Hur jag skall göra så att SQL satserna körs?

Postades av 2002-10-23 08:50:11 - Andreas Hillqvist

Sida1.asp
<code>
…
<%
Dim IDSpelare
SQL = "SELECT * FROM Spelare Where Aktiv='Ja' ORDER BY Efternamn"
Set RecSet = Connect.execute(SQL)

Do Until RecSet.EOF
IDSpelare = RecSet("IDSpelare")
%>
…
<input type="checkbox" name="Spelare" value="<%=IDSpelare%>">
<input type="text" name="NickName<%=IDSpelare%>">
<input type="text" name="FirstName<%=IDSpelare%>">
<input type="text" name="LastName<%=IDSpelare%>">
…
<%
RecSet.MoveNext
Loop
%>
…
</code>
.asp
<code>
Function SQLText(Value)
If Len(Value) > 0 Then
SQLText = "'" & Replace(Value, "'", "''") & "'"
Else
SQLText = "Null"
End If
End Function

Dim IDSpelare
If Request.Form("Spelare").Count > 0 Then
For Each IDSpelare In Request.Form("Spelare")
SQL = "UPDATE Spelare SET NickName=" & SQLText(Request.Form("NickName" & IDSpelare)) & ", FirstName=" & SQLText(Request.Form("FirstName" & IDSpelare)) & ", LastName=" & SQLText(Request.Form("LastName" & IDSpelare)) & ", Utskick= '1' WHERE IDSpelare = " & IDSpelare
Connect.execute SQL
Next
Else
Response.Write "Inga markerade!"
End If
</code>


Svara

Nyligen

  • 08:28 Butiksskyltar: Hur upplever utbude
  • 22:31 Slappna av
  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 812
27 960
271 761
502
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies