ADOgridcode

Public Class frmGridCode

Inherits System.Windows.Forms.Form

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

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

Dim sqlStr As String = "Select idno, name, major, city, state, gpa, yrentered, credits from tablestu order by idno"

Dim daStudent As New OleDb.OleDbDataAdapter(sqlStr, conStudent)

Dim cbStudent As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(daStudent)

Dim studentDT As New DataTable

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

daStudent.Fill(studentDT)

dgdStudent.DataSource = studentDT

End Sub

Private Sub btnWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWrite.Click

Dim cellHold As DataGridCell = dgdStudent.CurrentCell

If dgdStudent.CurrentRowIndex > 0 Then

dgdStudent.CurrentCell = New DataGridCell(0, 0)

Else

dgdStudent.CurrentCell = New DataGridCell(1, 0)

End If

daStudent.Update(studentDT)

dgdStudent.CurrentCell = cellHold

End Sub

End Class

VBSQL

Public Class frmSQLsort

Inherits System.Windows.Forms.Form

Dim currMang As CurrencyManager

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

currMang.Position += 1

End Sub

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

'daStudent.Fill(DsStudent1)

'currMang = Me.BindingContext(DsStudent1, "tablestu")

End Sub

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click

currMang.Position = 0

End Sub

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

currMang.Position -= 1

End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click

currMang.Position = currMang.Count - 1

End Sub

Private Sub btnAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAll.Click

daStudent.Fill(DsStudent1)

currMang = Me.BindingContext(DsStudent1, "tablestu")

End Sub

End Class

VBSQL2

Public Class frmSQL2

Inherits System.Windows.Forms.Form

Dim currMang As CurrencyManager

Private Sub btnAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAll.Click

DsStudent1.Clear()

daStudent.Fill(DsStudent1)

currMang = Me.BindingContext(DsStudent1, "tablestu")

End Sub

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click

currMang.Position = 0

End Sub

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

currMang.Position -= 1

End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click

currMang.Position = currMang.Count - 1

End Sub

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

currMang.Position += 1

End Sub

Private Sub btnState_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnState.Click

DsStudent1.Clear()

daState.Fill(DsStudent1)

currMang = Me.BindingContext(DsStudent1, "tablestu")

End Sub

End Class

ADOtwotables

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

Donor2dragcombo

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

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

Twogrids

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)

sqlDonation = "Select DIdno, DDriveNo, DDateCont, DAmtCont from Donation2000 where DIdno = " & "currDonor"

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