PowerPoint Presentation (ADOworkwith)
DonorFind
Public Class
frmDonorCode
Inherits
System.Windows.Forms.Form
Dim donorDT As New DataTable
Dim
rowIndx As Integer
Private Sub frmDonorCode_Load(ByVal sender
As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
Dim connStr As String =
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =
C:\VBver6\VB98\Access2000\donor.mdb"
Dim sqlStr As String =
"Select * from Donor2000"
Dim dataAdapter As New
OleDb.OleDbDataAdapter(sqlStr, connStr)
dataAdapter.Fill(donorDT)
dataAdapter.Dispose()
FillTextBoxes()
End Sub
Sub FillTextBoxes()
txtDIdno.Text = CStr(donorDT.Rows(rowIndx)("DIdno"))
txtDName.Text = CStr(donorDT.Rows(rowIndx)("DName"))
End Sub
Private Sub btnReadNext_Click(ByVal sender
As System.Object, ByVal
e As System.EventArgs) Handles
btnReadNext.Click
If rowIndx <
donorDT.Rows.Count - 1 Then
rowIndx = rowIndx + 1
FillTextBoxes()
Else
rowIndx = 0
FillTextBoxes()
End If
End Sub
Private Sub btnFind_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnFind.Click
Dim searchIndx As Integer
Dim toFindName As String
Dim foundName As Boolean = False
toFindName = InputBox("Enter name you are searching
for", "Search")
Do While
searchIndx < donorDT.Rows.Count And
foundName = False
If CStr(donorDT.Rows(searchIndx)("DName")) =
toFindName Then
foundName = True
rowIndx = searchIndx
Else
searchIndx = searchIndx + 1
End If
Loop
If foundName = True Then
FillTextBoxes()
Else
txtDIdno.Text = ""
txtDName.Text = "Name Not Found"
End If
End Sub
End Class
Bindonclick Project
Public Class
frmBindonClick
Inherits
System.Windows.Forms.Form
Dim rowIndx As Integer
Dim
donorDT As New
DataTable
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnNext.Click
If rowIndx <
donorDT.Rows.Count - 1 Then
rowIndx = rowIndx + 1
FillTextBoxes()
Else
rowIndx = 0
FillTextBoxes()
End If
End Sub
Sub FillTextBoxes()
txtDIdno.Text = CStr(donorDT.Rows(rowIndx)("DIdno"))
txtDName.Text = CStr(donorDT.Rows(rowIndx)("DName"))
End Sub
Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnLoad.Click
dataAdapter.Fill(donorDT)
FillTextBoxes()
End Sub
End Class
Module modLoad
Public connStr As String =
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =
C:\VBver6\VB98\Access2000\donor.mdb"
Public sqlStr As String =
"Select * from Donor2000"
Public dataAdapter As New
OleDb.OleDbDataAdapter(sqlStr, connStr)
End
Module
DonorFormSQL Project
Public Class
frmDonorCode
Inherits
System.Windows.Forms.Form
Dim donorDT As New DataTable
Dim
rowIndx As Integer
Private Sub frmDonorCode_Load(ByVal sender
As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
Dim currpath As String =
System.Environment.CurrentDirectory
Dim connStr As String =
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = " & currpath &
"\donor.mdb"
'MsgBox(currpath)
'MsgBox(connStr)
Dim sqlStr As String =
"Select DIdno, DName from Donor2000 where DIdno > " & _
"'22222'"
'Dim sqlStr As String =
"Select DIdno, DZip from Donor2000 where DZip > " & _
' "'02700'"
MsgBox(sqlStr)
Dim dataAdapter As New
OleDb.OleDbDataAdapter(sqlStr, connStr)
dataAdapter.Fill(donorDT)
dataAdapter.Dispose()
FillTextBoxes()
End Sub
Sub FillTextBoxes()
txtDIdno.Text = CStr(donorDT.Rows(rowIndx)("DIdno"))
txtDName.Text = CStr(donorDT.Rows(rowIndx)("DName"))
End Sub
Private Sub btnReadNext_Click(ByVal sender
As System.Object, ByVal
e As System.EventArgs) Handles
btnReadNext.Click
If rowIndx <
donorDT.Rows.Count - 1 Then
rowIndx = rowIndx + 1
FillTextBoxes()
Else
rowIndx = 0
FillTextBoxes()
End If
End Sub
End Class
SQLdiff Project
Public Class
frmDiffSQL
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()
DaAll.Fill(DsStudent1)
currMang = Me.BindingContext(DsStudent1,
"tablestu")
End Sub
Private Sub btnCI_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnCI.Click
DsStudent1.Clear()
DaCI.Fill(DsStudent1)
currMang = Me.BindingContext(DsStudent1,
"tablestu")
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 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
End Class
SQLdiffcode
Project
Public Class
frmSQLdiff
Inherits
System.Windows.Forms.Form
Dim stuDT As New DataTable
Dim rowIndx As Integer
Private Sub btnAll_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnAll.Click
Dim currpath As String =
System.Environment.CurrentDirectory
Dim connStr As String =
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = " & currpath &
"\stu2000.mdb"
Dim sqlStr As String =
"Select * from tablestu"
Dim dataAdapter As New
OleDb.OleDbDataAdapter(sqlStr, connStr)
stuDT.Clear()
dataAdapter.Fill(stuDT)
FillTextBoxes()
End Sub
Sub FillTextBoxes()
txtIdno.Text = CStr(stuDT.Rows(rowIndx)("Idno"))
txtName.Text = CStr(stuDT.Rows(rowIndx)("Name"))
txtMajor.Text = CStr(stuDT.Rows(rowIndx)("Major"))
End Sub
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnNext.Click
If rowIndx <
stuDT.Rows.Count - 1 Then
rowIndx = rowIndx + 1
FillTextBoxes()
Else
rowIndx = 0
FillTextBoxes()
End If
End Sub
Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnFirst.Click
rowIndx = 0
FillTextBoxes()
End Sub
Private Sub btnLast_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnLast.Click
rowIndx = stuDT.Rows.Count - 1
FillTextBoxes()
End Sub
Private Sub btnPrevious_Click(ByVal sender
As System.Object, ByVal
e As System.EventArgs) Handles
btnPrevious.Click
If rowIndx > 0 Then
rowIndx = rowIndx - 1
FillTextBoxes()
Else
rowIndx = 0
FillTextBoxes()
End If
End Sub
Private Sub btnCI_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btnCI.Click
Dim currpath As String =
System.Environment.CurrentDirectory
Dim connStr As String =
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source = " & currpath &
"\stu2000.mdb"
Dim sqlStr As String =
"Select * from tablestu where major = " & _
"'CI'"
Dim dataAdapter As New
OleDb.OleDbDataAdapter(sqlStr, connStr)
stuDT.Clear()
dataAdapter.Fill(stuDT)
FillTextBoxes()
End Sub
End Class
Donortwotables Project
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