Object가 Function으로 전달되었지만 수신되지 않았습니다 ... 이유가 무엇입니까?

Question

나는이 코드 조각들에 어떤 오류도 없으며, 매번 비어 있습니다. 내가 잘못 작성했는지 궁금합니다. 언제나처럼 도와주세요. 대단히 감사합니다.

Dim l As New Log() 
l.Log = "Attempted staff login with username [" & txtUsername.Text & "]" 
l.LogId = 0 
l.StaffId = 4 
l.LogDate = Date.Now() 
l.Insert() 

.Insert()는이 두 함수에 의해 BLL 계층에서 선택됩니다.

Public Function Insert() As Integer 
      Return InsertLog(Me.LogId, Me.Log, Me.StaffId, Me.LogDate) 
     End Function 

     Public Shared Function InsertLog(ByVal logid As Integer, ByVal log As String, ByVal staffid As Integer, ByVal logdate As DateTime) As Integer 
      Using scope As New TransactionScope() 
       Dim record As New LogDetails(logid, log, staffid, logdate) 
       Dim ret As Integer = SiteProvider.Avalon.InsertLog(record) 
       scope.Complete() 
       Return ret 
      End Using 
     End Function 

DAL InsertLog는 다음과 같습니다. 내가 속성의 LogDetails 내에 대해 설정 한 기본 데이터를 받고 있어요,하지만 정확한 데이터가 삽입되지 않는 -

Public Overrides Function InsertLog(ByVal log As LogDetails) As Integer 
      Using cn As New SqlConnection(Me.ConnectionString) 
       Dim cmd As New SqlCommand("sp_log_Insert", cn) 
       cmd.CommandType = CommandType.StoredProcedure 
       cmd.Parameters.AddWithValue("@log", log.Log) 
       cmd.Parameters.AddWithValue("@staff_id", log.StaffId) 
       cmd.Parameters.AddWithValue("@log_date", log.LogDate) 

       Dim param As New SqlParameter 
       param.Direction = ParameterDirection.ReturnValue 
       cmd.Parameters.Add(param) 

       cn.Open() 
       Dim ret As Integer = ExecuteNonQuery(cmd) 
       Return CInt(Convert.ToInt32(param.Value)) 
      End Using 
     End Function 

나는 마지막 함수의 올바른 리턴 (DB를 행 ID)를 얻는다. 아무도 내가 여기서 잘못하고있는 것을 볼 수 있습니까?

도움말은 대단히 감사합니다 :)

요청으로 : DAL :

Public Sub New(ByVal logid As Integer, ByVal log As String, ByVal staffid As Integer, ByVal logdate As DateTime) 
    _logid = logid 
    _log = log 
    _staffid = staffid 
    _logdate = logdate 
End Sub 

: LogDetails

Imports Microsoft.VisualBasic 
Namespace Harmony.Zizz.DAL 
    Public Class LogDetails 
     Protected _logid As Integer = 0 
     Protected _log As String = "" 
     Protected _staffid As Integer = 0 
     Protected _logdate As DateTime = Date.Now 

     Public Sub New() 

     End Sub 

     Public Sub New(ByVal logid As Integer, ByVal log As String, ByVal staffid As Integer, ByVal logdate As DateTime) 

     End Sub 

     Public Property LogId() As Integer 
      Get 
       Return _logid 
      End Get 
      Set(ByVal value As Integer) 
       _logid = value 
      End Set 
     End Property 
     Public Property Log() As String 
      Get 
       Return _log 
      End Get 
      Set(ByVal value As String) 
       _log = value 
      End Set 
     End Property 
     Public Property StaffId() As Integer 
      Get 
       Return _staffid 
      End Get 
      Set(ByVal value As Integer) 
       _staffid = value 
      End Set 
     End Property 
     Public Property LogDate() As DateTime 
      Get 
       Return _logdate 
      End Get 
      Set(ByVal value As DateTime) 
       _logdate = value 
      End Set 
     End Property 
    End Class 
End Namespace 

Answer 1

를 값이 LogDetails의 두 번째 생성자에 보낼 수는 개인 필드를 설정해야

Answer 2

이것은 무엇입니까? 이것에

Public Sub New(ByVal logid As Integer, ByVal log As String, 
      ByVal staffid As Integer, ByVal logdate As DateTime) 

End Sub 

변화를 :

Public Sub New(ByVal logid As Integer, ByVal log As String, 
        ByVal staffid As Integer, ByVal logdate As DateTime) 

    _logid = logid 
    _staffid = staffid 
    _logdate = logdate 

End Sub