一个SQL查询出来记录过多时如何才能控制

[fanhailin]

比如一个SQL查询出来10 条记录,我只要让它返回一条记录就可以了这样的语句怎么实现
我试过用 Select top 1 from table name 可是没有用

[fanhailin]

补充一点
这个SQL语句是在ORACEL下使用的

[subzero]

select top 1 * from table

[守城小轩]

Select First(*) From Table

[阿建像熊猫]

select top 1 * from 表名 返回第一条
select top 10 percent * from 表名 返回百分之十的。

[flc]

学习

[feiqinfeiwhw]

select top 1 * from 表名 返回第一条
select top 10 percent * from 表名 返回百分之十的。

[zhangqs]

select top 1 * from 表名

这语句有时返回的并不止一条记录，我在ACCESS中有试过，当时我的做法是设一个变量，记录循环移动时，每次给变量加1，直到变量为你想要的值。

[since1990]

up

[golden24kcn]

我写的一个论坛的代码,用的是分页,给你看看吧

'Dim Rst As ADODB.Recordset
Dim RstChild As ADODB.Recordset
Dim SQL As String
Dim I As Integer
Dim J As Integer
Dim Nod As Node
Dim NodChild As String

If lstBBS.Selected = -1 Then Exit Sub
tvwCap.Nodes.Clear
Set RstBBs = Nothing
Set RstBBs = New ADODB.Recordset
RstBBs.CursorLocation = adUseClient
SQL = "select * from bbsmatter where bbsid=" & BBS(lstBBS.Selected)
RstBBs.Open SQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
RstBBs.PageSize = 8

Page = 1
If RstBBs.EOF Then GoTo 1
For I = 1 To RstBBs.PageSize
Set Nod = tvwCap.Nodes.Add(, , "n" & CStr(RstBBs.Fields("id")), RstBBs.Fields("caption") & _
" 发表于" & RstBBs.Fields("date") & " " & RstBBs.Fields("time") & " 阅读" & RstBBs.Fields("reading") & _
" 回复" & RstBBs.Fields("return") & " 作者 " & CStr(RstBBs.Fields("userid")), Val(RstBBs.Fields("imageindex")))
Set RstChild = New ADODB.Recordset
RstChild.CursorLocation = adUseClient
SQL = "select * from bbsreturn where bbsid=" & BBS(lstBBS.Selected) & " and topicid=" & RstBBs.Fields("id")

RstChild.Open SQL, Conn, adOpenStatic, adLockReadOnly, adCmdText

If Not RstChild.EOF Then
For J = 1 To RstChild.RecordCount
NodChild = RstChild.Fields("matter")
If Len(NodChild) > 15 Then NodChild = Mid(NodChild, 1, 12) & "..."
Set Nod = tvwCap.Nodes.Add("n" & CStr(RstBBs.Fields("id")), tvwChild, "r" & CStr(RstBBs.Fields("id")) & "_" & RstChild.Fields("id"), "回复： " _
& NodChild & " 发表于" & RstChild.Fields("date") & " " & RstChild.Fields("time") & _
" 作者 " & CStr(RstChild.Fields("userid")), Val(RstChild.Fields("imageindex")))
RstChild.MoveNext
Next
End If
RstChild.Close
Set RstChild = Nothing
RstBBs.MoveNext
If RstBBs.EOF Then GoTo 1
Next