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


Visa all info men inte om värdes 0 finns

Postades av 2004-12-30 11:59:25 - Tommy Lindblom, i forum asp - allmänt, Tråden har 1 Kommentarer och lästs av 368 personer

om jag har ett fält "visa" i en access databas med ett värdet 0 så vill jag inte att OrderID raden skrivs ut/visas, ändrar jag till värde 1 så skall den visas/listas på sidan, hur skall jag lättas fixa det om jag använder mig av detta:

<code><%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("modell/DB/orders.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM TFT WHERE Model ORDER BY OrderID desc"
if request.querystring("sort")="sok" then
Addera = "SELECT * FROM TFT WHERE Model LIKE '%%" & Request.Form("sok") & "%%' "
else
IF request.querystring("sort")&""<>"" then
Addera = "SELECT * FROM TFT WHERE Model LIKE '"&request.querystring("sort")&"%'"
end if
end if
rs.Open Addera, Connect, 3, 3
if request.QueryString("action")="tabort" then
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM TFT where OrderID ="&request.QueryString("OrderID")

rs.Open Addera, Connect, 3, 3
rs.delete
rs.update
response.redirect "default.asp"
end if

IF Request.QueryString("action")="tabortx" THEN
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath("..\file\") &"\"& rs("pdf"))
fileObject.Delete
Set fileObject = Nothing

Set fileObject = fso.GetFile(Server.MapPath("..\file\") &"\"& rs("img"))
fileObject.Delete
Set fileObject = Nothing
Set fso = Nothing

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.JET.OLEDB.4.0; Data Source="& Server.MapPath("modell/DB/orders.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open
Addera = "SELECT * From TFT WHERE OrderID ="& request.QueryString("OrderID")
Connect, 1, 3
RecSet.Delete
RecSet.Update
RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing
END IF

%></code>

/Tommy


Svara

Sv: Visa all info men inte om värdes 0 finns

Postades av 2004-12-30 12:48:11 - Anna-Karin Söderberg

Hmm, ser inte att du skriver ut någonstans, men..

<code>
IF dittRS("Visa") = true THEN ' vi ska visa så skriv ut
Response.write "OrderID =" & RS("OrderID")
END IF
</code>

Om du däremot inte vill hämta de som inte ska visas så hämtar du de som är true i selectsatsen
<code>
strSQL ="SELECT * FROM tabell WHERE visa = true"
</code>


//Anna-Karin


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 783
27 960
271 761
635
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