从网上下了一个c＃通用数据组件

Question

自己改了，请问在vb中如何做类似的注释
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
' <summary>
' 通用数据库访问类－UniversalDAL类，
' 支持SQL Server、OleDb、ODBC、Oracle等
' 不同类型的数据源
' </summary>
Public Class yhDal
    ' <summary>
    ' 该枚举类型用于枚举数据库的类型
    ' </summary>
    Public Enum DBType
        SQLServer
        OleDb
    End Enum    Private _DatabaseType As DBType = DBType.OleDb
    Private _ConnectionString As String = ""
    ' <summary>
    ' 数据库类型属性
    ' </summary>
    Public Property DatabaseType() As DBType
        Get
            Return _DatabaseType
        End Get
        Set(ByVal Value As DBType)
            _DatabaseType = Value
        End Set
    End Property
    ' <summary>
    ' 数据库连接字符串属性
    ' </summary>
    Public Property ConnectionString() As String
        Get
            Return _ConnectionString
        End Get
        Set(ByVal Value As String)
            _ConnectionString = Value
        End Set
    End Property
    ' <summary>
    ' 构造函数
    ' </summary>
    Public Sub New()
    End Sub
    ' <summary>
    ' 构造函数
    ' </summary>
    ' <param name="DbType">访问的数据库类型</param>
    Public Sub New(ByVal DBType As DBType)
        _DatabaseType = DBType
    End Sub
    ' <summary>
    ' 构造函数
    ' </summary>
    ' <param name="DbType">访问的数据库类型</param>
    ' <param name="ConString">数据库连接字符串</param>
    Public Sub New(ByVal DBType As DBType, ByVal ConString As String)
        _DatabaseType = DBType
        _ConnectionString = ConString
    End Sub
    ' <summary>
    ' 根据数据库类型获取数据库连接接口
    ' </summary>
    ' <returns>数据库连接接口</returns>
    Private Function GetConnection() As IDbConnection
        Dim con As IDbConnection = Nothing
        Select Case DatabaseType
            Case DBType.OleDb
                con = New OleDbConnection(ConnectionString)
                Exit Select
            Case DBType.SQLServer
                con = New SqlConnection(ConnectionString)
                Exit Select
        End Select
        Return con
    End Function
    ' <summary>
    ' 根据数据库类型获取数据库命令接口
    ' </summary>
    ' <param name="cmdText">数据库命令字符串</param>
    ' <param name="con">数据库连接接口</param>
    ' <returns>数据库命令接口</returns>
    Private Function GetCommand(ByVal cmdText As String, ByVal con As IDbConnection) As IDbCommand
        Dim cmd As IDbCommand = Nothing
        Select Case DatabaseType
            Case DBType.OleDb
                cmd = New OleDbCommand(cmdText, con)
                Exit Select
            Case DBType.SQLServer
                cmd = New SqlCommand(cmdText, con)
                Exit Select
        End Select
        Return cmd
    End Function
    ' <summary>
    ' 根据数据库类型获取数据适配器接口
    ' </summary>
    ' <param name="cmdText">数据库命令字符串</param>
    ' <param name="conString">数据库连接字符串</param>
    ' <returns>数据适配器接口</returns>    Private Function GetDataAdapter(ByVal cmdText As String, ByVal conString As String) As IDataAdapter
        Dim da As IDataAdapter = Nothing
        Select Case DatabaseType
            Case DBType.OleDb
                da = New OleDbDataAdapter(cmdText, conString)
                Exit Select
            Case DBType.SQLServer
                da = New SqlDataAdapter(cmdText, conString)
                Exit Select
        End Select
        Return da
    End Function
    ' <summary>
    ' 根据数据库类型获取数据适配器接口
    ' </summary>
    ' <param name="cmd">数据库命令接口</param>
    ' <returns>数据适配器接口</returns>
    Private Function GetDataAdapter(ByVal cmd As IDbCommand) As IDataAdapter
        Dim da As IDataAdapter = Nothing
        Select Case DatabaseType
            Case DBType.OleDb
                da = New OleDbDataAdapter(cmd)
                Exit Select
            Case DBType.SQLServer
                da = New SqlDataAdapter(cmd)
                Exit Select
        End Select
        Return da
    End Function    ' <summary>
    ' 执行SQL语句并返回受影响的行的数目
    ' </summary>
    ' <param name="cmdText">数据库命令字符串</param>
    ' <returns>受影响的行的数目</returns>
    Public Function ExecuteNonQuery(ByVal cmdText As String) As Int16
        Dim con As IDbConnection = Nothing
        Dim cmd As IDbCommand = Nothing
        Try
            con = GetConnection()
            cmd = GetCommand(cmdText, con)
            con.Open()
            Return cmd.ExecuteNonQuery()
        Catch ex As Exception
            System.Diagnostics.Debug.WriteLine(ex.Message)
            Return 0
        Finally
            If Not IsNothing(cmd) Then cmd.Dispose()
            If Not IsNothing(con) Then con.Dispose()
        End Try
    End Function
    ' <summary>
    ' 执行SQL语句并返回数据行
    ' </summary>
    ' <param name="cmdText">数据库命令字符串</param>
    ' <returns>数据读取器接口</returns>
    Public Function ExecuteReader(ByVal cmdText As String) As IDataReader
        Dim con As IDbConnection = Nothing
        Dim cmd As IDbCommand = Nothing
        Try
            con = GetConnection()
            cmd = GetCommand(cmdText, con)
            con.Open()
            Return cmd.ExecuteReader(CommandBehavior.CloseConnection)
        Catch ex As Exception
            System.Diagnostics.Debug.WriteLine(ex.Message)
            Return Nothing
        End Try
    End Function

Answer 1

继上
  Public Sub BindData(ByVal cmdText As String, ByVal obj As Object)
        Dim con As IDbConnection = Nothing
        Dim cmd As IDbCommand = Nothing
        Try
            con = GetConnection()
            cmd = GetCommand(cmdText, con)
            con.Open()
            obj.DataSource = cmd.ExecuteReader
            obj.DataBind()
        Catch ex As Exception
            System.Diagnostics.Debug.WriteLine(ex.Message)
        Finally
            con.Close()
        End Try
    End Sub
    ' <summary>
    ' 执行SQL语句并返回单值对象
    ' 即结果集中第一行的第一条数据
    ' </summary>
    ' <param name="cmdText">数据库命令字符串</param>
    ' <returns>单值对象－结果集中第一行的第一条数据</returns>
    Public Function ExecuteScalar(ByVal cmdText As String) As Object
        Dim con As IDbConnection = Nothing
        Dim cmd As IDbCommand = Nothing
        Try
            con = GetConnection()
            cmd = GetCommand(cmdText, con)
            con.Open()
            Return cmd.ExecuteScalar()
        Catch ex As Exception
            System.Diagnostics.Debug.WriteLine(ex.Message)
            Return Nothing
        Finally
            If Not IsNothing(cmd) Then cmd.Dispose()
            If Not IsNothing(con) Then con.Dispose()
        End Try
    End Function
    ' <summary>
    ' 填充一个数据集对象并返回之
    ' </summary>
    ' <param name="cmdText">数据库命令字符串</param>
    ' <param name="conString">数据库连接字符串</param>
    ' <returns>数据集对象</returns>
    Public Function PopulateDataSet(ByVal cmdText As String, ByVal conString As String) As DataSet
        Dim da As IDataAdapter = Nothing
        Dim ds As DataSet = Nothing
        Try
            da = GetDataAdapter(cmdText, conString)
            ds = New DataSet()
            da.Fill(ds)
            Return ds
        Catch ex As Exception
            System.Diagnostics.Debug.WriteLine(ex.Message)
            Return Nothing
        End Try
    End Function
    ' <summary>
    ' 填充一个数据集对象并返回之
    ' </summary>
    ' <param name="cmdText">数据库命令字符串</param>
    ' <returns>数据集对象</returns>
    Public Function PopulateDataSet(ByVal cmdText As String) As DataSet
        Dim con As IDbConnection = Nothing
        Dim cmd As IDbCommand = Nothing
        Dim da As IDataAdapter = Nothing
        Dim ds As DataSet = Nothing
        Try
            con = GetConnection()
            cmd = GetCommand(cmdText, con)
            da = GetDataAdapter(cmd)
            ds = New DataSet()
            da.Fill(ds)
            Return ds
        Catch ex As Exception
            System.Diagnostics.Debug.WriteLine(ex.Message)
            Return Nothing
        Finally
            If Not IsNothing(cmd) Then cmd.Dispose()
            If Not IsNothing(con) Then con.Dispose()
        End Try
    End Function
    ' <summary>
    ' 填充一个数据集对象并返回之
    ' </summary>
    ' <param name="cmdText">数据库命令字符串</param>
    ' <returns>数据集对象</returns>
    Public Function PopulateDataSet(ByVal cmdText As String, ByVal StartRecort As Int32, ByVal PageSize As Int32, ByVal TableName As String) As DataSet
        Dim con As IDbConnection = Nothing
        Dim cmd As IDbCommand = Nothing
        Dim da
        Dim ds As DataSet = Nothing
        Try
            con = GetConnection()
            cmd = GetCommand(cmdText, con)
            da = GetDataAdapter(cmd)
            ds = New DataSet()
            da.Fill(ds, StartRecort, PageSize, TableName)
            Return ds
        Catch ex As Exception
            System.Diagnostics.Debug.WriteLine(ex.Message)
            Return Nothing
        Finally
            If Not IsNothing(cmd) Then cmd.Dispose()
            If Not IsNothing(con) Then con.Dispose()
        End Try
    End FunctionEnd Class