تخزين التاريخ من خلال Maskedtextbox1

 

[color= #800000;]Private [color= #800000;]Sub INSERT_Student[color= #66cc66;](ByVal StudentName [color= #800000;]As [color= #800000;]String, ByVal BirthDate [color= #800000;]As [color= #800000;]Date[color= #66cc66;])

        [color= #800000;]Dim Cmd [color= #800000;]As [color= #800000;]New OleDbCommand

        Cmd.[color= #66cc66;]Connection = Cnn

        Cmd.[color= #66cc66;]CommandText = [color= #ff0000;]"INSERT INTO Students(StudentsName,BirthDate) VALUES (?,?)"

        Cmd.[color= #66cc66;]Parameters.[color= #66cc66;]Add[color= #66cc66;]([color= #800000;]New OleDbParameter[color= #66cc66;]([color= #ff0000;]"StudentsName", TextBox1.[color= #66cc66;]Text[color= #66cc66;])[color= #66cc66;])

        Cmd.[color= #66cc66;]Parameters.[color= #66cc66;]Add[color= #66cc66;]([color= #800000;]New OleDbParameter[color= #66cc66;]([color= #ff0000;]"BirthDate", [color= #800000;]Date.[color= #66cc66;]Parse[color= #66cc66;]([color= #800000;]Me.[color= #66cc66;]MaskedTextBox1.[color= #66cc66;]Text[color= #66cc66;])[color= #66cc66;])[color= #66cc66;])

 

        Cnn.[color= #800000;]Open[color= #66cc66;]([color= #66cc66;])

        Cmd.[color= #66cc66;]ExecuteNonQuery[color= #66cc66;]([color= #66cc66;])

        Cnn.[color= #800000;]Close[color= #66cc66;]([color= #66cc66;])

 

        R = T.[color= #66cc66;]NewRow

 

        R[color= #66cc66;]([color= #ff0000;]"StudentsName"[color= #66cc66;]) = TextBox1.[color= #66cc66;]Text

        R[color= #66cc66;]([color= #ff0000;]"BirthDate"[color= #66cc66;]) = MaskedTextBox1.[color= #66cc66;]Text

 

        T.[color= #66cc66;]Rows.[color= #66cc66;]Add[color= #66cc66;](R[color= #66cc66;])

 

        T.[color= #66cc66;]AcceptChanges[color= #66cc66;]([color= #66cc66;])

 

 

    [color= #800000;]End [color= #800000;]Sub