VB.NET: erişimden değişkenlere değişkenlerin nasıl aktarılacağı

Question

Access'ten TIMEIN ve TIMEOUT değerlerini almak ve daha sonra kullanmak için değişkenlere kaydetmek istiyorum. Çalıştığım kod parçası çalışmıyor. İşte kod:

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

ExecuteReader veya ExecuteScaler ihtiyaçlarınıza bağlı olan ExecuteNonQuery değiştirin. seçme sorgusu karşı veritabanından sonuç kümesini almak için,

MSDN Documentstion