Read data from sql database using datetime picker

前端 未结 5 1449
没有蜡笔的小新
没有蜡笔的小新 2021-01-16 15:29

How to read data from database using datetimepicker value. I have a datetimepicker and a datagridview in my form. I want to get data from Sql databse table with the selected

5条回答
  •  余生分开走
    2021-01-16 16:06

    I change my code like this

    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 working Good....

提交回复
热议问题