日時文字列から変換構文エラーを取得

Question

私は次のコードを持っている：

Imports System.Data.SqlClient 
Public Class Main 
    Protected WithEvents DataGridView1 As DataGridView 
    Dim instForm2 As New Exceptions 
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startpayrollButton.Click 
     Dim ssql As String = "select MAX(payrolldate) AS [payrolldate], " & _ 
       "dateadd(s, 518399, max(payrolldate)) AS [Sunday]" & _ 
        "from dbo.payroll" & _ 
        " where payrollran = 'no'" 
     Dim oCmd As System.Data.SqlClient.SqlCommand 
     Dim oDr As System.Data.SqlClient.SqlDataReader 
     oCmd = New System.Data.SqlClient.SqlCommand 

     Try 
      With oCmd 
       .Connection = New System.Data.SqlClient.SqlConnection("Initial Catalog=mdr;Data Source=xxxxx;uid=xxxxx;password=xxxxx") 
       .Connection.Open() 
       .CommandType = CommandType.Text 
       .CommandText = ssql 
       oDr = .ExecuteReader() 
      End With 
      If oDr.Read Then 
       payperiodstartdate = oDr.GetDateTime(1) 
       payperiodenddate = payperiodstartdate.AddDays(7) 
       Dim ButtonDialogResult As DialogResult 
       ButtonDialogResult = MessageBox.Show("  The Next Payroll Start Date is: " & payperiodstartdate.ToString() & System.Environment.NewLine & "   Through End Date: " & payperiodenddate.ToString()) 
       If ButtonDialogResult = Windows.Forms.DialogResult.OK Then 
        exceptionsButton.Enabled = True 
        startpayrollButton.Enabled = False 
       End If 
      End If 
      oDr.Close() 
      oCmd.Connection.Close() 
     Catch ex As Exception 
      MessageBox.Show(ex.Message) 
      oCmd.Connection.Close() 
     End Try 

    End Sub 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exceptionsButton.Click 
     Dim connection As System.Data.SqlClient.SqlConnection 
     Dim adapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter 
     Dim connectionString As String = "Initial Catalog=mdr;Data Source=xxxxx;uid=xxxxx;password=xxxxx" 
     Dim ds As New DataSet 
     Dim _sql As String = "SELECT [Exceptions].Employeenumber,[Exceptions].exceptiondate, [Exceptions].starttime, [exceptions].endtime, [Exceptions].code, datediff(minute, starttime, endtime) as duration into Scratchpad3" & _ 
     " FROM Employees INNER JOIN Exceptions ON [Exceptions].EmployeeNumber = [Exceptions].Employeenumber" & _ 
     " where [Exceptions].exceptiondate between @payperiodstartdate and @payperiodenddate" & _ 
     " GROUP BY [Exceptions].Employeenumber, [Exceptions].Exceptiondate, [Exceptions].starttime, [exceptions].endtime," & _ 
     " [Exceptions].code, [Exceptions].exceptiondate" 
     connection = New SqlConnection(connectionString) 
     connection.Open() 
     Dim _CMD As SqlCommand = New SqlCommand(_sql, connection) 
     _CMD.Parameters.AddWithValue("@payperiodstartdate", payperiodstartdate) 
     _CMD.Parameters.AddWithValue("@payperiodenddate", payperiodenddate) 
     adapter.SelectCommand = _CMD 
     Try 
      adapter.Fill(ds) 
      If ds Is Nothing OrElse ds.Tables.Count = 0 OrElse ds.Tables(0).Rows.Count = 0 Then 
       'it's empty 
       MessageBox.Show("There was no data for this time period. Press Ok to continue", "No Data") 
       connection.Close() 
       Exceptions.saveButton.Enabled = False 
       Exceptions.Hide() 
      Else 
       connection.Close() 
      End If 

     Catch ex As Exception 
      MessageBox.Show(ex.ToString) 
      connection.Close() 
     End Try 
     Exceptions.Show() 
    End Sub 

    Private Sub payrollButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles payrollButton.Click 
     Payrollfinal.Show() 
    End Sub 
End Class 

を、私はこのコードを実行すると、私は次のようなエラーに

System.Data.SQLClient.SQLExceptionを取得します：このラインで日時 文字列から変換 構文エラー、ライン57

：

adapter.Fill(ds) 

これをデバッグすると、その行に改行を置き、0を示すテーブル値を調べますが、その時間枠のデータがあることがわかります。誰でも助けてくれますか？ -

Answer 1

チェックこのアウトあなたがNULL可能日付時刻に問題があり： Linky