vbnet 操作MySql数据库通用代码 加注释版本

vbnet 操作MySql数据库通用代码 加注释版本

Imports MySql.Data.MySqlClient
Namespace DataClass
    Module MyMeans 'MyMeans公共类
#Region "全局变量"
        Public Login_id   '记录当前登录的用户编号
        Public Login_Name '记录当前登录的用户名
        Public Mean_SQL, Mean_Table, Mean_Field  '记录  基础信息 各窗体中的表名，SQL语句 要添加和修改的字段名
        Public My_con As MySqlConnection '有于判断数据库是否连接成功
        Public M_str_sqlcon As String = "database=db_pwms;server=127.0.0.1;Uid=root;Pwd=2222222a;" '定义数据库连接字符串
        Public Login_n As Integer '用户登录与重新登录的标识
        Public AllSql As String = "Select * from tb_Staffbasic" '存储职工基本信息表中的SQL语句
#End Region
        '自定义方法 Getcon Con_close Getcom
        Public Function Getcon() As MySqlConnection
            '功能：建立与数据库的连接，然后通过MySqlConnection.Open方法打开与数据库的连接，
            '返回:MySqlConnection对象的信息
            My_con = New MySqlConnection(M_str_sqlcon) '用MySqlConnection对象与指定的数据库相连接
            My_con.Open() '打开数据库连接
            Return My_con '返回MySqlConnection对象的信息
        End Function
        Public Sub Con_close()
            '功能：对数据库操作后，通过此方法判断是否与数据库连接。如果连接，则断开
            If My_con.State = ConnectionState.Open Then '判断是否打开与数据库的连接
                My_con.Close() '关闭数据库的连接
                My_con.Dispose() '释放 My_con变量的所有空间
            End If
        End Sub

        Public Function Getcom(SQLstr As String) As MySqlDataReader
            '功能：用MySqlDataReader对象以只读的方式读取数据库中的信息，并以MySqlDataReader对象进行返回
            '参数：SQLstr表示传递的SQL语句
            Getcon()                                        '打开与数据库的连接
            Dim My_com As MySqlCommand = My_con.CreateCommand '创建一个SqlCommand对象，用于执行SQL语句
            My_com.CommandText = SQLstr '获取指定的SQL语句
            Dim My_read As MySqlDataReader = My_com.ExecuteReader '执行SQL语句，生成一个MySQlDataReader对象
            Return My_read
        End Function

        Public Sub getsqlcom(SQLstr As String)
            '功能：通过MySqlCommand对象执行数据库中的添加、修改和删除的操作，并在执行完后，关闭与数据库的连接
            '参数：SQLstr表示传递的SQL语句
            Getcon()                                        '打开与数据库的连接
            Dim SQLcom As New MySqlCommand(SQLstr, My_con)
            SQLcom.ExecuteNonQuery()                        '执行SQL语句 有关 添加 修改 删除的操作
            SQLcom.Dispose()                                 '释放所有空间
            Con_close()                                      '调用 con_close()方法，关闭数据库连接
        End Sub

        Public Function GetdataSet(SQLstr As String, tableName As String) As DataSet
            '功能：通过MySqlDataAdapter对象执行数据库中的添加、修改和删除的操作，并在执行完后将结果填入DataSet对象
            '参数：SQLstr表示传递的SQL语句，tableName DataSet中的表名
            Getcon()                                           '打开与数据库的连接
            Dim SQLda As New MySqlDataAdapter(SQLstr, My_con)
            Dim My_DataSet As New DataSet()                   '创建DataSet对象
            SQLda.Fill(My_DataSet, tableName)                 '填充数据集
            Con_close()                                      '调用 con_close()方法，关闭数据库连接
            Return My_DataSet                                '返回DataSet对象的信息
        End Function


    End Module
End Namespace