数据库访问

来源:互联网 发布:怎么样注册域名 编辑:程序博客网 时间:2024/03/29 08:42

学了这么久,到现在,还是不能把数据库操作的一个简单的类写出来,到现在,只能写出一点基本的东西,数据库访问,数据库的基本操作,,

简单的写一点,运用OLEDB进行数据库连接,比较低等....

Imports System
Imports System.Data
Imports System.Drawing
Imports System.Data.OleDb
'//引入需要的名称空间,特别是最后一个,是必需的。

Module DataOper
     '// 定义工程级/项目级全局变量,在本项目生命周期中都适用。
    Public MyDBAdpt As OleDbDataAdapter
    '//定义一个数据适配器。
    Public DBConn As OleDbConnection
      '//定义一个数据连接。
    Public DataSet As DataSet = New DataSet
    '//定义一个数据集并实例化。
    Public myTable As DataTable
 '//建立表对象
    Public DataRow As DataRow
    '//定义一个数据行。
public RowNumber as integer
'//定义一个整型变量存放当前行数
    Public opt, message As String
    Public IsError As Boolean
    '//定义一个布尔型变量
    Public DBCmdBuild As OleDbCommandBuilder
    Public DBCmd As OleDbCommand
    Public connection As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= CIMS.mdb"
    '连接字符串


    '判断字符串是否为空的函数
    Public Function TestText(ByVal txt As String) As Boolean
        If (Trim(txt)) = "" Then
            TestText = False
        Else
            TestText = True
        End If
    End Function


    Public Function ConnToDB(ByVal SQLString As String, ByVal MSGstring As String, _
                         ByVal CPTstring As String) As Boolean
        '  Dim strsql As String
        Try
            IsError = False
            DBConn = New OleDbConnection(connection)  '//实例化一个新的数据库连接。
            DBConn.Open()  '打开连接
            MyDBAdpt = New OleDbDataAdapter(SQLString, DBConn)  '//实例化一个新的数据适配器,并赋值。
            ' DataSet = New DataSet
            DataSet.Clear()    '//清空数据集中的元来数据架构和数据。
            MyDBAdpt.Fill(DataSet)   '将数据适配器获取的数据映向填充到数据集。
            '    DBConn.Close()   '//关闭连接
            'Return DataSet
        Catch ex As Exception
            ' MessageBox.Show(ex.Message)
            MessageBox.Show(MSGstring, CPTstring, MessageBoxButtons.OK, _
              MessageBoxIcon.Exclamation)
            '//显示需要发出的错误、警告或者提示消息的内容和标题。
            IsError = True
            '//发生了错误事件,将IsEroor赋值为真。
            Exit Function
            '//出现错误,则退出函数,即断开与数据库的连接。
        Finally
            DBConn.Close()
        End Try
    End Function


    '数据库操作函数
    Public Function OleDbOper(ByVal SQLString As String, ByVal table As String, ByVal MSGstring As String, _
                              ByVal CPTstring As String) As Boolean
        Try
            IsError = False
            DBConn.Open()
            DBCmd = New OleDbCommand(SQLString, DBConn)
             DBCmd.ExecuteNonQuery()
       Catch ex As Exception
            MessageBox.Show(MSGstring, CPTstring, MessageBoxButtons.OK, _
              MessageBoxIcon.Exclamation)
            '//显示需要发出的错误、警告或者提示消息的内容和标题。
            IsError = True
            '//发生了错误事件,将IsEroor赋值为真。
        Finally
            DBConn.Close()
        End Try

    End Function

    Public Function UpdateDB(ByVal MyDataset As DataSet)
        Try
            DBCmdBuild = New OleDbCommandBuilder(MyDBAdpt)
            MyDBAdpt.Update(MyDataset)
        Catch
            MessageBox.Show(Err.Description, "数据更新失败", _
            MessageBoxButtons.OK, MessageBoxIcon.Hand)
            ' Return False
        End Try
        '  Return True
    End Function


End Module

虽然以上代码能够进行简单的数据库连接,数据更新,但在实际过程中,还存在一些问题,慢慢解决后,再进行更新了