ask fyrir 22 árum, 10 mánuðum Fjöldi lestra: 257

Random færslur úr Access með ASP

Titill segir þetta allt ;)

Ég er semsagt að reyna að ná í random færslur úr Access með ASP/VbScript.

Er SQL með eitthvað svona sniðugt SELECT RANDOM 5 FROM tafla.

Hjálp þegin.

 kv.
ask

Senninha fyrir 22 árum, 10 mánuðum

ekki access sql

Fyrra álit

ingig fyrir 22 árum, 10 mánuðum

Þetta er fljótasta leiðin sem ég hef fundið við að finna random greinar í töflu.

//töflulýsing
TABLENAME
——
id
texti

sql = “SELECT * FROM tablename” ‘gerum ráð fyrir 2. fieldum, id og texti
rs.open sql, c
if (not rs.eof) then
  greinar = rs.GetRows ’hleður öllum niðurstöðum í fylki
end if
rs.close

Randomize
rndTala = Int((ubound(greinar, 2) + 1) * Rnd) ‘finnur random tölu, en þó aldrei stærri en fylkið er
id = greinar(0, rndTala) ’fær id
texti = greinar(1, rndTala) 'fær texti

response.write id
response.write texti

ef einhver veit um betri leið þá væri frábært að fá hana

Fyrra álit

[Notanda eytt] fyrir 22 árum, 10 mánuðum

Þetta er hefur alltaf virkað vel fyrir mig ->

-

Query = “SELECT * FROM tblname”
rs.Open Query,sql,3,,adCmdText

Dim intRnd
Randomize
intRnd = (Int(rnd * rsF.RecordCount))

rsF.Move intRnd

 Kv.

Skhyle

Fyrra álit

[Notanda eytt] fyrir 22 árum, 10 mánuðum

úpps …. svona á þetta að vera ….

-

Query = “SELECT * FROM tblname”
rs.Open Query,sql,3,,adCmdText

Dim intRnd
Randomize
intRnd = (Int(rnd * rs.RecordCount))

rs.Move intRnd

 Kv.

Skhyle

Fyrra álit

Senninha fyrir 22 árum, 10 mánuðum

nett!

Fyrra álit

ask fyrir 22 árum, 10 mánuðum

Hún gerir athugasemd við
rs.open sql, c

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/Default.asp, line 27
 kv.
ask

Fyrra álit

ingig fyrir 22 árum, 10 mánuðum

Já þú þarft að búa til c og rs objectið

Set c = Server.CreateObject(“ADODB.Connection”)
Set rs = Server.CreateObject(“ADODB.Recordset”)

'opna c með því að kalla á c.open
'ef þú ert með DataSource
c.open DSNNafn ‘nafnið á DataSourcinum, ODBC tengingin

’ef þú villt sleppa að gera DataSource(DSN-less)
'SQLServer gagnagrunnur
c.open “PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=(local);DATABASE=nafnAGrunni;UID=Notendanafn;PWD=Lykilorð;”

'Access grunnur
c.open “DRIVER=Microsoft Access Driver (*.mdb);UID=admin;FIL=MS Access;DBQ=” & Server.MapPath(“”) & “\grunnur.mdb”

Þú getur þurft að DSN-less tengingu ef þú ert með vefin geymdan þar sem þú kemst ekki í að bæta við DataSource.

Fyrra álit

ask fyrir 22 árum, 10 mánuðum

Þakka þér kærlega.

Ég prófa þetta. kv.
ask

Fyrra álit

ask fyrir 22 árum, 10 mánuðum

Ahh, ég gleymdi
Set rs = Server.CreateObject(“ADODB.Recordset”)

En það var eitt sem ég var að spá sem ég gleymdist að minnast á og það er að ég vill að hún gefi mér þrjár random færslur. Það er að segja:

Titill 2
Titill 8
Titill 23

Hvernig geri ég það? kv.
ask

Fyrra álit

ingig fyrir 22 árum, 10 mánuðum

do while teljari < 3
  'gerir svo random dótið hérna
  teljari = teljari + 1
loop

Fyrra álit

Vefsíðugerð

Vefsíðugerð

Ofurhugar

Stjórnendur

Hverjir eru inni

Korkar - Vefforritun

Random færslur úr Access með ASP

Dýr

Dægurmál

Fræði

Leikir

Lífið

Lífsstíll

Margmiðlun

Menning

Skjár

Sport

Tónlist

Tækni

Vélar

Hugi