ask fyrir 23 árum, 5 mánuðum Fjöldi lestra: 259

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 23 árum, 5 mánuðum

ekki access sql

Fyrra álit

ingig fyrir 23 árum, 5 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 23 árum, 5 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 23 árum, 5 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 23 árum, 5 mánuðum

nett!

Fyrra álit

ask fyrir 23 árum, 5 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 23 árum, 5 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 23 árum, 5 mánuðum

Þakka þér kærlega.

Ég prófa þetta. kv.
ask

Fyrra álit

ask fyrir 23 árum, 5 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 23 árum, 5 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