Lesen von Daten aus sql-Datenbank mithilfe von datetime-picker

Meine NICHT EMPFOHLEN Lösung:

Entfernen Sie die Klammer und % Zeichen. Setzen Sie ein Leerzeichen kurz vor der ORDER (obwohl es nicht die Ursache des syntax-Fehler).

Beheben wählen Sie in dieser Art und Weise:

"SELECT EMP_ID,EMP_NAME,AT_STATUS,AT_REMARK FROM ATTENDANCE WHERE AT_DATE = '" & _
editDate.ToString("yyyy-MM-dd hh:mm:ss") & _
"' ORDER BY EMP_NAME ASC"

Was ich tun, empfehlen Sie ist, zu lernen, zu verwenden Sie SQL Parameter.

Sollte die Abfrage sieht dann wie folgt aus (beachten Sie die @editDate parameter Ort-Halter innen):

"SELECT
EMP_ID,EMP_NAME,AT_STATUS,AT_REMARK FROM ATTENDANCE WHERE AT_DATE = @editDate ORDER BY EMP_NAME ASC".

Dann müssen Sie nur die Parameter hinzufügen, um die SqlCommand. Der einfachste Weg ist, das zu tun, ist die Verwendung SqlParameterCollection.AddWithValue.

yourSqlCommand.Parameters.AddWithValue("@editDate", editDate)

Ein vollständiges Beispiel:

    Dim editDate As Date = DTPEDITAT.Value

    Using conn As New SqlConnection(YOUR_CONNECTION_STRING_HERE)
        Using cmd As SqlCommand = conn.CreateCommand()
            cmd.CommandText = "SELECT EMP_ID,EMP_NAME,AT_STATUS,AT_REMARK FROM ATTENDANCE WHERE AT_DATE = @editDate ORDER BY EMP_NAME ASC"
            cmd.Parameters.AddWithValue("@editDate", editDate)

            adapter.SelectCommand = cmd
            adapter.Fill(ds)

            For Each row As DataRow In ds.Tables(0).Rows 
                [do whatever with the result]
            Next

        End Using
        conn.Close()
    End Using

Vom MSDN über Sql-Parameter

Command-Objekten mit Parametern Werte übergeben, um SQL-Anweisungen oder
gespeicherte Prozeduren, die Bereitstellung von Typ-überprüfung und Validierung. Im Gegensatz zu
Befehl text -, parameter-Eingabe behandelt wird als ein literal mit dem Wert, nicht als
ausführbaren code. Dies hilft beim Schutz gegen "SQL-injection" Angriffe, in
die ein Angreifer fügt einen Befehl in einer SQL-Anweisung
Kompromisse-Sicherheit auf dem server. Zusätzlich zu den Sicherheits -
Vorteile, parametrisierte Befehle bieten eine bequeme Methode für die Organisation von Werten an eine Datenquelle übergeben werden.

InformationsquelleAutor Luis Quijada

Ändere ich meinen code wie folgt

Private Sub BTNFIND_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNFIND.Click
    ATCEDITGRID.Rows.Clear()
    getConnect()
    Dim editdate As String
    DTPEDITAT.Value = Format(DTPEDITAT.Value, "dd/MM/yyyy")
    editdate = DTPEDITAT.Value
    Try
        Conn.Open()
        Dim strSQL As String = "SELECT EMP_ID,EMP_NAME,AT_STATUS,AT_REMARK FROM ATTENDANCE WHERE AT_DATE = '" & editdate & "' ORDER BY EMP_NAME ASC"
        Dim da As SqlDataAdapter = New SqlDataAdapter(strSQL, Conn)
        Dim ds As DataSet = New DataSet
        da.Fill(ds, "ATTENDANCE")
        Dim dt As DataTable = ds.Tables("ATTENDANCE")
        Dim row As DataRow
        Dim atstat As String
        For Each row In dt.Rows
            If row("AT_STATUS") = 1 Then
                atstat = "Present"
            ElseIf row("AT_STATUS") = 0 Then
                atstat = "Absent"
            ElseIf row("AT_STATUS") = 0.5 Then
                atstat = "Halfday"
            Else
                atstat = "Error"
            End If
            Me.ATCEDITGRID.Rows.Add(row("EMP_ID"), row("EMP_NAME"), atstat, row("AT_REMARK"))
        Next row
        ATCEDITGRID.TopLeftHeaderCell.Value = "Sr.No."
        Me.ATCEDITGRID.RowHeadersDefaultCellStyle.Padding = New Padding(3)
        ATCEDITGRID.AllowUserToAddRows = False
        AddRowHeadersEdit()
        Conn.Close()
    Catch ex As SqlException
        MsgBox(ex.Message, MsgBoxStyle.Critical, "SQL Error")
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
    End Try
End Sub

Itz eine Gute Arbeit....

InformationsquelleAutor Thanzeem