SELECT antal från ett formulär

5 svar · 208 visningar · startad av Palleman 6 maj 2001

PallemanMedlem sedan dec. 2000557 inlägg

Trådstart6 maj 2001 16:29#1

Hej.

Hur 17 gör jag för att kunna hämta antal poster från databasen som bestäms via ett formulär.

ex.

strAntal = Request.Form("ant")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & db_string
SQL = "SELECT [b]strAntal[/b] * FROM tabell ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)

Jag får bara inte till det... :OO
Anyskäl?

MinOrkMedlem sedan aug. 2000234 inlägg

6 maj 2001 16:37#2

Man kan väl skriva typ:
SELECT TOP 5 * FROM TABELL;

Detta hämtar 5 rader från databasen. Så det blir:
SQLstmt = "SELECT TOP " & strAntal & " FROM TABELL;

PallemanMedlem sedan dec. 2000557 inlägg

6 maj 2001 16:48#3

Hej.

Jo jag trodde också det först, men fick det inte att fungera eftersom jag även ville att man skulle kunna plocka ur ALLA poster ur databasen.

Jag fick köra en liten IF-sats som lade till TOP till strAntal om formuläret var större än 0.

Så nu fungerar det bra. =)

nakozMedlem sedan dec. 1999653 inlägg

6 maj 2001 16:55#4

nja, det blir inte riktigt så... tror du tänkt rätt men skrivit fel

strAntal = Request.Form("ant")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & db_string
SQL = "SELECT TOP "& strAntal &" * FROM tabell ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)

mvh.

WibergMedlem sedan juni 20003 169 inlägg

6 maj 2001 16:56#5

Jag fick köra en liten IF-sats som lade till TOP till strAntal om formuläret var större än 0.

Så påhittigt...

PallemanMedlem sedan dec. 2000557 inlägg

6 maj 2001 17:04#6

nakoz:
Det var mest för att visa var den skulle sitta.

Eftersom strAntal även kunde vara -> <- (inget) så gick det inte att köra så.

Bytte till Querystring istället och körde en IF-sats:

If Request.Querystring("antal") = "" Then
	strAntal = ""
Else
	strAntal = "TOP "& Request.Querystring("antal")
End If

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & db_string
SQL = "SELECT "& strAntal &" * FROM tabell ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)

Så får jag med TOP när det är mer än 0 som ska visas. Så nu går det.

Thanx anyvaj.