Donortwotables Project (Presentation is ADOmultiple)

Public Class frmTwoTables

Inherits System.Windows.Forms.Form

Dim conDonorDB As String

Dim donorDS As New DataSet

Dim sqlDonor As String

Dim sqlDonation As String

Dim sqlMatchDonation As String

Dim rowIndx As Integer

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

conDonorDB = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source = C:\VBver6\VB98\Access2000\donor.mdb"

sqlDonor = "Select DIdno, DName from Donor2000"

sqlDonation = "Select DIdno, DDriveNo, DDateCont, DAmtCont from Donation2000 order by DIdno"

Dim daDonor As New OleDb.OleDbDataAdapter(sqlDonor, conDonorDB)

Dim daDonation As New OleDb.OleDbDataAdapter(sqlDonation, conDonorDB)

daDonor.Fill(donorDS, "Donor2000")

daDonation.Fill(donorDS, "Donation2000")

FillTextBoxes()

dgdDonation.DataSource = donorDS.Tables(1)

daDonor.Dispose()

daDonation.Dispose()

End Sub

Sub FillTextBoxes()

txtDIdno.Text = CStr(donorDS.Tables(0).Rows(rowIndx)("DIdno"))

txtDName.Text = CStr(donorDS.Tables(0).Rows(rowIndx)("DName"))

End Sub

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click

If rowIndx < donorDS.Tables(0).Rows.Count - 1 Then

rowIndx = rowIndx + 1

FillTextBoxes()

Else

rowIndx = 0

FillTextBoxes()

End If

End Sub

Private Sub btnMatch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMatch.Click

Dim RowFilter As String = "DIdno = '" & txtDIdno.Text & "'"

Dim dvDonation As DataView = New DataView(donorDS.Tables("Donation2000"), _

RowFilter, "DIdno", DataViewRowState.CurrentRows)

dgdDonation.DataSource = dvDonation

End Sub

Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click

If rowIndx = 0 Then

FillTextBoxes()

Else

rowIndx = rowIndx - 1

FillTextBoxes()

End If

End Sub

End Class

Twogrids Project

Public Class frm2grids

Inherits System.Windows.Forms.Form

Dim conDonorDB As String

Dim donorDS As New DataSet

Dim sqlDonor As String

Dim sqlDonation As String

Dim sqlMatchDonation As String

Dim rowIndx As Integer

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

conDonorDB = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source = C:\VBver6\VB98\Access2000\donor.mdb"

sqlDonor = "Select DIdno, DName, DCity, DState from Donor2000"

sqlDonation = "Select DIdno, DDriveNo, DDateCont, DAmtCont from Donation2000 order by DIdno"

Dim daDonor As New OleDb.OleDbDataAdapter(sqlDonor, conDonorDB)

Dim daDonation As New OleDb.OleDbDataAdapter(sqlDonation, conDonorDB)

daDonor.Fill(donorDS, "Donor2000")

daDonation.Fill(donorDS, "Donation2000")

grdDonor.DataSource = donorDS.Tables(0)

grdDonation.DataSource = donorDS.Tables(1)

End Sub

Private Sub btnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProcess.Click

Dim currDonor As String

'currDonor = InputBox("Enter number for donor", "Donor")

currDonor = grdDonor.Item(grdDonor.CurrentCell)

Dim RowFilter As String = "DIdno = '" & currDonor & "'"

Dim dvDonation As DataView = New DataView(donorDS.Tables("Donation2000"), _

RowFilter, "DIdno", DataViewRowState.CurrentRows)

grdDonation.DataSource = dvDonation

End Sub

End Class

Donor2dragcombo Project

Public Class frmRelate

Inherits System.Windows.Forms.Form

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

daDonor.Fill(DsDonor1)

daDonation.Fill(DsDonation1)

End Sub

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

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

dgdDonation.DataSource = dvDonation

End Sub

End Class

CombinewithSQL project

Public Class frmAllDonor

Inherits System.Windows.Forms.Form

Dim conDonorDB As String

Dim sqlDonor As String

Dim dsDonorDB As New DataSet

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

conDonorDB = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source = C:\VBver6\VB98\Access2000\donor.mdb"

sqlDonor = "Select DName, DDriveName, DAmtCont from Donor2000, Donation2000, Drive2000 Where Donor2000.DIdno = Donation2000.DIdno and Donation2000.DDriveNo = Drive2000.DDriveNo"

'sqlDonor = "Select * from Donor2000"

Dim daDonorDB As New OleDb.OleDbDataAdapter(sqlDonor, conDonorDB)

daDonorDB.Fill(dsDonorDB)

dgdDonorDB.DataSource = dsDonorDB.Tables(0)

End Sub