error on OleDbException

OleDbException was unhandled by code

Error details: the changed u requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.

Vbform code

Private Sub frmMain_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
If MessageBox.Show("Are you sure want to log out?", "BEST PIZZA Ver. 1.0", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
Dim sqlUser As String

With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = strConn
.Open()
End With

sqlUser = "Insert into loghistory values('" & strUserName & "','" & strUserTextStatus & "','" & Format(Now, "dd-MMM-yy") & "','" & Format(Now, "Long Time") & "','" & strUserName & "(Logout)" & "')"
Dim datacommand As New OleDb.OleDbCommand(sqlUser, Conn)
datacommand.ExecuteNonQuery()

Dim strSQL As String
strSQL = "UPDATE login SET IsLogin = 'Logout' WHERE username = '" & strUserName & "'"
Dim cmdUpdateLogin As New OleDbCommand(strSQL, Conn)
cmdUpdateLogin.ExecuteNonQuery()
Conn.Close()
Me.Close()
Else
e.Cancel = True
End If
End Sub

loghistory table

pk userid text
pk type text
pk date date/time
pk time date/time

please help me
description text

error on OleDbException

You can use google to search for other answers

More Threads