Skip to main content

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

Comments

Popular posts from this blog

Pop Up message Visual Studio "The operation could not be completed. The process cannot access the file because it is being used by another process"

Run your Visual Studio as Administrator account

Create Comment As .xls In Farpoint Spread

  Private Sub TAGS_PARENTING()         Dim DTPopUp As New DataTable         With DTPopUp             .Columns.Add("SEQ", GetType(String))             .Columns.Add("QTY", GetType(String))             .Columns.Add("ETD", GetType(String))             .Columns.Add("ETA", GetType(String))             DTPopUp = MePostab_Control.Cari_TAG_PARENTING         End With         With FPPOSTAB             For GG As Integer = 0 To .ActiveSheet.RowCount - 1             ...