Return dataSet.Tables(0)

        Catch ex As Exception

            Throw New NotSupportedException(ex.Message)

        Finally

            sqlConnection.Close()

        End Try

    End Function

    Function GetDataTableBySQL(ByVal SuperSQL As String) As System.Data.DataTable

        Dim sqlConnection As New SqlClient.SqlConnection(GetConn)

        Dim sqlCommand As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand(SuperSQL, sqlConnection)

        Dim dataAdapter As System.Data.SqlClient.SqlDataAdapter = New System.Data.SqlClient.SqlDataAdapter(sqlCommand)

        Dim dataSet As System.Data.DataSet = New System.Data.DataSet

        Try

            dataAdapter.Fill(dataSet)

            Return dataSet.Tables(0)

 << 上一页  [21] [22] [23] [24] [25] [26] [27] [28] [29]  下一页