Computer Programming Concepts and Visual Basic David I. Schneider

1995 populations. When the second command button is pressed, the cities are presented in alphabetical
order along with their currencies.
Object Property Setting
Private Sub cmdOrderByPop_Click()
Dim strSQL As String
txtCurrency.DataField = “”
txtCurrency.Text = “”
strSQL = “SELECT * FROM Cities ORDER BY pop1995 ASC”
datCities.RecordSource = strSQL
datCities.Refresh
End Sub
Private Sub cmdQuit_Click()
End
End Sub
Private Sub cmdShowCurrency_Click()
Relational Databases and SQL 335
frmDBMan Caption Database
Management
cmdOrder Caption Order by
ByPop Population
cmdShow Caption Show
Currency Currency
cmdQuit Caption Exit
datCities Caption Large World Cities
Database MEGACTY2.MDB
Name
Record Cities
Source
lblCity Caption City:
txtCity Data datCities
Source
DataField city
Text (blank)
lblCountry Caption Country:
txtCountry Data datCities
Source
DataField country
Text (blank)
lblPopulation Caption 1995
Population:
txtPopulation Data datCities
Source
DataField pop1995
Text (blank)
lblCurrency Caption Currency:
txtCurrency Data datCities
Source
Text (blank)
Dim strSQL As String
strSQL = “SELECT city, Cities.country, Cities.pop1995, currency ” & _ “FROM
Cities INNER JOIN Countries ” & _ “ON
Cities.country=Countries.country “ & ”ORDER BY city ASC”
datCities.RecordSource = strSQL
datCities.Refresh txtCurrency.DataField = “currency”
End Sub