Get the top 5 percent : SQL Select « Access « VBA / Excel / Access / Word

Get the top 5 percent

 
Sub CreateRst_WithSQL()
   Dim conn As ADODB.Connection
   Dim myRecordset As ADODB.Recordset
   Dim strConn As String

   strConn = "Provider = Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & CurrentProject.Path & _
      "\mydb.mdb"

   Set conn = New ADODB.Connection
   conn.Open strConn

   Set myRecordset = conn.Execute("SELECT TOP 5 * FROM Products ORDER BY UnitPrice DESC ")
   Do Until myRecordset.EOF
       For Each fld In myRecordset.Fields
          Debug.Print fld.Name & "=" & fld.Value
       Next fld
       myRecordset.MoveNext
   Loop

   
   myRecordset.Close
   Set myRecordset = Nothing
   conn.Close
   Set conn = Nothing
End Sub

Related examples in the same category

1.	Using Date field type in select statement
2.	You must use a pound symbol (#) when delimiting dates for Microsoft Access, like this:
3.	Loop through the ResultSet after executing select statement
4.	Creating a Select Query with ActiveX Data Objects
5.	Executing a Select Query
6.	Modifying a Select Query
7.	Get only one column
8.	Get more than one column
9.	Select all columns
10.	Use IN in select statement
11.	Use IN and like in where clause
12.	Use Date function in where clause
13.	Use between and with number type column
14.	Use Is NULL to check if a column is null
15.	Use Not In
16.	Use Between And
17.	Use 'Is not null'
18.	Use 'Select all'
19.	Order the resultset with Order by clause
20.	Get DISTINCT records
21.	Get DISTINCTROW
22.	Get the top 10 percent
23.	Order record in a decscending order
24.	Add where clause to the select statement
25.	Use and to combine conditions
26.	Use wild card character in link
27.	Use where clause and order by clause together
28.	Order by two fields
29.	use SUM in sql statement