Avatar billede stat2000 Nybegynder
25. april 2001 - 14:20 Der er 5 kommentarer og
3 løsninger

Database tip mangler

Hvordan henter man tilfældig dataer fra en database. og hvis du ved det hvordan henter man så kun f.eks. 10 bogstaver hvor der er 15 ??
Avatar billede no_doubt Nybegynder
25. april 2001 - 14:25 #1
<snip>
åben din db og:
Function RandomRec(a)
arrRecords = rs.Getrows
rs.Close
if not rs.eof
Randomize()
intMaxarr = ubound(arrRecords, 2)
for n = 0 to a
ranRec = Int((intMaxarr+1) * Rnd)
RandomRec = RandomRec & \", \"& arrRecords(2, ranRec)
next
end if
end function

Kald funktionen med RandomRec(a), hvor a er antallet af randomrecords!!
Funktionen returnerer en kommasepareret string, som du nemt kan manipulere med Split-funktionen :O)

<snap> taget fra et andet spm.
Avatar billede doeleman Nybegynder
25. april 2001 - 14:25 #2
Nu nævner du ikke hvilken database du bruger, men prøv følgende:

SELECT * FROM table_name ORDER BY RAND() LIMIT 1
Avatar billede morpheus Nybegynder
25. april 2001 - 14:28 #3
Den der med at hente 10 bogstaver...

Replace(Left(RS(\"Nyhed\"),10)
Avatar billede stat2000 Nybegynder
25. april 2001 - 14:39 #4
>no doubt
Jeg kan ikke helt få det til at virke. Jeg brugere en database med navn data.mdb og tabellen salg. Den skriver bare et 4-cifrede tal ?
Avatar billede stat2000 Nybegynder
25. april 2001 - 14:42 #5
Kan en af jer ikke prøve at samle en hel kode ?
Avatar billede no_doubt Nybegynder
25. april 2001 - 14:44 #6
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"data.mdb\")

for i = 1 to 10 //antal du vil have ud

Set counter = Conn.Execute(\"SELECT Count(*) AS Count FROM salg\")

Set rs = Conn.Execute(\"SELECT * FROM salg\")

If counter(\"Count\") > 0 Then
Randomize()
Move = Int((counter(\"Count\") - 1 + 1) * Rnd + 1) - 1

rs.Move Move
End If
if rs.eof Then
response.write \"Der blev ik fundet noget\" & \"<br>\"
else
Response.Write rs(\"Din kolonne\") & \"<br>\"
end if

Set rs = Nothing
set counter = nothing
next

Conn.Close
Set Conn = Nothing

%>
Avatar billede no_doubt Nybegynder
25. april 2001 - 14:44 #7
er på icq : 92064248
Avatar billede stat2000 Nybegynder
25. april 2001 - 14:56 #8
JEG HAR GIVET POINT TIL ALLE NU !

>NO DOUBT
Tak for hjælpen

..og jer andre !
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



IT-JOB

Normann Copenhagen ApS

Product Data Specialist

Capgemini Danmark A/S

Project Manager

Metroselskabet og Hovedstadens Letbane

BIM Coordinator