Wednesday, April 9, 2014

Dear DIT students

Kindly be informed the revised venue for final exam:-

Visual Basic - venue change from 3.01 to 3.03

Monday, March 24, 2014

Validation check coding

Validation Code for Text Boxes

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If IsNumeric(Text1.Text) Then
            MsgBox "Please Enter text only.", vbInformation
            Text1.Text = " "
            Text1.SetFocus
           
            Else
            Text2.SetFocus
           
            End If
            End If
           
End Sub

Friday, March 21, 2014

Warning !!!!

Dear Students


If your name is listed below, kindly submit your assignment by next week Tuesday (25 April 2014)

This is last reminder and i don't want to entertain you after Tuesday.

Advanced Database Design - No Sumission of Assignment


ABIGAIL PRIYATHARSINI RAMESH
AHMAD SHAFFIQ BIN AHMAD SUHAIMI
ARIX KONG SU SHANG
ARVINDRAN A/L SERIDARAN
BANU A/P NARAINASAMY
DANIEL PILLAI A/L AROOLSAMY
DENISHWARY A/P MOORTHY
JOHNRINDER SINGH A/L RANJIT SINGH
KALAIVANI A/P SUNGRASAMY
KESAVARTHINI A/P NEELA UTHAMAN
MOHAMAD SYAFIQ BIN MAT TAJUDIN
MUHAMAD FARID HAMIMI BIN TARMIZI
NANTHINI A/P KANDASAMY
NISHALINI A/P AMBALAVANAN
SAKTHIVEL A/L MURUKANATHAM
SELVATHIRU A/L M CHANDRAN
SHARMA A/L RAJASEKARAN
SHARVIND SHAM A/L GOVINDASAMY
SURESH A/L ALAGAPPAN
THINESH KUMAR A/L VELLAYAN
VIMELRAJ A/L UTHAYASURIYAN
WAN HALIMAH BINTI WAN DERAMAN

NO SUBMISSION FOR DATABASE MANAGEMENT ASSIGNMENT - LAST WARNING


ARVINDRAN A/L SERIDARAN
BANU A/P NARAINASAMY
DANIEL PILLAI A/L AROOLSAMY
DEEVAVARTHINI A/P MEGANATHAN
DHARSHAN IYANGAR A/L KAMALAGARAN
JOHNRINDER SINGH A/L RANJIT SINGH
KALAIVANI A/P SUNGRASAMY
KHAIRUL EIZZAMIE BIN MOHD AZMI
LETCHUMI A/P IEWARAJU
MOHAMAD HAFIDZUAN BIN ROSLI
MUHAMAD FARID HAMIMI BIN TARMIZI
MUHAMAD HAZIQ BIN LAZULIZUL
NANTHINI A/P KANDASAMY
NATHINI A/P SELVAMUTHU
SAKTHIVEL A/L MURUKANATHAM
SURESH A/L ALAGAPPAN
THINESH KUMAR A/L VELLAYAN
VICKNESH A/L ASSATHAMBY

Thursday, March 13, 2014

Visual Basic Notes

Add Button
Private Sub Command1_Click()
Adodc1.Recordset.AddNew
End Sub


Save Button & Edit button Coding Are same except the Msgbox
Private Sub Command2_Click()
If Adodc1.Recordset.RecordCount >= 0 Then
Adodc1.Recordset("ID") = Text1.Text
Adodc1.Recordset("NAME") = Text2.Text
Adodc1.Recordset.Update
MsgBox "saved"
End If

End Sub

Edit Button
Private Sub Command5_Click()
If Adodc1.Recordset.RecordCount >= 0 Then
Adodc1.Recordset("ID") = Text1.Text
Adodc1.Recordset("NAME") = Text2.Text
Adodc1.Recordset.Update
MsgBox "Edited "

End If
End Sub



Search Button
Private Sub Command3_Click()
Adodc1.Refresh
Dim a As Variant
a = InputBox("Enter the student id ")

If a = "" Then
MsgBox " no data entered"
Else

Adodc1.Recordset.Find "ID='" & a & "'"
If Adodc1.Recordset.EOF = True Then
MsgBox " not found"
Else
Text1.Text = Adodc1.Recordset("ID")
Text2.Text = Adodc1.Recordset("name")
End If
End If
End Sub


Delete Button
Private Sub Command4_Click()
reply = MsgBox("sure want to delete ?", vbYesNo + vbExclamation, " deleting record")
If reply = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MovePrevious
End If
End If
End Sub

Monday, March 10, 2014

The following students are required to attend a meeting with our VC .
An email has been sent to your mailing address.

The details of the meeting are as follows.
Date      :14 March 2014
Time     : 10.30am
Venue   : Level 4




The following students are enrolled for Database Organization and please attend the meeting . ATTENDANCE IS COMPULSORY.



MUHAMMAD FARIS B NASARUDDIN
MUHAMMAD RAZALI BIN MAT TAHIR
NUR HIDAYAH BINTI ZULKIFLI
NUR HIDAYAH BINTI ZULKIFLI
SANJET SINGH A/L SERBAN SINGH
SHOMASTHERAN A/L VIAHBURI
VENUGOPAL NAIDO A/L RAJAGOPAL NAIDO
ZURIANA BINTI ISMAIL
THANALETCHUMY A/P SARAVANAN
NURUL AMY NATASSHA BINTI ALIAS KHUSAIRI