student information system project in visual basic 6.0 coding with form design

The Student Information System in Visual Basic coding with Form design

The Create a Student Information System in Visual Basic.

The Following Step Student Information System procedure:-

Step 1 : Start

Step 2 : Go to the sql and create a table.

Step 3 : Then open the Visual Basic range.

Step 4 : Create label ,Textbox and Command button etc.

Step 5 : Write a coding required for Student Information System and details.

Step 6 : Click on Project -> Component -> Microsoft  AND DATA control.

Step 7 : Click on project -> Reference -> Microsoft of Library.

Step 8 : Go to control panel -> Administrator tools -> ODBC .

Step 9 : Table Connected .

Step 10 : End

The Student Information System coding : -

GENERAL : -

Dim con As New ADODB . Connection

Dim rs As New ADODB . Recordset

FOR INSERT COMMAND BUTTON : -

Private Sub Command1 _ Click ()

rs . AddNew

rs !registernumber = Val (Text1.Text)

rs! Studentname = Trim(Text2.Text)

rs!dateofbrith = Val(Text3.Text)

rs!degree = Trim(Text4.Text)

rs!fathername = Trim(Text5.Text)

rs!bloodgroup = Trim(Text6.Text)

rs!mobilenumber = val(Text7.Text)

rs!emailid = Trim(Text8.Text)

rs!address = Trim(Text9.Text)

rs . Update

MsgBox “ one record inserted ”

End Sub

FOR SEARCH COMMAND BUTTON  : -

Private Sub Command2 _ Click ()

Dim rssearch As New ADODB . Recordset

Dim qry As String

Dim I As integer

I=InputBox( “enter the register number to search”)

qry=“select*from mark sheet8015 where regno=”& i

rssearch.Openqry , con ,adOpenStatic ,adLockOptimistic

If search.EOF Then

MsgBox “ no such register number ”

Else

Text1.Text = rssearch ! registernumber

Text2.Text = rssearch ! studentname

Text3.Text = rssearch ! dateofbrith

Text4.Text = rssearch ! degree

Text5.Text = rssearch ! fathername

Text6.Text =rssearch ! bloodgroup

Text7.Text = rssearch ! mobilenumber

Text8.Text = rssearch ! emailid

Text9.Text = rssearch ! address

End If

End Sub

FOR REPORT BUTTON : -

Private Sub Command3_ Click()

DataReport1.Show

End Sub

FOR CLEAR COMMAND BUTTON : -

Private sub Command4 _ Click ()

Text1.Text = “ “

Text2.Text = “ “

Text3.Text = “ “

Text4.Text = “ “

Text5.Text = “ “

Text6.Text = “ “

Text7.Text = “ “

Text8.Text = “ “

Text9.Text = “ “

Text1 . SetFocus

End Sub

FOR EXIT COMMAND BUTTON : -

Private Sub Command5 _ Click ()

Unload Me

End Sub

FORM LOAD : -

Private Sub From _ Load ()

Con . open “dsn=shame8015; uid=day; pwd=day1”

Rs.open“select *frommarksheet8015 ”,con,adOpenDynamic ,adLockOptimistic

MsgBox “  database connected  ”

End Sub

Student Information System DATABASE CREATION : -

Create table student8015 ( registernumber numeric , studentname varchar (30) , dateofbrith numeric , degree varchar (20)

, fathername varchar (20) , bloodgroup varchar (20) , mobilenumber numeric , emiled varchar  (20) , address varchar (20) .

Student Information System FORM DESIGN : -

 

Student Information System REPORT : -

Registernumber :	8015
Studentname :	rahman
Date of brith :	36374
Degree :	Bsc cs
Fathername :	raja
Bloodgroup :	O+ve
Moblinumber :	1234567890
Emalid :	fh@gmail.com
address	Peters road