HUsing ADO.NET 2.0 with Microsoft Access Databases - Cengage ...
HUsing ADO.NET 2.0 with Microsoft Access Databases - Cengage ...
HUsing ADO.NET 2.0 with Microsoft Access Databases - Cengage ...
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
40 Appendix H Using <strong>ADO</strong>.<strong>NET</strong> <strong>2.0</strong> <strong>with</strong> <strong>Microsoft</strong> <strong>Access</strong> <strong>Databases</strong><br />
Objects, Properties, and Settings:<br />
Object Property Setting<br />
Form1 Name MainForm<br />
Font<br />
Tahoma, 10 point<br />
MaximizeBox<br />
False<br />
Size 547, 361<br />
StartPosition<br />
CenterScreen<br />
Text<br />
Cartwright Industries<br />
Button1 Name exitButton<br />
Location 435, 289<br />
Size 75, 26<br />
Text<br />
E&xit<br />
Code:<br />
' Project name:<br />
' Project purpose:<br />
'<br />
'<br />
'<br />
'<br />
' Created/revised by:<br />
Option Explicit On<br />
Option Strict On<br />
Public Class MainForm<br />
TblItemsDataGridView AutoSizeColumnsMode Fill<br />
Location 12, 37<br />
Size 515, 231<br />
FIGURE H.55<br />
Cartwright Project<br />
The project displays the data<br />
contained in a database. It also<br />
allows the user to add records,<br />
delete records, and save the<br />
changes made to records.<br />
on <br />
Appendix H C5779 39147 Page 40 07/10/06--JHR<br />
Private Sub exitButton_Click(ByVal sender As Object, _<br />
ByVal e As System.EventArgs) Handles exitButton.Click<br />
Me.Close()<br />
End Sub<br />
Private Sub TblItemsBindingNavigatorSaveItem_Click_<br />
(ByVal sender As System.Object, ByVal e As System.EventArgs) _<br />
Handles TblItemsBindingNavigatorSaveItem.Click<br />
Me.Validate()<br />
Me.TblItemsBindingSource.EndEdit()<br />
Me.TblItemsTableAdapter.Update(Me.ItemsDataSet.tblItems)<br />
End Sub<br />
(Figure is continued on next page)