SQL = "SELECT * FROM adviser WHERE num=" & num
sql=sql&" order by px"
rs.Open SQL,Con,1,3
if rs.recordcount>0 then
rs.pagesize=pagesize
page=request("page")
if isempty(page) then
page=1
end if
page=cint(page)
rs.absolutepage=page
pagecount=rs.pagecount
else
page=1
pagecount=1
end if是不是指这个
sql=sql&" order by px"
rs.Open SQL,Con,1,3
if rs.recordcount>0 then
rs.pagesize=pagesize
page=request("page")
if isempty(page) then
page=1
end if
page=cint(page)
rs.absolutepage=page
pagecount=rs.pagecount
else
page=1
pagecount=1
end if是不是指这个
Dim rs As New ADODB.Recordset
Dim sql As String
Dim fld As ADODB.Field cn.ConnectionString = "Provider=MSOLAP; Datasource=LocalHost; Initial Catalog=FoodMart 2000"
cn.Open sql = "Select [Product:Product Name],[Measures:Store Sales] from Sales"
set rs.ActiveConnection = cn
rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly
MSFlexGrid1.Clear
MSFlexGrid1.AddItem "Product" & Chr(9) & "Value"
Do While (Not rs.EOF)
MSFlexGrid1.AddItem rs.Fields(0).Value & Chr(9) & rs.Fields(1).Value
rs.MoveNext ------
Loop
Dim rs As ADODB.Recordset cn.Provider = "sqloledb"
cn.Properties("Data Source") = "MyServerName"
cn.Properties("Initial Catalog") = "pubs"
cn.Properties("user ID") = "sa"
cn.Properties("password") = ""
cn.OpenCmd.CommandText = "myNextProc"
Cmd.CommandType = adCmdStoredProcSet rs = Cmd.Execute
While Not rs Is Nothing
If (Not rs.EOF) Then
Debug.Print rs(0)
End If
Set rs = rs.NextRecordset
Wend
呵呵
select top 100 a.* from table a where a.key not in (select top 200 b.key from table b)
如果字段中有重复的值用:
select top 100 a.* from (select top 200 * from table order by id dec) a
select top 200 a.* from table a where a.key not in (select top 100 b.key from table b)
如果字段中有重复的值用:
select top 100 a.* from (select top 200 * from table order by id dec) a