Imports System.Data.OleDb

Public Class SMTDateSite

Inherits System.Windows.Forms.UserControl

Public Sub LoadExamDates(ByVal strSQL As String)

'************ Open The DataReader ************************************************************

'1. Create a connection

Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & mDatabaseLocation)

'2. Create the command object, passing in the SQL string

Dim objCommand As New OleDbCommand(strSQL, objConn)

objConn.Open()

Dim objDR As OleDbDataReader = objCommand.ExecuteReader

'**********************************************************************************************

cmbStart.Items.Clear()

cmbEnd.Items.Clear()

lblDate.Text = "Please Wait, Loading Dates..."

System.Windows.Forms.Application.DoEvents()

Do While objDR.Read

System.Windows.Forms.Application.DoEvents()

Dim d As Date

d = objDR.Item("ExamDate")

cmbStart.Items.Add(d.ToShortDateString)

cmbEnd.Items.Add(d.ToShortDateString)

Loop

objDR.Close()

objConn.Close()

lblSite.Text = "Date Range..."

System.Windows.Forms.Application.DoEvents()

End Sub

Public Sub LoadSiteCodes(ByVal strSQL As String)

'************ Open The DataReader ************************************************************

'1. Create a connection

Dim objConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & mDatabaseLocation)

'2. Create the command object, passing in the SQL string

Dim objCommand As New OleDbCommand(strSQL, objConn)

objConn.Open()

Dim objDR As OleDbDataReader = objCommand.ExecuteReader

'**********************************************************************************************

cmbSite.Items.Clear()

lblSite.Text = "Please Wait, Loading Sites..."

System.Windows.Forms.Application.DoEvents()

Do While objDR.Read

System.Windows.Forms.Application.DoEvents()

cmbSite.Items.Add(objDR.Item("SiteCode") & " - " & objDR.Item("City") & "")

Loop

objDR.Close()

objConn.Close()

lblSite.Text = "SiteCode"

System.Windows.Forms.Application.DoEvents()

End Sub

'StartDate Text Property....

Private mDate1Text As String

Public Property Date1Text() As String

Get

Date1Text = mDate1Text

End Get

Set(ByVal Value As String)

mDate1Text = Value

cmbStart.Text = Value

End Set

End Property

'EndDate Text Property....

Private mDate2Text As String

Public Property Date2Text() As String

Get

Date2Text = mDate2Text

End Get

Set(ByVal Value As String)

mDate2Text = Value

cmbEnd.Text = Value

End Set

End Property

'SiteCode Text Property....

Private mSiteText As String

Public Property SiteText() As String

Get

SiteText = mSiteText

End Get

Set(ByVal Value As String)

mSiteText = Value

cmbSite.Text = Value

End Set

End Property

'SiteLabel Text Property....

Private mSiteLabelText As String = "Site Code..."

Public Property SiteLabelText() As String

Get

SiteLabelText = mSiteLabelText

End Get

Set(ByVal Value As String)

mSiteLabelText = Value

lblSite.Text = Value

End Set

End Property

'DateLabel Text Property....

Private mDateLabelText As String = "Date Range..."

Public Property DateLabelText() As String

Get

DateLabelText = mDateLabelText

End Get

Set(ByVal Value As String)

mDateLabelText = Value

lblDate.Text = Value

End Set

End Property

'Database Location Property

Private mDatabaseLocation As String = "J:\can\isc2\cp.mdb" 'isc2 is the default location.

Public Property DatabaseLocation() As String

Get

DatabaseLocation = mDatabaseLocation

End Get

Set(ByVal Value As String)

mDatabaseLocation = Value

End Set

End Property

Private Sub cmbSite_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSite.SelectedIndexChanged

'When the user selects a site from the dropdown, update the SiteText Property...

mSiteText = cmbSite.Text

End Sub

Private Sub cmbStart_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbStart.SelectedIndexChanged

'When the user selects a StartDate from the dropdown, update the Date1Text Property...

mDate1Text = cmbStart.Text

End Sub

Private Sub cmbEnd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbEnd.SelectedIndexChanged

'When the user selects a EndDate from the dropdown, update the Date2Text Property...

mDate2Text = cmbEnd.Text

End Sub

End Class