Library Management System

GOOD DAY SIR ITACHI_PHILIP, I AM REALLY IN A FIX RIGHT NOW AS I NEED YOUR HELP. I AM A FINAL YEAR COMPUTER SCIENCE STUDENT I AM TRYING TO DEVELOP A LIBRARY MANAGEMENT SYSTEM USING VB.NET and SQLSERVER 2005,I HAVE BEEN ON THIS FOR SOME MONTHS NOW TO NO AVAIL. I AM TO DEFEND MY PROJECT ON MONDAY(22ND NOV. 2010) AND I STILL HAVE ERRORS IN MY CODES.I WILL ATTACH THE CODES I HAVE WRITTEN SO THAT YOU COULD HELP ME CORRECT IT OR POSSIBLY SEND YOUR MARVELOUS WORK FOR ME TO DEFEND WITH.I PROMISE TO ACKNOWLEDGE YOU IN MY SUCCESS AND ALSO REFERENCE YOU.PLEASE I REALLY DO NEED YOUR HELP(MY EMAIL:[email protected]) my codes Imports System.Data.SqlClient Public Class Form1 Dim CON As New SqlConnection Dim CMD As New SqlCommand Dim ADP As New SqlDataAdapter Dim DS As New DataSet Private Sub frmproject_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data intothe 'DataSet1.TBLBOOKS1' table. You can move, or remove it, as needed. Me.TBLBOOKS1TableAdapter.Fill(Me.DataSet1.TBLBOOKS1) 'TODO: This line of code loads data into the 'DataSet2.TBLUSERS' table. You can move, or remove it, as needed. Me.TBLUSERSTableAdapter.Fill(Me.DataSet2.TBLUSERS) END USER 'TO ADD NEW USER TO DATABASE Private Sub cmdaddusertodatabase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdaddusertodatabase.Click CON.ConnectionString = "Data Source=LUVLYRUTY-PC\SQLExpress;Integrated Security=True" CON.Open() CMD = CON.CreateCommand CMD.CommandText = "SELECT * FROM TBLUSERS" CMD.ExecuteNonQuery() ADP.SelectCommand = CMD ADP.Fill(DS) Me.DataGridView1.DataSource = DS.Tables(0) TBLUSERSTableAdapter.InsertQuery(Me.txtmat.Text, Me.txtlastname.Text, Me.txtothernames.Text, Me.txtemail.Text, Me.txtphoto.Text, Me.txtpermission.Text) MsgBox("registered") 'TBLBOOKS1TableAdapter.ClearBeforeFill.ToString() TBLUSERSTableAdapter.Fill(DataSet2.TBLUSERS) CON.Close() If (Me.txtmat.Text = "" Or Me.txtlastname.Text = "" Or Me.txtothernames.Text = "" Or Me.txtemail.Text = "" Or Me.txtphoto.Text = "") Then MsgBox("ALL FIELDS MUST BE FILLED") Exit Sub End If End Sub 'TO ADD NEW BOOKS Private Sub cmdbookadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbookadd.Click CON.ConnectionString = "Data Source=LUVLYRUTY-PC\SQLExpress;Integrated Security=True" CON.Open() CMD = CON.CreateCommand CMD.CommandText = "SELECT * FROM TBLUSERS" CMD.ExecuteNonQuery() ADP.SelectCommand = CMD ADP.Fill(DS) Me.DataGridView3.DataSource = DS.Tables(0) TBLBOOKS1TableAdapter.InsertQuery(Me.cmbcat.SelectedItem, Me.txtisbn.Text, Me.txtbooktitle.Text, Me.txtauthor.Text, Me.txtpublisher.Text, Me.txtcopies.Text) MsgBox("registered") TBLBOOKS1TableAdapter.Fill(DataSet1.TBLBOOKS1) CON.Close() End Sub 'TO SEARCH FOR BOOOKS Private Sub cmdsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsearch.Click End Sub PLEASE I WILL BE VERY GRATEFUL.THANKS AND GOD BLESS YOU

Hey there LIMP! Salamat kaayo sa imohang blog. You made me earn 2$. hahahaha! Pro na kaayo ka ug dating hap!? Goodluck! Ayo ayo dira sa naawan... =D pabutang ug link ha? hehehehe... ayaw intawon i remove kay naa koy sweldo ana kada link nga mabutang.. hehehehe Marl @ stretch mark removal

brad la kay source code sa voting systeme nemu sa access

I'm an IT student...now i'm in my last sem and i hv 2 come out with a system in my final project...i hv looked through a lot of websites including this 1..your system is awesome...simple and attractive...i hv decided 2 do some changes and submit it on my final project..so pls can u help me out with this..hw can i change the codings...can u pls email me [email protected].. i will really appreciate it..i swear i will owe u a big favor..pls help me out here