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


Randomisera fram 4 rader?

Postades av 2001-03-24 00:57:00 - Joel , i forum databaser, Tråden har 10 Kommentarer och lästs av 772 personer

Hej!
Står inför ett stort problem här(tyckar jag alltså) jo..så här ligger det till..
Jag vill få fram 4 rader ur en access databas (randomiserat) med ett vilkor(att kolumnen FotoVar ska vara true)..så här ser min nuvarande kod ut!:

<%

Visa = "SELECT ID,FotoVar FROM Medlemmar where FotoVar =True"
rstMedlemmar.Open Visa, Connect, adOpenStatic, adLockOptimistic

Do Until rstMedlemmar.EOF
Talet = Talet + 1
rstMedlemmar.MoveNext
Loop

Randomize
Slumptal = Int(Rnd * Talet + 1)

Slumptal2 = Slumptal
Do Until Not Slumptal2 = Slumptal
Randomize
Slumptal2 = Int(Rnd * Talet + 1)
Loop
Response.Write Slumptal2


rstMedlemmar.Close

%>


Svara

Sv: Randomisera fram 4 rader?

Postades av 2001-03-24 12:53:00 - ulf johannesson

Du har "SELECT ID,FotoVar FROM Medlemmar where FotoVar =True"
Jag antar att ID är någon form av räknare, då går det ju bra att slumpa fram id och sätta SELECT... WHERE (ID=... OR ID=...) AND FotoVar =True


Svara

Sv: Randomisera fram 4 rader?

Postades av 2001-03-24 22:55:00 - Joel

Jovisst, men hur slumpar jag fram ett Id då? kör jag med nuvarande kod så slumpar den fram ett id från 1-4 då det finns 4 rader i databasen som motsvarar vilkoret FotoVar = true men sen då? hur väljer jag nån av dessa? de kan ju faktist vara 1,12,20 och 45!

MVH
///Joel


Svara

Sv: Randomisera fram 4 rader?

Postades av 2001-03-26 07:47:00 - ulf johannesson

Kanske en matris, matris(index,text) där du slumpar på index.


Svara

Sv: Randomisera fram 4 rader?

Postades av 2001-03-26 16:06:00 - Joel

Har du nått kodexempel?

MVH
///Joel


Svara

Sv: Randomisera fram 4 rader?

Postades av 2001-03-26 23:23:00 - ulf johannesson

Dim vektor(25),i,slumpTal
Randomize
For i=0 to 25
vektor(i)=(i+65) & " : " & Chr(i+65)
Response.Write vektor(i) & "<br>"
Next
Response.Write "<br><br>**********<br><br>"
For i =1 to 10
slumpTal = Int(Rnd * 25 + 1)
Response.Write vektor(slumpTal) & "<br>"
Next


Samt kod för att kolla dubletter


Svara

Sv: Randomisera fram 4 rader?

Postades av 2001-03-26 23:47:00 - Joel

Okej..men om vi säger att ID nr: 1,5,7 och 14 i databasen innehåller en bild.. hur gör jag för att den ska slumpa mellan dessa nummer och inte mellan 4 nummder, dvs 0-4 eller 1-4 ?

mvh
Joel


Svara

Sv: Randomisera fram 4 rader?

Postades av 2001-03-27 07:34:00 - ulf johannesson

vektor(0)="1 bild"
vektor(1)="5 bild"
vektor(2)="7 bild"
vektor(3)="14 bild"

Slumpa på index i vektorn.


Svara

Sv: Randomisera fram 4 rader?

Postades av 2001-03-27 16:08:00 - Joel

Okej.. hur kopplar jag detta till en tabell med villkoret FotoVar = True?
Sorry..du börjar nog tröttna på mej nu =)

mvh
Joel


Svara

Sv: Randomisera fram 4 rader?

Postades av 2001-03-27 21:22:00 - ulf johannesson

<table border=1 cellpadding=3 >
<tr><td>Text till bild 1</td><td><%=vektor(0)%></td></tr>
<tr><td>Text till bild 2</td><td><%=vektor(1)%></td></tr>
<tr><td>Text till bild 3</td><td><%=vektor(2)%></td></tr>
<tr><td>Text till bild 4</td><td><%=vektor(3)%></td></tr>
</table>


Svara

Sv: Randomisera fram 4 rader?

Postades av 2001-03-27 21:30:00 - Joel

Jojo,, så långt är jag med..men hur gör jag för att den ska randomizera ur ett recordsett? alltså ta numren ur en databas?
*snurrigt* =D

mvh
Joel


Svara

Nyligen

  • 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
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

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 704
27 958
271 750
868
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