Computer Programming Concepts and Visual Basic David I. Schneider

342 Computer Programming Concepts and Visual Basic
is first run, the user should press the command button to clear the text boxes. After that, for each new city
to be entered into the database, the user should fill the text boxes and then press the command button.
Private Sub cmdAddNew_Click()
datCities.Recordset.AddNew
End Sub
Private Sub cmdQuit_Click()
End
End Sub
Object Property Setting
frm12_3_3 Caption Add Cities to MEGACTY2
datCountries Caption Countries
DatabaseName MEGACTY2.MDB
RecordSource Countries
Visible 0 – False
datCities Caption Cities
DatabaseName MEGACTY2.MDB
RecordSource Cities
Visible 0 – False
cmdAddNew Caption Add New City
cmdQuit Caption Quit
lblCity Caption City:
txtCity DataSource datCities
DataField city
lblCountry Caption Country:
dbcCountry DataSource datCities
DataField country
BoundColumn country
RowSource datCountries
ListField country
lblPop1995 Caption 1995 Population:
txtPop1995 DataSource datCities
DataField pop1995
lblPop2015 Caption 2015 Population:
txtPop2015 DataSource datCities
DataField pop2015
[Run, click on the Add New City command button, add the data for a couple of cities, and click
on Quit. Then place the cities table of MEGACTY2.MDB in a FlexGrid to confirm that the
cities have indeed been added.]
Some possible cities to add are:
City country pop1995 pop2015
Jakarta Indonesia 11.5 21.2
Osaka Japan 10.6 10.6
Lagos Nigeria 10.3 24.4
■ CREATING A DATABASE WITH VISUAL DATA MANAGER
You invoke Visual Data Manager (VisData) from Visual Basic by pressing Alt/Add-Ins/Visual
Data Manager. The first two entries of the File menu of VisData are Open Database, used
to view and alter an existing database, and New, used to create a new database. See
Figure 11-3.