すでにレコードが存在していればレコードを更新する

Question

クライアントがすでにサインインしているかどうかを確認しようとしていますが、新しいレコードを追加するのではなく、解決策を見つけるのに苦労している。 これは私が使用している現在のコードです：、クライアントはサインインしている場合、私は単純に、スクリプトを確認したい

 Private Sub btnSignIn_Click(sender As Object, e As EventArgs) Handles btnSignIn.Click 
    Dim cmd As New OleDbCommand 
    '  cnn = cnn 
    Try 
     If Not cnn.State = ConnectionState.Open Then 'open the database connection 
      cnn.Open() 
     End If 

     If txtClientName.Text = Nothing Then   'check to see if the name field is empty 
      MsgBox("Please enter a name to sign in") 
      txtClientName.Focus() 

     ElseIf txtDateTime.Text = Nothing Then   ' checks if timeslip is empty 
      MsgBox("Please enter a valid time to sign in") 
      txtDateTime.Focus() 
     Else          'if no fields are empty proceed with code 
      cmd.Connection = cnn 
      cmd.CommandText = "INSERT INTO LogSheet (ClientName, SignInTime, CurrentDate)" & 
           "VALUES(?, ?, ?)" 
      cmd.Parameters.AddWithValue("@p1", txtClientName.Text.ToString.ToUpper) 
      cmd.Parameters.AddWithValue("@p2", txtDateTime.Text) 
      cmd.Parameters.AddWithValue("@p3", Date.Now().ToShortDateString) 

      cmd.ExecuteNonQuery() 
      RefreshData() 
      txtClientName.Clear() 
      txtDateTime.Clear() 

     End If 

    Catch ex As Exception 
     MessageBox.Show(ex.Message & " - " & ex.Source) 
     cnn.Close() 
    End Try 

End Sub 

そこに何の検証はありませんが、IVEは運と多くの異なるコードを試してみました。.. その後、与える他のエラー「既に署名したクライアントは、」彼がサインアウトすると、ちょうどサインアウトフィールドに 感謝

を更新これは、あなたが日時値を挿入すべきか私のプログラムは1

Answer 1

データベーステーブル（LogSheet）の構造を更新し、次のフィールドを追加します。 ClientName、SignInTime、SignInRelation、SignOutTime、、クライアントが今日（CURRENTDATE）、次いでSignInTimeに署名されている場合CurrentDate

はあなたがSignOutTimeの値を読み込むことができ、値を持つことになります。

これは、あなたがそれをコーディングすることができ1つの可能な方法である：

このコードは未テストですが、あなたのアイデアを得る必要があります。

Sub BtnSignIn_Click() 
    If IsUserLoggedIn(txtClientName.Text) = True Then 
     'Client has been logged in already. Do Action. 
    Else 

     'Client has not been logged in today. Do Action. 
    End If 
End Sub 


Function IsUserLoggedIn(UserName As String) As Boolean 
    Dim sql = "Select SignOutTime From LogSheet Where CurrentDate=@D AND ClientName=@C" 

    Try 
     Using cnn As New OleDbConnection 
      Using cmd As New OleDbCommand(sql, cnn) 
       cnn.Open() 
       cmd.Parameters.AddWithValue("@D", Today.Date.ToShortDateString) 
       cmd.Parameters.AddWithValue("@C", UserName) 
       Dim result = cmd.ExecuteScalar 

       If result Is Nothing OrElse result Is DBNull.Value OrElse String.IsNullOrEmpty(result.ToString) Then 
        Return False 
       Else 
        Return True 
       End If 

      End Using 
     End Using 
    Catch ex As Exception 
     MessageBox.Show(ex.Message, "Error: " & System.Reflection.MethodBase.GetCurrentMethod.Name, MessageBoxButtons.OK, MessageBoxIcon.Error) 
    End Try 
End Function 

Answer 2

での画像ですs：

cmd.Parameters.AddWithValue("@p2", DateTime.Parse(txtDateTime.Text)) 
cmd.Parameters.AddWithValue("@p3", DateTime.Today)