Assignment: I want you to do the research to understand what is happening in this program and then I want you to write a detailed explanation on a line-by-line basis explaining the code. There are many ways this could have been done so I would also find it interesting if you made suggestions on how the code could have been handled differently.

Project: Donor2CodeCombo

The zipped version of this project is saved as Donor2CodeComboX05zip.zip and is available at:

http://www.pgrocer.net/Cis67/examples/Donor2CodeComboX05zip.zip

Public Class frmRelate

Inherits System.Windows.Forms.Form

Dim Loaded As Boolean

Dim conDonor As System.Data.OleDb.OleDbConnection

Dim daDonor As System.Data.OleDb.OleDbDataAdapter

Dim dsDonor1 As New DataSet

Dim dvDonor As System.Data.DataView

Dim daDonation As System.Data.OleDb.OleDbDataAdapter

Dim dsDonation1 As New DataSet

Dim dvDonation As System.Data.DataView

Private Sub frmRelate_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim InitRowFilter As String

Dim currpath As String = System.Environment.CurrentDirectory

Dim conStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source = " & currpath & "\donor.mdb"

Dim conDonor As New OleDb.OleDbConnection(conStr)

'conDonor.Open()

daDonor = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM Donor2000", conDonor)

daDonor.Fill(dsDonor1)

daDonation = New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM Donation2000", conDonor)

daDonation.Fill(dsDonation1)

dvDonor = New System.Data.DataView(dsDonor1.Tables(0))

dvDonation = New System.Data.DataView(dsDonation1.Tables(0))

cboDonor.DataSource = DsDonor1.Tables(0)

cboDonor.ValueMember = "DIdno"

cboDonor.DisplayMember = "DName"

dvDonation.RowFilter = "DIdno = " & cboDonor.SelectedValue

dgdDonation.DataSource = dvDonation

'conDonor.Close()

Loaded = True

End Sub

Private Sub cboDonor_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboDonor.SelectedIndexChanged

If Loaded Then

dvDonation.RowFilter = "DIdno = " & cboDonor.SelectedValue

dgdDonation.DataSource = dvDonation

End If

End Sub

End Class