sqlserver基础类（连接，关闭，查询，更新）

.net的ado.net?接和操作数据?太麻?了,所以?手写了?个?
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Text
'??明
'建立日期：2006-9-13
'方法?列表
'Public Sub Open() '打?与数据?的?接
'Public Sub Open(ByVal Connstr As String) '打?与数据?的?接
'Public Sub Close() '??与数据?的?接
'Public Sub SetCommand(ByVal SqlCmd As String) '?置???句
'Public Sub SetConnstring(ByVal ConnString As String) '?置?接字符串
'Public Sub ExecuteCmd() '?行??并返回一个NUll?
'Public Sub ExecuteCmd(ByVal SqlCmd As String) '?行??并返回一个NUll?
'Public Function ExecuteReader() As IDataReader '?行??找返回一个DataReader?象
'Public Function ExecuteReader(ByVal SqlCmd As String) As IDataReader '?行??找返回一个DataReader?象
'Public Function ExecuteDataSet() As DataSet '?行??找返回一个DataSet?象
'Public Function ExecuteDataSet(ByVal SqlCmd As String) As DataSet '?行??找返回一个DataSet?象
'属性?列表
'Public Property ConnStr() As String  '?接字符串属性
'Public Property CommandString() As String  'SQL???句属性
'Public ReadOnly Property DataReader() As IDataReader  '返回DataReader?象
'Public ReadOnly Property DataSet() As DataSet '返回一个DataSet?象
'?行存??程并返回一个boolean?
'Public Function ExecutePROCEDURE(ByVal SqlCmd As String, ByVal _FieldName() As String, ByVal _FieldValue() As String) As Boolean

Namespace Sunerp.Hutao.ADONET

    '自定?数据?型

    '//本??存取存??程参数名(FiledName)、参数?(FieldValue)及参数数据?型(DataType)

    Public Structure PROCEDUREField
        Public FieldName As String
        Public FieldValue As String
        Public DataType As System.Data.SqlDbType
    End Structure



    '?定??始
    Public Class AdoNetConnSqlServer
        '成??量
        Private _ConnString As String                  '表示数据字符串
        Private _conn As New SqlClient.SqlConnection    '表示数据?接控件
        Private _cmd As New SqlClient.SqlCommand        '表示SQL命令?句的?行
        Private _Reader As IDataReader                  '表示返回的DataReader?象
        Private _CmdString As String                    '表示SQL?句命令
        Private _IDataAdapter As New SqlDataAdapter    '用于填充和刷新本地DataSet数据
        Private _DataSet As New DataSet                '表示本地数据?存

        '成?方法---------------------------------------------------------------------------------------
        '成?方法---------------------------------------------------------------------------------------

        '打?与数据?的?接 
        Public Function Open() As Boolean
            _conn.ConnectionString = _ConnString
            Try
                _conn.Open()
                Return True