Visual Basic

Imports System.Drawing.Printing<br />
<br />
<br />
Public Class Form2<br />
    Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
       "Data Source =" & Application.StartupPath & "\ITDSS.mdb"<br />
    Public con As New OleDbConnection(ConStr)<br />
    Dim DataSet1, course As New DataSet<br />
    'Dim SQLstr = "SELECT SectionID,Type,Group,TeacherID from [Section]"<br />
    Dim SQLstr = "SELECT DISTINCT  s.LevelNo, c.CourseID,c.SectionID,c.Type,c.Group, r.RoomID FROM [Section] c,Course s,[Slot] r  where s.CourseID=c.CourseID and c.SectionID=r.SectionID  ORDER BY s.LevelNo" ' in(select CourseID from Course  Where LevelNo=1)" 's,Course c WHERE s.CourseID = c.CourseID ORDER BY c.LevelNo"<br />
<br />
    Dim DataAdapter1 As New OleDb.OleDbDataAdapter(SQLstr, con)<br />
<br />
    '----------------------===============================<br />
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Dim SQLstr, SQLstr1 As String<br />
<br />
        'Dim DataSet1, course As New DataSet<br />
        'SQLstr = "SELECT SectionID,Type,Group from [Section]"<br />
        Con.Open()<br />
<br />
        'DataAdapter1 = New OleDb.OleDbDataAdapter(SQLstr, con)<br />
<br />
<br />
        DataAdapter1.Fill(DataSet1, "Section")<br />
<br />
        Me.DataBindings.Add("text", DataSet1, "Section.SectionID")<br />
<br />
        DataGridView1.DataSource = DataSet1<br />
        DataGridView1.DataMember = "Section"<br />
<br />
<br />
        Dim bmb As BindingManagerBase<br />
        bmb = Me.BindingContext(DataSet1, "Section")<br />
        bmb.Position = bmb.Count<br />
        bmb.Position = 0<br />
         end sub

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click<br />
        Dim CmdB As New OleDb.OleDbCommandBuilder(DataAdapter1)<br />
        DataAdapter1.Update(DataSet1, "Section")<br />
<br />
    End Sub<br />
End Class

Public Class RegExTextBox<br />
Inherits from Windows.Forms.TextBox<br />
<br />
Private _sRegEx As String<br />
<br />
Public Property RegularExpression() As String<br />
Get<br />
Return _sRegEx<br />
End Get<br />
Set(ByVal Value As String)<br />
_sRegEx<br />
End Set<br />
End Property<br />

Private Sub RegExTextBox_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Leave<br />
        If Not System.Text.RegularExpressions.Regex.IsMatch(MyBase.Text, _sRegularExpression) Then<br />
            Throw New TextDoesNotMatchRegularExpressionException()<br />
        End If<br />
    End Sub

Public ReadOnly Property IsValidText() As Boolean<br />
        Get<br />
            Return System.Text.RegularExpressions.Regex.IsMatch(MyBase.Text, _sRegularExpression)<br />
        End Get<br />
    End Property