Xiao_1

Hello, I wrote some codes for student login. the codes checks for the "username", "password" as well as their type of "status", from the database. once this input are met, the student logs in successful, otherwise a message pops up. The problem i encountered is this, i have 11 student …

how to edit the info in VB also change in the access after that Refresh it

how do i record the the time to the access database on VB with the date when register in Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick lbltime.Text = "Time:" + TimeString End Sub End Class

if i insert the new studadmin and the admincard and it Successfully Register but when i look at the access it not go the correct row is go to the timein and timeout i not sure which part wrong: Public Class Student_Form Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e …

if i insert the new studadmin and the admincard and it Successfully Register but when i look at the access it not go the correct row is go to the timein and timeout i not sure which part wrong: Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles …

Y could not move the listbox admin no to another leistox Private Sub btnAssign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAssign.Click 'If ListBoxassign.SelectedItem IsNot Nothing Then ListBoxall.Items.Add(ListBoxassign.SelectedItem) 'End If End Sub Private Sub btnUnassign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnassign.Click ListBoxassign.Items.Remove(ListBoxassign.SelectedItem) End Sub End Class

in this form the stuednt record the time when login so that when they take attendance know that time they come in this the code : Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick lbltime.Text = "Time:" + TimeString If String.IsNullOrWhiteSpace(txtadmno.Text) Or String.IsNullOrWhiteSpace(txtcard.Text) Then 'MessageBox.Show("Please complete …

the monthCalendar how to i selct the date it will come out the timein & time out and name even i chosse anydate will come out Private Sub MonthCalendar1_DateSelected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateSelected Dim calendarselct As String calendarselct = MonthCalendar1.SelectionRange.Start.Day.ToString & "/" & MonthCalendar1.SelectionRange.Start.Month.ToString & …

Y could not move the listbox admin no to another listbox Private Sub btnAssign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAssign.Click 'If ListBoxassign.SelectedItem IsNot Nothing Then ListBoxall.Items.Add(ListBoxassign.SelectedItem) 'End If End Sub Private Sub btnUnassign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUnassign.Click ListBoxassign.Items.Remove(ListBoxassign.SelectedItem) End Sub End Class

when i click the btn assign the error come out where go worng? Private Sub btnAssign_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAssign.Click ListBoxall.Items.Add(ListBoxassign.SelectedItem) End Sub (**ArgumentNullExceotion was unhandld** *Value cannot be null. Parameter name: item)* the admin the listbox done not show up which part go wong …

in Student Register_Form i key in the Stud Admin and admin card but when i key in the admin card one number it come out alot of small box that say (Insert time in) here is all the code: Public Class Student_Form Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e …

when Register in this also will record the time in to access also is this code corrct this my code Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick lbltime.Text = "Time:" + TimeString If String.IsNullOrWhiteSpace(txtadmno.Text) Or String.IsNullOrWhiteSpace(txtcard.Text) Then 'MessageBox.Show("Please complete the on the box.", "Authentication Error", …

if corrct this code it will come of the list in the datagridview in VB from access this my code: Private Sub ComboBoxadm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBoxadm.SelectedIndexChanged Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If conn.State = ConnectionState.Open Then conn.Close() conn.Open() Dim sql …

when done with the form it will come out antother that is this form in the listbox1 should show out dun need click anthing it will come out auto of the admin No why dose not show out Public Class DataOfProject Private Sub ListBoxassign_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As …

If String.IsNullOrWhiteSpace(txtadmno.Text) Or String.IsNullOrWhiteSpace(txtcard.Text) Then MessageBox.Show("Please complete the on the box.", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If Using conn As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb") Dim Result As Integer ** Dim sql As String = "INSERT [Date Select] From tbl_studentadm values (@DateSelect) "*****in here shold i key in the admin …

in the reisgter how i put it togeter time and date of the code when i keyin the admin No and admin card then it record the the access datatbase. Private Sub btnRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegister.Click If String.IsNullOrWhiteSpace(txtcard.Text) Or String.IsNullOrWhiteSpace(txtadmno.Text) Then MessageBox.Show("Please complete the …

how i put it like i am a student so i choose student and key in username n password, if choose worng like i click lectuere but i not, so cant is worng cant login Private Sub cbinfo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbinfo.SelectedIndexChanged Dim conn As …

when i login it will come 2 form one is info and other one is register form when i login that time my info come out come a samll form say error complet the box it should not come out this..!! where go worng

at the projct No i have choses it should the the project name on the textbox but did not come out Private Sub cbbproject_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbbproject.SelectedIndexChanged Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If conn.State = ConnectionState.Open Then conn.Close() conn.Open() Dim …

Why done work is it some thing worng i only wan edit one or delete one of it? Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click If String.IsNullOrWhiteSpace(txtadmin.Text) Or String.IsNullOrWhiteSpace(txtname.Text) Or String.IsNullOrWhiteSpace(txtcourse.Text) Or String.IsNullOrWhiteSpace(txtic.Text) Or String.IsNullOrWhiteSpace(txtgender.Text) Or String.IsNullOrWhiteSpace(txtaddress.Text) Or String.IsNullOrWhiteSpace(DateTimePicker1.Value) Or String.IsNullOrWhiteSpace(txttel.Text) Or String.IsNullOrWhiteSpace(txtemail.Text) Or String.IsNullOrWhiteSpace(txttype.Text) …

is this coorrct if write like this: Public Class Lecturer_Form Private Sub Lecturer_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If conn.State = ConnectionState.Open Then conn.Close() conn.Open() Dim sql As String = "Select A.StaffNo,A.TimeIn,A.TimeOut, B.ProjectNo, C.AdminNo, C.UserName From tbl_lecturer …

in stuednt admin i wan it to insert and also select from tbl_stuendadmin how to put it togeter If String.IsNullOrWhiteSpace(txtcard.Text) Or String.IsNullOrWhiteSpace(txtadmno.Text) Then MessageBox.Show("Please complete the on the box.", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If Dim Conn As System.Data.OleDb.OleDbConnection Dim ConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" Conn = …

i trying to put this in the combobox why did not come out Private Sub Lecturer_Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If conn.State = ConnectionState.Open Then conn.Close() conn.Open() Dim sql As String = "Select [StaffNo] From tbl_lecturer …

Private Sub cbbproject_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbbproject.SelectedIndexChanged Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If conn.State = ConnectionState.Open Then conn.Close() conn.Open() Dim sql As String = "Select * From tbl_assignment Where ProjectNo ='" & cbbproject.Items(cbbproject.SelectedIndex) & "'" Dim sqlCom As New System.Data.OleDb.OleDbCommand(sql, conn) …

I have two listbox and two button, one button is assign another is unassign in listbox1 have adminNo I wan the listbox1 of adminno go to listbox2 one by one when pressing button assign and i also can unassign go back to listbox1 one by one also is it: *listbox1.item.forword(sqlRead("AdminNo").ToString)*

in existing project of combobox not just show the the project No. and also show the textbox of the project name this is my code is it corrct: Private Sub DataOfProject_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If …

Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" If conn.State = ConnectionState.Open Then conn.Close() conn.Open() Dim sql As String = "SHOW * From tbl_info Where AdminNo = '" & ListBoxassign.Items & "'" listboxassign.items.show(AdminNo)

in combobox how do can i select the user as student not other e.g. if the user is student not Manager Private Sub loginform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim conn As New System.Data.OleDb.OleDbConnection() conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\temp\Database1.accdb" Try Dim sqlcmd As String = "SELECT * …

**syntax error in INSERT INTO statemen**t what is that mean?

i cant add in the data? code of add info: Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click If String.IsNullOrWhiteSpace(txtadmin.Text) Or String.IsNullOrWhiteSpace(txtname.Text) Or String.IsNullOrWhiteSpace(txtcourse.Text) Or String.IsNullOrWhiteSpace(txtic.Text) Or String.IsNullOrWhiteSpace(txtgender.Text) Or String.IsNullOrWhiteSpace(txtaddress.Text) Or String.IsNullOrWhiteSpace(txttel.Text) Or String.IsNullOrWhiteSpace(txtemail.Text) Or String.IsNullOrWhiteSpace(txttpye.Text) Then MessageBox.Show("Please complete the on the box.", "Authentication Error", MessageBoxButtons.OK, …