VB.NET：アクセスから変数への値の転送方法

Question

TIMEINとTIMEOUTの値をAccessから取得し、後で使用するために変数に格納したいと考えています。私が試しているコードは機能していません。コードは次のとおりです。

Public timein As DateTime 
Public timeout As DateTime 
Dim selectquery As String 

    selectquery = "SELECT * FROM emp_timing " & "WHERE emp_code = @p1 AND day = @p2" 


    Using con = New OleDbConnection(dbProvider & dbSource) 
     Using cmd = New OleDbCommand(str, con) 

      timein = cmd.Parameters.Item("emp_timein") 
      timeout = cmd.Parameters.Item("emp_timeout") 

      con.Open() 

      'cmd.Parameters.Add("@p1", OleDbType.VarWChar).Value = System.DateTime.Now 
      cmd.Parameters.Add("@p1", OleDbType.VarWChar).Value = TextBox1.Text 
      cmd.Parameters.Add("@p2", OleDbType.Date).Value = New DateTime(Now.Year, Now.Month, Now.Day) 

      Try 

       Dim rowsSelect = cmd.ExecuteScalar() 
       If rowsSelect > 0 Then 
        MsgBox("Data added to variables") 

       End If 
      Catch ex As Exception 
       MsgBox(ex.Message) 

      End Try 
     End Using 
    End Using 

Answer 1

必要に応じてExecuteNonQueryをExecuteReaderまたはExecuteScalerに置き換えます。選択クエリに対してデータベースから結果セットを取得するには、ExecuteReaderの

を使用することがありますMSDN Documentstion