SQLHelper/SystemTools.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System
Imports System.Data 
Imports System.Data.SqlClient 

    Public Class SystemException
        Inherits Exception

        Public Sub New(ByVal source As String, ByVal message As String, ByVal inner As Exception)
            MyBase.New(message, inner)
            MyBase.Source = source
        End Sub


        Public Sub New(ByVal source As String, ByVal message As String)
            MyBase.New(message)
            MyBase.Source = source
        End Sub
    End Class


    Public Class SystemHTML
        Private Shared Function HTMLEncode(ByVal fString As String) As String
            If fString <> String.Empty Then

                fString.Replace("<", "&lt;")
                fString.Replace(">", "&rt;")

                fString.Replace(CChar(ChrW(34)).ToString(), "&quot;")
                fString.Replace(CChar(ChrW(39)).ToString(), "&#39;")

                fString.Replace(CChar(CStr(13)).ToString(), "")

                fString.Replace(CChar(ChrW(10)).ToString(), "<BR> ")
            End If
            Return (fString)
        End Function
    End Class


    Public Class SystemTools

        Public Shared Function ConvertDataReaderToDataTable(ByVal dataReader As SqlDataReader) As DataTable

            Dim datatable As New DataTable()

            Try
                For i As Integer = 0 To dataReader.FieldCount - 1

                    Dim myDataColumn As New DataColumn()
                    myDataColumn.DataType = dataReader.GetFieldType(i)
                    myDataColumn.ColumnName = dataReader.GetName(i)
                    datatable.Columns.Add(myDataColumn)
                Next


                While dataReader.Read()
                    Dim myDataRow As DataRow = datatable.NewRow()
                    For i As Integer = 0 To dataReader.FieldCount - 1
                        myDataRow(i) = dataReader(i).ToString()
                    Next