You can download my example below.
Download File
Friday, February 20, 2009
Database normalization of Student information using Microsoft Access
Simple database normalization of Student information that contains name, address, Age, Course, Gender it shows on how to normalize a database using one to one relationship using Microsoft Access. tblCourse and tblGender are the looked up table of tblStudentInfo. You can download this sample below.. thank you so much.
You can download my example below.
Download File
You can download my example below.
Download File
Subscribe to:
Post Comments (Atom)
Microsoft Access can be used as a stepping stone when it comes to database studies. Yes, it is powerful in its own accord. At the same time, it is usually used by students (as an example) to study theories like normalization. Now this is a nice start to exploring the power of databases.
ReplyDeleteMicrosoft access has a very nice GUI for front end development works well with mysql and perfect combination with MSSQL!!!
DeleteImports System.Data.OleDb
ReplyDeletePublic Class Gradehere
Dim sql As String
Dim ds As New DataSet
Dim da As New OleDb.OleDbDataAdapter
Dim cmd As New OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
Dim con As New OleDb.OleDbConnection
Dim dbProvider As String
Dim dbSource As String
Dim inc As Integer
Dim maxrows As Integer
Dim listselect As String
Private Sub Gradehere_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dbProvider = "PROVIDER = MICROSOFT.JET.OLEDB.4.0;"
dbSource = "Data source = F:/Finals/Finals.mdb"
con.ConnectionString = dbProvider & dbSource
con.Open()
sql = "Select * from tblgrade"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "tblgrade")
con.Close()
maxrows = ds.Tables("tblgrade").Rows.Count
inc = 0
End Sub
Private Sub btninput_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninput.Click
If inc <> -1 Then
Dim cb As New OleDb.OleDbCommandBuilder(da)
Dim NewRow As DataRow
NewRow = ds.Tables("tblgrade").NewRow()
NewRow.Item("ID") = txtid.Text
NewRow.Item("lname") = txtlname.Text
NewRow.Item("fname") = txtfname.Text
NewRow.Item("mi") = txtmi.Text
NewRow.Item("yearlevel") = txtyearlevel.Text
NewRow.Item("subject") = cbosubject.Text
ds.Tables("tblgrade").Rows.Add(NewRow)
da.Update(ds, "tblgrade")
MsgBox("New Record Added ", MsgBoxStyle.Information, "Save")
End If
End Sub
End Class
i have in counter an error "INSERT INTO STATEMENT". i have tried to fix this but i can't can you help me find the error for this
access works with PHP via odbc.
ReplyDelete