SEARCH DATA

'WITH DATATABLE
Public Function CARI_QUESTION_4EDIT(ByVal Monthnya As String, _
                                     ByVal Yearnya As String, _
                                     ByVal Jenisnya As String) As DataTable

        MeKONEKSI.TUTUPKONEKSI()
        DTA = New SqlDataAdapter("SELECT * FROM View_GRID_DETECTION_ANSWER " & _
                            "WHERE MMONTH = '" & Monthnya & "' AND " & _
                            "YYEAR = '" & Yearnya & "' AND " & _
                            "JENIS = '" & Jenisnya & "'", MeKONEKSI.BUKAKONEKSI)
        DTT.Clear()
        DTA.Fill(DTT)

        Return DTT
    End Function



'WITH DATAVIEW
Public Function ISI_GRID_QUESTION() As DataView
        Try
            MeKONEKSI.TUTUPKONEKSI()
            DTA = New SqlDataAdapter("SELECT TOP 50 * FROM View_GRID_DETECTION_QUESTION", _
                                     MeKONEKSI.BUKAKONEKSI)
            Try
                DTS.Tables("View_GRID_DETECTION_QUESTION").Clear()
            Catch ex As Exception
            End Try

            DTA.Fill(DTS, "View_GRID_DETECTION_QUESTION")
            Dim GRID As New DataView(DTS.Tables("View_GRID_DETECTION_QUESTION"))
            Return GRID
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Function


Public Function CARI_DATA_ANSWER(ByVal CmbFIND As String, ByVal TxtFIND As String) As String
        MeKONEKSI.TUTUPKONEKSI()
        COMMAND.Connection = MeKONEKSI.BUKAKONEKSI
        COMMAND.CommandText = "SELECT * FROM View_GRID_DETECTION_ANSWER " & _
                                "WHERE " & Replace(CmbFIND, " ", "") & " LIKE '%" & TxtFIND & "%'"
        DTR = COMMAND.ExecuteReader

        DTR.Read()
        If DTR.HasRows = True Then
            Try
                Dim CARI As String
                MeKONEKSI.TUTUPKONEKSI()
                CARI = "SELECT * FROM View_GRID_DETECTION_ANSWER WHERE " _
                        & Replace(CmbFIND, " ", "") & " LIKE '%" & TxtFIND & "%'"
                DTA = New SqlDataAdapter(CARI, MeKONEKSI.BUKAKONEKSI)
                Try
                    DTS.Tables("View_GRID_DETECTION_ANSWER").Clear()
                Catch ex As Exception
                End Try

                DTA.Fill(DTS, "View_GRID_DETECTION_ANSWER")
                Dim GRID As New DataView(DTS.Tables("View_GRID_DETECTION_ANSWER"))
                Return CARI
            Catch ex As Exception
                Throw New Exception(ex.Message)
            End Try
        Else
            Throw New Exception()
        End If
    End Function