Anger antal poster som man vill returnera från databasen. Samma som att ange "SELECT TOP XX ..." i ett sql-uttyck alltså.
Dim rstTemp As ADODB.Recordset
Dim strCnn As String
' Open recordset containing the 10 most expensive
' titles in the Titles table.
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; "
Set rstTemp = New ADODB.Recordset
rstTemp.MaxRecords = 10
rstTemp.Open "SELECT Title, Price FROM Titles " & _
"ORDER BY Price DESC", strCnn, , , adCmdText
------------------
/ Torbjörn Hansson, webbutvecklare/gränssnittsprogrammerare Spetsdata AB
ja, fast med lite modifikation kan det användas av VB script/asp oxå.
Inkludera filen adovbs.inc (följer med pws/iis abra att söka efter den på hd)
Sedan borde detta funka:
Dim rstTemp
Dim strCnn
Dim strSQL
strSQL =SELECT Title, Price FROM Titles " & _
"ORDER BY Price DESC "
' Open recordset containing the 10 most expensive
' titles in the Titles table.
Set strConn = Server.CreateOjbect("ADODB.Connection")
strConn.Open "dsn=min_dsn"
Set rstTemp = Server.CreateObject("ADODB.Recordset")
rstTemp.ActiveConnection = strConn
rstTemp.Source = strSQL
rstTemp.CursorLocation = adUseClient
rstTemp.CursorType = adLockOptimistic
rstTemp.MaxRecords = 10
rstTemp.Open
'formatera ditt recordset för presentation
VIKTIGT!
adovbs.inc måste inkluderas i detta exempel
om man kör en set poster=databas.execute("SELECT") istället bara rakt av först. varför funkar då inte poster.maxrecords=3 om man sätter den före? .. heller inte om man sätter den efter... varför?.
387 ms totalt · 4 externa anrop · v20260731065814-full.1dc6f849